在Excel里面别人弄出来的动态时间,这个是怎么弄出来的啊,不用vba写出来的,谁知道可以告诉我怎
第一种 出现在指定单元格的数字时钟
第一步:新建一个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后缀
可以把你制作的模板发给我吗
操作步骤
第一步:新建一个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→执行。
快看一看吧!怎么样一个漂亮的电子时钟就出来了,它的秒数还在动呢?怎么样是不是很心动,看完本文尽快试一试吧!
不❤动,这个我知道,每次打开都要手动执行代码才会走动,不好