Hoe de inhoud van de keuzelijst met invoervak met VBA-code in Excel te wissen?
Normaal gesproken kunt u de inhoud van een keuzelijst met invoervak wissen door de lijstgegevens van het invoerbereik te wissen. Maar hoe zit het met het wissen van de inhoud van alle keuzelijsten met invoervak in een Excel-werkblad? Dit artikel bereidt twee VBA-codes voor om u te helpen niet alleen de inhoud van een keuzelijst met invoervak te wissen, maar ook de inhoud van alle keuzelijsten met invoervak tegelijk in een Excel-werkblad te wissen.
Wis de inhoud van de keuzelijst met invoervak eenvoudig door VBA-code
Wis de inhoud van de keuzelijst met invoervak eenvoudig door VBA-code
De onderstaande twee VBA-codes kunnen u helpen de inhoud van een keuzelijst met invoervak of alle keuzelijsten met invoervak in een actief werkblad te wissen. Ga als volgt te werk.
1. In het werkblad moet u de inhoud van een keuzelijst met invoervak wissen. Druk op anders + F11 toetsen tegelijkertijd openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.
VBA 1: de inhoud van een keuzelijst met invoervak in het werkblad wissen
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End Sub
Note: In de code is "Drop Down 2" de naam van de keuzelijst waarvan u de inhoud wilt wissen. Wijzig deze in uw eigen.
VBA 2: Wis de inhoud van alle keuzelijsten met invoervak in een actief werkblad
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. druk de F5 toets of klik op de knop Uitvoeren om de code uit te voeren.
Vervolgens kunt u zien dat de inhoud is gewist in de opgegeven keuzelijst met invoervak of alle keuzelijsten met invoervak in het actieve werkblad, zoals onderstaand screenshot:
Note: de VBA-codes kunnen worden toegepast op zowel Combo Box (Form Control) als Combo Box (ActiveX Control).
Gerelateerde artikelen:
- Hoe inhoud en opmaak tegelijkertijd in cellen in Excel wissen?
- Hoe de inhoud van het benoemde bereik in Excel te wissen?
- Hoe beperkte waarden in cellen in Excel te wissen?
- Hoe de gespecificeerde celinhoud wissen als de waarde van een andere cel in Excel verandert?
- Hoe de gespecificeerde celinhoud wissen bij openen en afsluiten in Excel-werkmap?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!