在Excel表格的单位格上面插入时候函数公式=NOW()时,显示出来的时候是不会动态更新的。我们可以经由过程Excel表格上面的VBA进行编写一个动态时钟的法式,使得表格上面的时钟闪现出动态更新。
桌面上新建一个Excel表格文件,之后进行打开。
点击【文件】,【另存为】。
文件定名为《动态时钟VBA》,在文件保留类型里面选择“启用宏的工作薄”。
打开《动态时钟VBA》,点击【文件】,【选项】。
在“Excel选项”对话框里面点击【自界说功能区】,在右侧将【开辟东西】选上,然后点击【确定】。(若是东西栏上面已经有【开辟东西】,第四、五步就忽略失落)
在“Excel选项”对话框里面点击【信赖中间】,【信赖中间设置】,在“信赖中间”对话框里面点击【宏设置】,选择“启用所有宏”。(若是已经启用宏功能,此步忽略)
点击东西栏上面的【开辟东西】,【Visual Basic】。
在“VBAProject (动态时钟VBA.xlsm)”上面单击右键,选择“插入”,“模块”。
在“属性-模块1”里面将“模块1”重定名为“AotoTime”。(对于2007及之前的版本,模块的定名最好是不要利用中文,以免再次打开时犯错)
在代码窗口输入以下法式代码:
Sub AotoTime1()
Dim NewTime As Date '界说NewTime的数据类型
Set myDocument = ThisWorkbook.Worksheets("Sheet1") '界说工作表
NewTime = Now + TimeValue("00:00:01") '更新时候是1秒
myDocument.Range("A2").Value = Time 'Sheet1 A2单位格显示动态时候
Application.OnTime NewTime, "AotoTime2" '放置一个过程在未来的特按时间(Newtime)运行,挪用Aoto2
End Sub
Sub AotoTime2()
Call AotoTime1 '挪用Aoto1
End Sub
将光标放置于法式内,点击“运行”图标即可。(若是光标位于法式外,点击“运行”图标时,将会呈现选择”AotoTime1“或”AotoTime“的宏对话框,选择其一即可。)
Excel表格上面可以看到动态的时候显示。
0 篇文章
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!