组合多个Worksheet_Changemacros

我正在尝试组合多个工作表_变换macros（请参阅下面的代码）。 我的目标是每当“目标”范围（合并的下拉列表单元格）发生变化时，下面的范围（再次合并的单元格）将被清除。 我需要这样做，当多个不同的单元格更改，因此多个工作表更改代码。

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("J1:O1")) Is Nothing Then Exit Sub Application.EnableEvents = False Range("J2:O3").ClearContents Range("D15:E15").ClearContents Range("B16:E16").ClearContents Range("B17:E19").ClearContents Range("D20:E20").ClearContents Range("B21:E21").ClearContents Range("B22:E24").ClearContents Range("D25:E25").ClearContents Range("B26:E26").ClearContents Range("B27:E29").ClearContents Range("D30:E30").ClearContents Range("B31:E31").ClearContents Range("B32:E34").ClearContents Range("B3:H14").ClearContents Application.EnableEvents = True End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("J2:K2")) Is Nothing Then Exit Sub Application.EnableEvents = False Range("J3:K3").ClearContents Application.EnableEvents = True End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("L2:M2")) Is Nothing Then Exit Sub Application.EnableEvents = False Range("L3:M3").ClearContents Application.EnableEvents = True End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("N2:O2")) Is Nothing Then Exit Sub Application.EnableEvents = False Range("N3:O3").ClearContents Application.EnableEvents = True End Sub 

Answer 1

下面的代码只是你的代码放在一个Sub与多个If statements 。 唯一的变化是If现在是一个If Not如果有一个Intersect然后Exit sub ，它将处理代码。

下面的代码将做的伎俩：

 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("J1:O1")) Is Nothing Then Application.EnableEvents = False Range("J2:O3").ClearContents Range("D15:E15").ClearContents Range("B16:E16").ClearContents Range("B17:E19").ClearContents Range("D20:E20").ClearContents Range("B21:E21").ClearContents Range("B22:E24").ClearContents Range("D25:E25").ClearContents Range("B26:E26").ClearContents Range("B27:E29").ClearContents Range("D30:E30").ClearContents Range("B31:E31").ClearContents Range("B32:E34").ClearContents Range("B3:H14").ClearContents Application.EnableEvents = True Exit Sub End If If Not Intersect(Target, Range("J2:K2")) Is Nothing Then Application.EnableEvents = False Range("J3:K3").ClearContents Application.EnableEvents = True Exit Sub End If If Not Intersect(Target, Range("L2:M2")) Is Nothing Then Application.EnableEvents = False Range("L3:M3").ClearContents Application.EnableEvents = True Exit Sub End If If Not Intersect(Target, Range("N2:O2")) Is Nothing Then Application.EnableEvents = False Range("N3:O3").ClearContents Application.EnableEvents = True Exit Sub End If End Sub 

Answer 2

 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("J1:O1")) Is Nothing Then Application.EnableEvents = False Range("J2:O3").ClearContents Range("D15:E15").ClearContents Range("B16:E16").ClearContents Range("B17:E19").ClearContents Range("D20:E20").ClearContents Range("B21:E21").ClearContents Range("B22:E24").ClearContents Range("D25:E25").ClearContents Range("B26:E26").ClearContents Range("B27:E29").ClearContents Range("D30:E30").ClearContents Range("B31:E31").ClearContents Range("B32:E34").ClearContents Range("B3:H14").ClearContents Application.EnableEvents = True End If If Not Intersect(Target, Range("J2:K2")) Is Nothing Then Application.EnableEvents = False Range("J3:K3").ClearContents Application.EnableEvents = True End If If Not Intersect(Target, Range("L2:M2")) Is Nothing Then Application.EnableEvents = False Range("L3:M3").ClearContents Application.EnableEvents = True End If If Not Intersect(Target, Range("N2:O2")) Is Nothing Then Application.EnableEvents = False Range("N3:O3").ClearContents Application.EnableEvents = True End If End Sub