Sub Main()
Dim oldStatusBar
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "正在刷新..."
Application.StatusBar = "已完成 " & Format(i / UBound(Files), "0.0%") & " " & i & "/" & UBound(Files)
Application.StatusBar = "刷新完成!"
delay 2
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub
工具栏状态显示
最新推荐文章于 2024-06-04 23:11:16 发布