在 Add-in Excel 的 ThisWorkbook 模块中,添加以下代码:
Private WithEvents app As Excel.Application
Private Sub Workbook_Open()
Set app = Excel.Application
End Sub
Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'你需要执行的操作
End Sub
然后,在 Add-in Excel 中的代码模块中,你可以通过订阅 app_SheetSelectionChange 事件来捕获 Worksheet_SelectionChange 的行为。 需要注意的是,在订阅事件时,需要在 ThisWorkbook 模块中声明“Private WithEvents app As Excel.Application”这个变量,并在 Workbook_Open 事件中为其赋值。否则,该事件会失效。