如何更改工作表宏以在Excel中的整个工作簿上运行双击子过程

Question

我有一个宏，当我双击一个单元格时，它会插入一个复选标记。我经常使用它，并希望加载并运行每张表，但我不知道要在我的Personal.XLSB中有什么改变。或者，我想编码它所以它适用于所有表格工作手册。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:Z500")) Is Nothing Then
Application.EnableEvents = False
If Target.Value = ChrW(&H2713) Then
    Target.ClearContents
    Cancel = True
Else
    Target.Value = ChrW(&H2713)
    Cancel = True
End If
End If
    Application.EnableEvents = True
End Sub

非常感谢，如果有人可以帮助我，我已经尝试了一些事情，但它不起作用。

Answer 1

现在假设您要将此代码应用于所有工作表，因此您无需为所有工作表逐个创建此代码。只需在VBE中，双击ThisWorkbook（左侧浏览器），然后在右侧窗口中选择左侧下拉列表中的Workbook，右侧下拉列表中可以访问所有事件您可以使用工作表，不同之处在于它们以sheet而不是worksheet开头，因此对于这个，您应该选择SheetBeforeDoubleClick。将代码内容粘贴到那里，该代码将适用于您的所有工作表，甚至是粘贴此代码后创建的工作表。