Question

为了防止数据不匹配，我已经成功地使用下面的代码根据下拉列表的更改清除了间接单元格的内容。

例如，我的第一个下拉单元格是D2并具有3个选项，当选择一个选项时，我的第二个单元格F2（基于命名范围）将更改以显示特定于所选选项的选项。当用户更改D2中的第一个选项时，代码将触发并清除F2的内容，因此可以进行新的选择以防止数据不匹配。

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    'Clear Adjustment Reasons if there is a change of Type'

    If Target.Address = "$D$2" Then
    If Target.Validation.Type = "$F$2" Then
    Application.EnableEvents = False
    Target.Offset(0, 2).ClearContents
    End If
    End If
    exitHandler:
    Application.EnableEvents = True
    Exit Sub
    End Sub

我现在想做的就是扩展它，以便它可以在工作表上工作，其中下拉列表位于一列的每个单元格中（范围从M7：M500），而间接下拉列表位于（范围从N7：N500）

因此，当用户在M范围内的任何单元格中更改原始选项时，同一行中相应的N个单元格将被清除。

有人知道我可以通过任何示例来完成这项工作吗？

Excel VBA清除列范围内的间接下拉单元格

0 个答案: