使此代码适用于工作簿中的所有工作表？

Question

我需要此代码才能适用于所有工作表：

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.ScreenUpdating = True
End Sub

现在我已经将它逐个添加到每个工作表中，但是如何将其添加到工作簿中以便每个工作表都有它？

Answer 1

keys: {
  // x: 'name', // it's possible to specify 'x' when category axis
  value: ['upload', 'download'],
}

这对我有用。我必须做的是改变我的对象以包括工作簿本身。我点击下拉列表查看我可用的选项，这是我找到所需的选项。

不好：Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.ScreenUpdating = True End Sub

好：Worksheet_SelectionChange