|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
http://club.excelhome.net/thread-520829-1-1.html
目标目标定位是,同电视一样,在状态栏中10秒显示一条内容
这个帖子的网友回帖的程序全是在模块(bas)中运行。
Dim mosstr As String
Dim mosin As Boolean
Sub mosontime()
Application.OnTime Now + TimeValue("00:00:20"), "mosstatebar", , True
''学习了OnTime的用法.
End Sub
Sub mosstatebar()
mosin = Not mosin
If mosin Then mosstr = "第一次出现的信息(区别123456)" Else mosstr = "第二次出现的信息(区别56789)"
Application.StatusBar = mosstr
mosontime
End Sub
此帖的目标需求 mosstatebar的模块 放在模块(bas)放到类模块中(Cls) |
|