首页 > 解决方案 > 同一操作的 VBA 多个 Target.Address (OR)

问题描述

在工作表中,我有两个下拉列表(单元格 C7 和 C68),每个下拉列表在下面的单元格中都有一个从属下拉列表。我有一个代码(如下),如果我更改上面列表中的选择(以便列表不会不匹配),它将清除依赖下拉列表的单元格,但是我只能让它为那个工作工作表中的下拉菜单。如果我使用“父”列表更改任何一个单元格,我该如何修改它以使其有效?

.

现有代码:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$7" Then
If Target.Validation.Type = 3 Then
Application.EnableEvents = True
Target.Offset(1, 0).Value = ""
End If
End If
exitHandler:
Application.EnableEvents = True
Exit Sub

标签: excelvbalist

解决方案


全部修复 - 对于也有此问题的任何人,正确的代码是:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$7" Or Target.Address = "$C$68" Then
If Target.Validation.Type = 3 Then
Application.EnableEvents = False
Target.Offset(1, 0).Value = ""
End If
End If
exitHandler:
Application.EnableEvents = True
Exit Sub
End Sub

推荐阅读