excel vb自动刷新

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

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

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

4、输入代码Sub start()Sheet1.Cells(3, 7) = 争犸禀淫"当前时间：" & DateTime.NowDim refresh As Stringrefresh = "00:00:06" Application.OnTime Now + TimeValue(refresh), "start" End Sub

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