Question

我在Sheet1上有一个包含下拉列表的单元格，比方说N3。下拉列表中的项目会更改，具体取决于J3中的值。一开始，两个单元格都是空白的。在J3中输入数据，下拉列表填入N3。如果我清除J3的内容，N3中的下拉列表现在为空，但最后选择的值（如果选择了一个）仍然显示为“重影”条目。这是一个鬼入门，因为它是旧数据，但我知道该软件正在按设计进行。如果J3被清除了内容，我如何清除N3的最后一个选择？我不是VBA训练过的，但是如果这就是完成这项任务所需要的那么危险到足以处理它。谢谢！

Answer 1

您可以考虑使用worksheet_change事件。在sheet1代码模块中输入以下代码。

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo err_rout

    Application.EnableEvents = False

    If Not Intersect(Range("J3"), Target) Is Nothing And Target.Value = vbNullString Then
        Range("N3").Value = vbNullString
    End If

err_rout:
    Application.EnableEvents = True
End Sub

Excel根据正在清除的另一个单元格清除下拉内容

1 个答案: