VBA中能否覆盖右键触发的Selection Change事件及区分两类操作？

1. 右键点击时能否覆盖SelectionChange事件？ #

无法直接"覆盖"SelectionChange事件本身，但可以通过标记变量控制事件内的逻辑执行，实现右键点击时跳过事件的原有处理代码。

2. 如何区分右键点击操作与SelectionChange事件？ #

通过结合事件触发顺序或快捷键捕获，配合全局变量标记，就能精准区分触发SelectionChange的原因：

方案一：利用工作表BeforeRightClick事件标记 #

在目标工作表的模块中添加以下代码：

Private isRightClickTriggered As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 判断是否为右键触发的选中事件，是则跳过逻辑
    If isRightClickTriggered Then
        isRightClickTriggered = False ' 重置标记
        Exit Sub
    End If
    ' 此处编写你的SelectionChange原有业务逻辑
    Debug.Print "正常选中单元格触发事件"
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    isRightClickTriggered = True ' 标记当前为右键操作
    ' 若需要禁用默认右键菜单，取消下面一行注释
    ' Cancel = True
End Sub

原理：右键点击时会先触发Worksheet_BeforeRightClick，设置标记变量；后续触发的SelectionChange事件会读取标记，跳过原有逻辑后重置标记。

方案二：捕获右键快捷键（全局场景适用） #

在标准模块中添加代码，绑定右键快捷键的捕获：

Public isRightKeyPressed As Boolean

Sub InitRightKeyCapture()
    ' 绑定右键菜单的两个快捷键：Shift+F10 和 应用键（键盘右键）
    Application.OnKey "+{F10}", "MarkRightClick"
    Application.OnKey "{AppsKey}", "MarkRightClick"
End Sub

Sub MarkRightClick()
    isRightKeyPressed = True
End Sub

然后在工作表的SelectionChange事件中判断：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If isRightKeyPressed Then
        isRightKeyPressed = False
        Exit Sub
    End If
    ' 此处编写你的SelectionChange原有业务逻辑
End Sub

注意：需在工作簿打开时执行InitRightKeyCapture，可放在ThisWorkbook的Open事件中：

Private Sub Workbook_Open()
    InitRightKeyCapture
End Sub

内容的提问来源于stack exchange，提问作者Philippe Zivan Sussholz