excel - 如果具有许多工作表的工作簿的 ActiveSheet 中的单元格值发生更改，则清除内容

Question

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4")) Is Nothing Then
    Range("H59:CP61").ClearContents
End If
End Sub

B4 是一个数据验证列表。我想在单元格 B4 更改时清除范围。

我尝试将代码放在“ThisWorkbook”和“模块”部分下。

我希望代码为所有工作表运行。我如何修改代码以在“ThisWorkbook”或“模块”部分下工作，而不是复制和粘贴每个工作表的代码？

代码应该只清除 B4 更改的事件表中的内容。

Answer 1

如果你想实现 Change每个可能的工作表上的事件，然后使用 _SheetChange工作簿的事件。

把代码放在这里:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Sh.Range("B4")) Is Nothing Then
        Sh.Range("H59:CP61").ClearContents
    End If
End Sub