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 SubBemæ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 Sub3. 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?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
