1

我在 Sheet1 上有一个包含下拉列表的单元格,比如说 N3。下拉列表中的项目会根据 J3 中的值发生变化。开始时,两个单元格都是空白的。在 J3 中输入数据,下拉列表将填充到 N3 中。如果我清除 J3 的内容,N3 中的下拉列表现在为空,但最后选择的值(如果选择了一个)仍然显示为“幽灵”条目。这对我来说是一个幽灵条目,因为它是旧数据,但我确实理解该软件正在按设计运行。如果清除 J3 的内容,我如何让 N3 清除最后的选择?我没有受过 VBA 培训,但如果这是完成此任务所需要的,我可以处理它。谢谢!

4

1 回答 1

3

您可以考虑使用 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
于 2013-10-11T19:47:35.103 回答