如何在 VBA 的 With 块中清除下拉列表？

Question

我有一个 With 块，它有一个条件来查看下拉列表中是否存在值。

   With wb.Sheets("BudgetLines").DropDowns("Drop Down 22")

    For Each c In refData.Range("G7:G" & LastRow_RefData).Cells

    Set Findo = wb.Sheets("BudgetLines").Cells.Find(c.Value, LookIn:=xlValues, _
                        SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
                        MatchCase:=False, SearchFormat:=False)






    If Findo Is Nothing Then
                Debug.Print "Name was not found."

                'DropDowns("Drop Down 22").Clear
            Else
               Debug.Print "Name found in :" & Findo.Address

                'Add title to drop down box
                .AddItem c.Value

            End If

    Next


End With

但是，我想完全清除下拉列表。我已经尝试过 .Clear 但它似乎没有收到，因为它位于 With 块中。

有没有办法在 With 块中做到这一点？

Answer 1

您需要RemoveAllItems 函数

Dim dd As DropDown
Set dd = wb.Sheets("BudgetLines").DropDowns("Drop Down 22")

With dd
    .RemoveAllItems
End With

看到这一点的诀窍是声明一个变量Dim dd As DropDown，它让我在. 时看到RemoveAllItems 函数。