选择新值后重置下拉菜单

【问题标题】：Reset drop down after selecting new value选择新值后重置下拉菜单
【发布时间】：2020-04-28 11:39:24
【问题描述】：

我发布的代码有什么问题

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long

For i = 1 To 100


If Target.Address = "$C$i" Then


Range("Di:EI") = " "

End If

Next

End Sub

【问题讨论】：

标签： excel vba developer-tools

【解决方案1】：

i 是一个变量，但您没有在代码中使用它。

这两行应该如下所示：

If Target.Address = "$C$" & i Then


Range("D" & i & ":E" & i) = " "

这样，结果字符串使用i 的值而不是字母i。

我还假设您的意思是 Ei 而不是 EI（这也是错误的）所以我也修复了这个问题。

【讨论】：

【解决方案2】：

你们很亲密：

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim i As Long
    Application.EnableEvents = False
        For i = 1 To 100
            If Target.Address = "$C$" & i Then
                Range("D" & i & ":E" & i) = " "
            End If
        Next i
    Application.EnableEvents = True
End Sub

【讨论】：

非常感谢您的联邦快递回复，它按预期工作