Question

Excel的VBA循环代码

老师好！
请教在循环代码运行环境下怎么解决鼠标闪烁的问题，有什么语句可以让循环代码静默运行鼠标不闪烁。例如下面代码就闪烁：
Private Sub Workbook_Open()
Dim T1 As Single
T1 = Timer
x = 1
Do While x = 1 '死循环
Do
DoEvents '把控制权还给系统
Loop While Timer - T1 < t 't为若干秒
T1 = Timer
Worksheets("sheet3").Protect Password:="123"
Loop
End Sub
循环执行有的语句是不会闪烁的，有的会闪一点点，
比如循环执行Worksheets("sheet3").Protect Password:="123"这句是闪烁最严重的。

Answer 1

程序开始前，加上一句代码，不让Excel刷新即可

Application.screenupdating=FALSE

追问

非常高兴得到老师您的帮助，谢谢老师！
我试验了，可是依然一样啊，鼠标闪得看不见了。
请求老师帮我想想办法解决这个问题！
谢谢老师！

Answer 2

通常有下面一些循环语句：
1、For ... Next
如： For i=1 to 100
Cells(i,1)=1
Next
2、Do Until .... Loop
如： i=1
Do Until i=100
Cells(i,1)=i
i=i+1
Loop
3、Do Where ... Loop
如： i=1
Do Where i<=100
Cells(i,1)=i
i=i+1
Loop

追问

您好老师！
因我不懂VBA，没法自己解决，还请老师指导具体代码，如何解决上面代码鼠标闪烁问题？主要想知道代码死循环执行例如Worksheets("sheet3").Protect Password:="123"
这句能让鼠标不闪烁静默运行。
谢谢老师！

追答

加一句Application.ScreenUpdating = False试试，结束前Application.ScreenUpdating = True

Private Sub Workbook_Open()

Dim T1 As Single
Application.ScreenUpdating = False
T1 = Timer
x = 1
Do While x = 1 '死循环
Do
DoEvents '把控制权还给系统
Loop While Timer - T1 < t 't为若干秒
T1 = Timer
Worksheets("sheet3").Protect Password:="123"
Loop
Application.ScreenUpdating = True
End Sub

追问

非常高兴得到老师您的帮助，谢谢老师！
我试验了，可是依然一样啊，鼠标闪得看不见了。
请求老师帮我想想办法解决这个问题！
谢谢老师！

追答

我测试了一下你原来的程序，程序在执行时成漏斗状很正常啊，应该没什么问题呀

追问

您好老师！
问题是例如要循环运行Worksheets("sheet3").Protect Password:="123"
代码时鼠标闪烁，就没办法做别的操作了，在这环境下要是能添加什么语句能静默运行就好了。
谢谢老师！时间不早了，您早点休息吧，这个问题我不急的，我不懂VBA是想学习像这种情况该如果处理。请您有空时在帮我想想办法
谢谢老师！

追答

按你的程序，点表格任意单元就停止程序了。程序在执行过程中是不能进行其他操作的，这是Excel独占性决定的