Sådan ryddes indholdet af kombinationsboksen med VBA-kode i Excel?

Normalt kan du rydde indholdet af en kombinationsboks ved at rydde dataene om inputområdet. Men hvad med at rydde indholdet af alle kombinationsfelter i et Excel-regneark? Denne artikel forbereder to VBA-koder, der hjælper dig med ikke kun at rydde indholdet i en kombinationsboks, men også at rydde indholdet i alle kombinationsbokse på samme tid i et Excel-regneark.

Ryd let indholdet af kombinationsboksen efter VBA-kode

---

Ryd let indholdet af kombinationsboksen efter VBA-kode

De nedenstående to VBA-koder kan hjælpe dig med at rydde indholdet af en kombinationsboks eller alle kombinationsbokse i det aktive regneark. Gør som følger.

1. I regnearket skal du rydde indholdet af en kombinationsboks. Tryk på andre + F11 nøgler på samme tid for at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter nedenunder VBA-kode til kodevinduet.

VBA 1: Ryd indholdet af en kombinationsboks i regnearket

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

Bemærk: I koden er "Drop Down 2" navnet på kombinationsboksen, som du rydder indholdet fra. Skift det til dit eget.

VBA 2: Ryd indholdet af alle kombinationsbokse i det aktive regneark

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. Tryk på F5 eller klik på knappen Kør for at køre koden.

Derefter kan du se, at indholdet er ryddet i det angivne kombinationsfelt eller alle kombinationsfelter i det aktive regneark som vist nedenstående skærmbillede:

Bemærk: VBA-koder kan anvendes på både Combo Box (Form Control) og Combo Box (ActiveX Control).

---

Relaterede artikler:

• Hvordan ryddes indhold og formatering på samme tid i celler i Excel?
• Hvordan ryddes indholdet af det navngivne interval i Excel?
• Hvordan ryddes begrænsede værdier i celler i Excel?
• Hvordan ryddes specificeret celleindhold, hvis værdien af ​​en anden celle ændres i Excel?
• Hvordan ryddes specificeret celleindhold ved åbning og afslutning i Excel-projektmappe?