在Excel里面别人弄出来的动态时间,这个是怎么弄出来的啊,不用vba写出来的,谁知道可以告诉我怎

在Excel里面别人弄出来的动态时间,这个是怎么弄出来的啊,不用vba写出来的,谁知道可以告诉我怎么弄吗... 在Excel里面别人弄出来的动态时间,这个是怎么弄出来的啊,不用vba写出来的,谁知道可以告诉我怎么弄吗 展开
 我来答
soup5258
推荐于2017-12-16 · TA获得超过9256个赞
知道大有可为答主
回答量:5594
采纳率:74%
帮助的人:2083万
展开全部

 第一种 出现在指定单元格的数字时钟


第一步:新建一个excel工作簿→单击sheet1工作表→工具→宏→visual basic编辑器。


 第二步:在sheet1工作表上右击→插入→模块。

 第三步:在模块对话框中输入如下代码:

  Sub biao()

  ActiveSheet.Range("a1").Value = Time

  Application.OnTime Time + TimeSerial(0, 0, 1), "biao

  End Sub


注:上述代码中的a1是表示我们要在a1单元格中建立一个电子时钟,如果想在其他单元格中建立一个电子时钟,可以把a1改成相应的单元格地址。

Sub biao()

  Sheets("sheet1").Cells(2, 7).Value = Time

  Application.OnTime Time + TimeSerial(0, 0, 1), "biao"

  End Sub

上面是 在SHEET1  第二行 第七列 产生时间


 第四步:关闭visual basic编辑器,返回到excel工作簿中→工具→宏→宏(m)…。

 第五步:在宏对话框中选择biao→执行。



参考资料:http://zhiblog.com/excel/2010/09/10/362.htm


第二种



第1步 首先打开一个空白Excel文件,点击“视图” → 然后点选【控件工具箱】,→点击“其他控件”。如下图:


第2步 然后再点击[Shockwave Flash Object]项目,表示要插入Flash物件。


第3步 接下来,鼠标会变成一个小十字,此时可以在Excel编辑区中画一个大小适中的方框,这个方框就是用来显示Flash时钟的内容的。


第4步 画好方框后,接着点击【属性】,准备设置属性。


第5步 出现「属性」对话框后,将DeviceFont设置成False;将Eebedmovie设置成True;将Enabled设置成True;将Locked设置成True;将Loop设置成True;将Menu设置成False;并在“Movie”右侧填入时钟的地址与名称。


第6步 如下图,退出设计模式,全部完成。


时钟文件自己可以去网上搜索   SWF后缀



追问
可以把你制作的模板发给我吗
搬转认证工程师
2016-03-18 · TA获得超过220个赞
知道小有建树答主
回答量:205
采纳率:0%
帮助的人:86.4万
展开全部
在Excel中是可以插入日期和时间的,但这个日期和时间是静止的。笔者想能不能让Excel中也有一个像电子手表一样的电子钟表呢?我研究了一下,发现是可以实现的。它主要是通过宏再加上相应的代码就能轻松搞定。下面来看一看是如何实现的吧!
  操作步骤
  第一步:新建一个Excel工作簿→单击Sheet1工作表→工具→宏→Visual Basic编辑器。
  第二步:在Sheet1工作表上右击→插入→模块。
  第三步:在模块对话框中输入如下代码:
  Sub biao()
  ActiveSheet.Range("a1").Value = Time
  application.OnTime Time + TimeSerial(0, 0, 1), "biao
  End Sub
  注:上述代码中的a1是表示我们要在A1单元格中建立一个电子时钟,如果想在其他单元格中建立一个电子时钟,可以把A1改成相应的单元格地址。
  第四步:关闭Visual Basic编辑器,返回到Excel工作簿中→工具→宏→宏(M)…。
  第五步:在宏对话框中选择biao→执行。
  快看一看吧!怎么样一个漂亮的电子时钟就出来了,它的秒数还在动呢?怎么样是不是很心动,看完本文尽快试一试吧!
追问
不❤动,这个我知道,每次打开都要手动执行代码才会走动,不好
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式