右键单击工作表时发生此事件,此事件先于默认的右键单击操作。
语法
表达式.BeforeRightClick(Target,
Cancel)
表达式 一个代表 Worksheet 对象的变量。
参数
名称 |
必选/可选 |
数据类型 |
说明 |
Target |
必选 |
Range |
右键单击发生时最靠近鼠标指针的单元格。 |
Cancel |
必选 |
Boolean |
事件发生时为 False。如果事件过程将此参数设为 True,则在完成此过程后,不执行默认的右击单击操作。 |
说明
与其他工作表事件相似,当指针在形状或命令栏(工具栏或菜单栏)上时,右键单击不触发此事件。
示例
此示例为 B1:B10 单元格添加新的快捷菜单项。
示例代码 |
function Worksheet_BeforeRightClick(Target, Cancel) {
let icbc = Application.CommandBars.Item("cell").Controls
for(let i = 1; i <= icbc.Count; i++) {
if(icbc.Item(i).Tag == "brccm") {
icbc.Item(i).Delete()
}
}
if(Application.Intersect(Target, Range("b1:b10")) != null) {
icbc.Add(msoControlButton, undefined, undefined, 6, true)
icbc.Caption = "New Context Menu Item"
icbc.OnAction = "MyMacro"
icbc.Tag = "brccm"
}
}
|