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

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

如何在工作簿中的任何工作表中触发此触发器？（操作应仅对当前活动的工作表作出反应和修改。）

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

（真正的代码要复杂得多，而且是恒定的在制品，所以我不想把它复制到每一张工作表上。）

使用而不是工作表选择更改似乎有效

---

但是需要注意的是，脚本必须放在ThisWorkbook代码窗口（而不是Sheet1的代码窗口）中。

您试过了吗。。因此，它将类似于

Private Sub Workbook\u sheet selectionchange（ByVal Sh作为对象，ByVal Target作为范围）单元格（1，TargetColumn+1）。Value=单元格（Target.Row，Target.Column）。Value End Sub

将其复制到“A1”？？不那么为什么。

单元格（1，TargetColumn+1）。值

而不是

单元格（1,1）

？。另外，您可以将其作为

Target

而不是

单元格（Target.Row，Target.Column）引用。Value

它是VBA而不是VBScript。

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