怎样使用VBA状态栏滚动显示日期

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行Private Sub Workbook_Open猾诮沓靥() Dim i As Integer, j As Long, k As Integer, ti罪焐芡拂m k=1 Application.StatusBar="当前日期：" & Date tim=Time Do While Second(Time-tim) < 60 For j=1 To 1000 '速度，可修改 DoEvents Next i=i+k If i > 40 Then k=-1 If i < 1 Then k=1 Application.StatusBar=Space(i) & "当前日期：" & Date Loop Application.StatusBar=FalseEnd Sub

5、重新打开工作簿，则状态栏显示循环滚动的日期，如图