excel vb自动刷新

1、点击左上角excel图标，找到excel选项，点击开发工具

2、点击开发工具，找到 visio basic，打开

3、右击模块，点击插入模块

4、输入代码

Sub start()

Sheet1.Cells(3, 7) = "当前时间：" & DateTime.Now

Dim refresh As String

refresh = "00:00:06"

      Application.OnTime Now + TimeValue(refresh), "start"

End Sub

5、运行模块，就能看到时间在刷新