当从 Excel 中的下拉菜单中选择一个选项时清除一个值（VBA）

Question

早上好，

我正在尝试在 VBA 中编写一个代码，当从 D2 的下拉菜单中进行选择时，它将清除 E2 和 F2 中的任何值而不删除格式。

我已尝试跟进，但由于某种原因，我无法获得任何结果。

   Option Explicit
     Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("D")) Is Nothing Then
             If Target.Address = "$D$2" Then
             Range("E:F" & Target.Row).ClearContents
             End If
         End If
      End Sub

Answer 1

尝试这个：

   Option Explicit
     Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("D2")) Is Nothing Then
             Range("E" & Target.Row & ":F" & Target.Row).ClearContents
        End If
      End Sub

或者，如果你想检查其他行的内容，那么也许

   Option Explicit
     Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("D")) Is Nothing Then
             If Target.Row = 2 Then
                Range("E" & Target.Row & ":F" & Target.Row).ClearContents
             End If
             If Target.Row = 4 Then
                ' do some other stuff
             End If
         End If
      End Sub