Как очистить список DropDown в блоке с блоком VBA?

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 

Однако я хочу полностью удалить раскрывающийся список. Я пробовал. Ясно, но, похоже, это не так, как в блоке С.

Есть ли способ сделать это в блоке С?

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 функцию, когда я ..