如何将 Excel 事件处理程序应用于所有工作表?

Question

我创建了VBA，用于操作当前工作表中的单元格(由SelectionChange事件处理程序触发(。

如何在工作簿中的任何工作表中设置此触发器？(该操作应仅对当前处于活动状态的工作表做出反应和修改。

下面是一个示例：它获取当前单元格的值，并将其复制到"A1"：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 1).Value = Cells(Target.Row, Target.Column).Value
End Sub

(真正的代码相当复杂 - 并且恒定的WiP - 所以我真的不想将其复制到每个工作表中。

Answer 1

使用 Workbook_SheetSelectionChange 而不是 Worksheet_SelectionChange 似乎有效。

但应该注意的是，脚本必须放入ThisWorkbook代码窗口(而不是 Sheet1 的代码窗口(。