Question

我有这段代码：

Sub addDropdown(Name)
    ActiveSheet.DropDowns.Add(74.25, 60, 188.25, 87.75).Select
    Set n = ActiveSheet.DropDowns(Name)
    If Not (n Is Nothing) Then
        ActiveSheet.DropDowns(Name).Delete
    End If
    With Selection
        .ListFillRange = "$K$15:$M$19"
        .LinkedCell = "$K$8:$L$11"
        .DropDownLines = 6
        .Display3DShading = False
        .Name = Name
    End With
    ActiveSheet.DropDowns(Name).Display3DShading = True
End Sub

导致“运行时错误1004：无法获取Worksheet类的DropDowns属性”

我是VBA菜鸟，为什么它会引用一个属性？根据对象浏览器DropDowns是一个函数（虽然以后不再使用.Add）。

此外，我可以在稍后向DropDowns添加内容后访问此内容。我只是不明白。

我想要做的是删除任何已存在的同名下拉列表。

Answer 1

如果命名的Dropdown不存在，您需要处理错误

on error resume next
Set n = ActiveSheet.DropDowns(Name)
on error goto 0

VBA中的Excel下拉列表：“无法获取Worksheet类的DropDowns属性”

1 个答案: