====================== ① ======================
Private KG As Boolean
Sub mynz_46_1()
KG = True
Application.StatusBar = "现在时刻: " & Time
Application.OnTime Now + TimeValue("00:00:01"), "mynz_46_1"
End Sub
Sub mynz_46_2()
If KG Then
Application.OnTime Now + TimeValue("00:00:01"), "mynz_46_1", , False
End If
Application.StatusBar = False
KG = False
EndSub
================②=====================
代码解读：
1）当执行mynz_46_1时，将在状态栏上显示一个时间这个时间是time函数提供的，每个一秒钟再次刷新时间。
2）在执行mynz_46_1时将模块的变量KG设置成TRUE,表示开始显示时间。
3）刷新时间是通过利用Application对象的OnTime方法来完成的。
4）当点击mynz_46_2时停止Application对象的OnTime方法
5）当点击mynz_46_2时恢复状态栏。各套教程的介绍：
第1套（初级）：VBA代码解决方案
第2套(中级+)：VBA数据库解决方案
第3套(中级-)：VBA数组与字典解决方案
第4套(初级)：VBA代码解决方案之视频
第5套(高级)：VBA中类的解读和利用
第6套(高级)：VBA信息获取与处理
学习顺序：13265或者43265。其中第四套是对第一套的视频讲解，所以第一和第四只选其一即可。
分享成果，随喜正能量