通过

Worksheet.BeforeRightClick 事件 (Excel)

  • 项目

右键单击工作表时发生此事件，此事件先于默认的右键单击操作。

语法

表达式。BeforeRightClick (Target 、 Cancel)

表达 一个代表 Worksheet 对象的变量。

参数

名称 必需/可选 数据类型 说明
Target 必需 区域 右键单击发生时最靠近鼠标指针的单元格。
Cancel 必需 Boolean False 在事件发生时。 如果事件过程将此参数设为 True，则在完成此过程后，不执行默认的右击单击操作。

备注

与其他工作表事件相似，当指针在形状或命令栏（工具栏或菜单栏）上时，右键单击不触发此事件。

示例

此示例为 B1:B10 单元格添加新的快捷菜单项。

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ 
 Cancel As Boolean) 
 Dim icbc As Object 
 For Each icbc In Application.CommandBars("cell").Controls 
 If icbc.Tag = "brccm" Then icbc.Delete 
 Next icbc 
 If Not Application.Intersect(Target, Range("b1:b10")) _ 
 Is Nothing Then 
 With Application.CommandBars("cell").Controls _ 
 .Add(Type:=msoControlButton, before:=6, _ 
 temporary:=True) 
 .Caption = "New Context Menu Item" 
 .OnAction = "MyMacro" 
 .Tag = "brccm" 
 End With 
 End If 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。