Доброе утро,

Я пытаюсь написать код в 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

1 ответ1

0

Попробуй это:

   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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .