Удаление динамического выпадающего списка в excel с помощью vba

Question

Я заполняю динамическое выпадающее меню в excel. Когда мое значение Digital, я заполняю некоторые значения в соседней ячейке, а когда это другое значение, он должен удалить это выпадающее меню и отключить ячейку.

Может кто-нибудь помочь мне в этом?

Answer 1

Как насчет этого?

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Target.Address Like "*A*" And Target.Cells.Count = 1 Then 

     If Application.WorksheetFunction.IsNumber(Target.Value) Then 
      With Target.Offset(0, 1) 
       .Validation.Add Type:=xlValidateList, Formula1:="Item1, Item2" 
       .Value = "Item1" 
       .Locked = False 
      End With 
     Else 
      With Target.Offset(0, 1) 
       .Validation.Delete 
       .Value = "" 
       .Locked = True 
      End With 
     End If 
    End If 

    End Sub