Hur rensar man innehållet i kombinationsrutan med VBA-kod i Excel?

Normalt kan du rensa innehållet i en kombinationsruta genom att rensa data för ingångsområdet. Men vad sägs om att rensa innehållet i alla kombinationsrutor i ett Excel-kalkylblad? Den här artikeln förbereder två VBA-koder som hjälper dig att inte bara rensa innehållet i en kombinationsruta utan också rensa innehållet i alla kombinationsrutor samtidigt i ett Excel-kalkylblad.

Rensa enkelt innehållet i kombinationsrutan med VBA-kod

---

Rensa enkelt innehållet i kombinationsrutan med VBA-kod

Nedanstående två VBA-koder kan hjälpa dig att rensa innehållet i en kombinationsruta eller alla kombinationsrutor i det aktiva kalkylbladet. Gör så här.

1. I kalkylbladet måste du rensa innehållet i en kombinationsruta, tryck på andra + F11 tangenter samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera sedan VBA-koden nedan till kodfönstret.

VBA 1: Rensa innehållet i en kombinationsruta i kalkylbladet

Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
    .ListFillRange = ""
End With
End Sub

Anmärkningar: I koden är "Drop Down 2" namnet på kombinationsrutan du rensar innehållet från. Ändra det till ditt eget.

VBA 2: Rensa innehållet i alla kombinationsrutor i det aktiva kalkylbladet

Sub ClearComboBox()
    Dim xOle As OLEObject
    Dim xDrop As DropDown
    Application.ScreenUpdating = False
    For Each xOle In ActiveSheet.OLEObjects
        If TypeName(xOle.Object) = "ComboBox" Then
            xOle.ListFillRange = ""
        End If
    Next
    For Each xDrop In ActiveSheet.DropDowns
        xDrop.ListFillRange = ""
    Next
    Application.ScreenUpdating = True
End Sub

3. tryck på F5 eller klicka på Kör för att köra koden.

Då kan du se att innehållet rensas i den angivna kombinationsrutan eller i alla kombinationsrutor i det aktiva kalkylbladet enligt nedanstående skärmdump:

Anmärkningar: VBA-koder kan tillämpas på både Combo Box (Form Control) och Combo Box (ActiveX Control).

---

Relaterade artiklar:

• Hur rensar man innehåll och formatering samtidigt i celler i Excel?
• Hur rensar man innehållet i namnet i Excel?
• Hur rensar man begränsade värden i celler i Excel?
• Hur rensar du specificerat cellinnehåll om värdet för en annan cell ändras i Excel?
• Hur rensar du specificerat cellinnehåll vid öppning och avslutning i Excel-arbetsbok?