使用vba删除excel中的动态下拉列表

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