vba를 사용하여 Excel에서 동적 드롭 다운 삭제

Question

Excel에서 동적 드롭 다운을 채우고 있습니다. 내 값이 디지털 인 경우 인접 셀에 일부 값을 채 웁니다. 다른 값인 경우 해당 드롭 다운을 삭제하고 셀을 비활성화해야합니다.

누군가 나를 도와 줄 수 있습니까?

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