在Excel表格的单位格上面插入时候函数公式=NOW()时，显示出来的时候是不会动态更新的 。 我们可以经由过程Excel表格上面的VBA进行编写一个动态时钟的法式，使得表格上面的时钟闪现出动态更新 。
需要这些哦
Excel 2010
方式/
1桌面上新建一个Excel表格文件，之后进行打开 。
文章插图
2点击【文件】，【另存为】 。
文章插图
3文件定名为《动态时钟VBA》，在文件保留类型里面选择“启用宏的工作薄” 。
文章插图
4打开《动态时钟VBA》，点击【文件】，【选项】 。
文章插图
5在“Excel选项”对话框里面点击【自界说功能区】，在右侧将【开辟东西】选上，然后点击【确定】 。 （若是东西栏上面已经有【开辟东西】，第四、五步就忽略失落）
文章插图
6在“Excel选项”对话框里面点击【信赖中间】，【信赖中间设置】，在“信赖中间”对话框里面点击【宏设置】，选择“启用所有宏” 。 （若是已经启用宏功能，此步忽略）
文章插图
7点击东西栏上面的【开辟东西】，【Visual Basic】 。
文章插图
8在“VBAProject （动态时钟VBA.xlsm）”上面单击右键，选择“插入”，“模块” 。
文章插图
9在“属性-模块1”里面将“模块1”重定名为“AotoTime” 。 （对于2007及之前的版本，模块的定名最好是不要利用中文，以免再次打开时犯错）
文章插图
10在代码窗口输入以下法式代码：
Sub AotoTime1()
Dim NewTime As Date '界说NewTime的数据类型
Set myDocument = ThisWorkbook.Worksheets("Sheet1") '界说工作表
NewTime = Now + TimeValue("00:00:01") '更新时候是1秒
myDocument.Range("A2").Value = https://vvvtt.com/article/Time 'Sheet1 A2单位格显示动态时候
Application.OnTime NewTime, "AotoTime2" '放置一个过程在未来的特按时间（Newtime）运行，挪用Aoto2
Sub
Sub AotoTime2()
Call AotoTime1 '挪用Aoto1
Sub
文章插图
推荐阅读
- excel怎么在指定位置插入内容
- Excel批量插入单元格中间部分
- excel图表怎么填内容
- 在excel表格中如何自定义排序
- Excel怎么创建一个预算模板
- Office Excel 2016 分列功能详解
- Excel中shift键的用法，无敌快捷键
- 如何在excel里导入word当中的数据
- 怎么设置excel工作表的office背景
- 怎么对excel表格进行多条件排序