帮我修改一个状态栏动态文字

andysky · 发表于 2006-5-25 13:27

设想如此，可没法动。 Sub yy() Dim QQ, j As Integer, bb bb = 1 QQ = "EXCEL HOME 学海无涯书山有路 " Application.StatusBar = QQ Do For j = 1 To 200 DoEvents Next j Application.StatusBar = Right(QQ, 1) & Left(QQ, Len(QQ) - 1) Application.StatusBar = QQ Loop Until bb = 0 End Sub

andysky · 发表于 2006-5-25 13:45

现已改好，但占用资源太多，且借助了辅助单元格，请高手帮忙。 Dim BBB As Byte Sub 动() BBB = 1 Range("a1") = "广东省中山市福泰公司欢迎你！ " Application.StatusBar = Range("a1").Value Do For j = 1 To 20000 DoEvents Next j Range("a1").Value = Right(Range("a1"), 1) & Left(Range("a1"), Len(Range("a1")) - 1) Application.StatusBar = Range("a1") Loop Until BBB = 0 End Sub Sub 启动() Application.OnTime Now + TimeValue("00:00:01"), "动" End Sub Sub 停() BBB = 0 End Sub

qee用 · 发表于 2006-5-25 16:01

简单地给你改一下.

andysky · 发表于 2006-5-25 16:51

1J9BDCHJ.rar (7.03 KB, 下载次数: 63) 请看看，为何将代码放于WORKBOOK_open中后就不能停止了？

[此贴子已经被作者于2006-5-25 16:52:35编辑过]

qee用 · 发表于 2006-5-25 20:09

去掉ThisWorkbook代码顶部的声明:Dim BBB
在模块1的顶部增加一句声明:Public BBB As Byte

andysky · 发表于 2006-5-26 09:58

试过了，没有用。

84595292 · 发表于 2014-11-26 09:26

此方法，有待改善，请版主优化，谢

达州张先生 · 发表于 2014-11-27 11:47

andysky 发表于 2006-5-25 16:51
请看看，为何将代码放于WORKBOOK_open中后就不能停止了？
[此贴子已经被作者于2006-5-25 16:52:35编辑过 ...

最好是运行时，不关闭表格功能和格式，如：保存按钮等

		自动登录	找回密码
密码			免费注册