Excel表格上面做动态时钟显示

在Excel表格的单位格上面插入时候函数公式=NOW()时，显示出来的时候是不会动态更新的。我们可以经由过程Excel表格上面的VBA进行编写一个动态时钟的法式，使得表格上面的时钟闪现出动态更新。

东西/原料

• Excel 2010

方式/步调

1. 1

   桌面上新建一个Excel表格文件，之后进行打开。

   
2. 2

   点击【文件】，【另存为】。

   
3. 3

   文件定名为《动态时钟VBA》，在文件保留类型里面选择“启用宏的工作薄”。

   
4. 4

   打开《动态时钟VBA》，点击【文件】，【选项】。

   
5. 5

   在“Excel选项”对话框里面点击【自界说功能区】，在右侧将【开辟东西】选上，然后点击【确定】。（若是东西栏上面已经有【开辟东西】，第四、五步就忽略失落）

   
6. 6

   在“Excel选项”对话框里面点击【信赖中间】，【信赖中间设置】，在“信赖中间”对话框里面点击【宏设置】，选择“启用所有宏”。（若是已经启用宏功能，此步忽略）

   
7. 7

   点击东西栏上面的【开辟东西】，【Visual Basic】。

   
8. 8

   在“VBAProject （动态时钟VBA.xlsm）”上面单击右键，选择“插入”，“模块”。

   
9. 9

   在“属性-模块1”里面将“模块1”重定名为“AotoTime”。（对于2007及之前的版本，模块的定名最好是不要利用中文，以免再次打开时犯错）

   
10. 10

    在代码窗口输入以下法式代码：

    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

    
11. 11

    将光标放置于法式内，点击“运行”图标即可。（若是光标位于法式外，点击“运行”图标时，将会呈现选择”AotoTime1“或”AotoTime“的宏对话框，选择其一即可。）

    
12. 12

    Excel表格上面可以看到动态的时候显示。

    

注重事项

• Excel表格的VBA法式贵在多利用，多操练，熟能生巧。