在Excel工作表中鼠标右击将会打开关联菜单,使用该菜单能够对单元格进行快速操作。。具体的程序代码:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,Cancel As Boolean)
If Not Application.Intersect(Target,Range("A1:G3"))Is Nothing Then Cancel=True
End Sub
图1 在“代码”窗口中输入程序
提示
当鼠标右击时将触发Worksheet对象的BeforeRightClick事件,其中的参数Target代表鼠标右击时最靠近鼠标指针的单元格。这里使用Intersect函数来确定Target单元格区域是否与A1:G3单元格区域有交叉。。
图2 不再出现右键关联菜单