VBA 步伐运行中禁用鼠标键盘

1. Application.Interactive

False：Excel 将制止键盘和鼠标的所有输入，但代码体现的对话框的输入不受影响。
True：打开交互模式。
下面的代码步伐一旦运行就会限定在Excel的事先选定的单位格输出。
如果注释掉Application.Interactive = False的话，输出会跟随鼠标选定的单位格即时输出。

1. Option Explicit
3. Sub DisableMouse()
4.     Dim i As Long
5.    
6. On Error GoTo ErrHandle:
7.    
8.     '禁止交互
9.     Application.Interactive = False
10.    
11.     For i = 1 To 3000
12.         DoEvents
13.         Selection = i
14.     Next i
15.    
16.     '恢復交互
17.     Application.Interactive = True
18.    
19.     Exit Sub
20. ErrHandle:
21.     '恢復交互
22.     Application.Interactive = True
23.     MsgBox Err.Description
24.    
25. End Sub

复制代码

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。