Excel VBA外接程序是否支持Worksheet_SelectionChange事件？

这个需求完全可实现，不需要将代码写入目标工作簿的工作表模块，VBA外接程序可以通过应用级事件监听捕获所有打开工作表的选择变更事件，具体实现步骤如下：

第一步：创建事件监听类模块 #

在外接程序的VBA工程中插入类模块，命名为clsAppEvents，写入以下代码：

' 类模块：clsAppEvents
Public WithEvents App As Application

' 应用级工作表选择变更事件，所有打开工作簿的工作表选中变化都会触发此事件
Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' 过滤非工作表对象（排除图表、宏表等类型）
    If TypeName(Sh) <> "Worksheet" Then Exit Sub
    
    ' 自定义校验逻辑，确认是外接程序生成的目标工作簿/工作表
    ' 示例：可判断工作表是否有你预设的特殊名称、自定义属性标记
    ' If Sh.CustomProperties("MyPivotReport") Is Nothing Then Exit Sub
    
    ' 校验选中单元格值是否符合触发条件
    If Target.Cells.Count = 1 And (Target.Value = "Kolli" Or Target.Value = "Vikt") Then
        ' 调用你已完成的排序逻辑即可，Sh和Target参数可直接传入排序方法
    End If
End Sub

第二步：初始化事件监听实例 #

在外接程序的ThisWorkbook模块中写入以下代码，在外接程序启动时自动绑定应用级事件：

' ThisWorkbook 模块
Dim AppEventInstance As New clsAppEvents

Private Sub Workbook_Open()
    ' 将监听对象绑定到当前Excel应用实例
    Set AppEventInstance.App = Application
End Sub

注意事项 #

• 建议给外接程序生成的透视表工作表添加专属标记（比如自定义文档属性、隐藏名称），避免用户操作其他工作簿时误触发排序逻辑
• 事件监听仅在外接程序运行时生效，不会对用户的原有文件造成任何修改
• 如果需要兼容多工作簿同时打开的场景，可在校验逻辑中增加工作簿名称/自定义属性的判断

内容的提问来源于stack exchange，提问作者Andreas