VBA 程序运行中禁用鼠标键盘

1. Application.Interactive

False:Excel 将阻止键盘和鼠标的所有输入,但代码显示的对话框的输入不受影响。

True:打开交互模式。

下面的代码程序一旦运行就会限定在Excel的事先选定的单元格输出。

如果注释掉Application.Interactive = False的话,输出会跟随鼠标选定的单元格即时输出。

vbscript 复制代码
Option Explicit

Sub DisableMouse()
    Dim i As Long
    
 On Error GoTo ErrHandle:
    
    '禁止交互
    Application.Interactive = False
    
    For i = 1 To 3000
        DoEvents
        Selection = i
    Next i
    
    '恢復交互
    Application.Interactive = True
    
    Exit Sub
ErrHandle:
    '恢復交互
    Application.Interactive = True
    MsgBox Err.Description
    
End Sub
相关推荐
Prodigy_kyw8 天前
VBA初学3----实战(VBA实现Excel转csv)
excel·vba·csv
yivifu23 天前
利用VBA将Word文档修改为符合EPUB3标准规范的HTML文件
word·vba·epub
Learn-Share_HY1 个月前
[Excel VBA]如何製作買三送一優惠條件的POS結帳介面?
excel·vba·office·自動化·自動化辦公
shandianchengzi2 个月前
【工具】Quicker/VBA|PPT 在指定位置添加有颜色的参考线
powerpoint·vba·ppt·quicker
Access开发易登软件2 个月前
Access链接Azure SQL
数据库·后端·sql·flask·vba·azure·access
专注VB编程开发20年2 个月前
在 VB6 中强制设置 Word 文档的纸张尺寸
ui·c#·word·vba·vb6
通义灵码2 个月前
在 Excel 中使用通义灵码辅助开发 VBA 程序
人工智能·阿里云·excel·vba·通义灵码
課代表2 个月前
Office 中 VBE 的共同特点与区别
word·excel·vba·office·vbe
莫负初2 个月前
Excel使用VBA批量计算指定列的中位数和标准差并筛选指定列数据
数据分析·自动化·excel·vba·方差·标准差
課代表2 个月前
Excel VBA 词频统计宏
ui·excel··vba·模块·字典