Hoe schakel ik alle selectievakjes tegelijk in Excel uit of uit?
Hoe kunt u alle aangevinkte selectievakjes tegelijk in een werkblad in- of uitschakelen zoals in de volgende schermafbeelding wordt getoond? In dit artikel zal ik het hebben over enkele snelle codes om het op te lossen.
Schakel alle aangevinkte selectievakjes met VBA-code uit of deselecteer ze
Schakel alle aangevinkte selectievakjes met VBA-code uit of deselecteer ze
Deselecteer of deselecteer alle aangevinkte selectievakjes (Form Controls):
Als uw selectievakjes formulierbesturingselementen zijn, kunt u ze in 茅茅n keer uitschakelen met de volgende VBA-code:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: verwijder het vinkje of schakel alle aangevinkte selectievakjes uit (Form Controls):
Sub ClearCheckBoxes()
'Updateby Extendoffice
Dim chkBox As Excel.CheckBox
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.CheckBoxes
chkBox.Value = xlOff
Next chkBox
Application.ScreenUpdating = True
End Sub
3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en alle aangevinkte selectievakjes zijn tegelijk uitgeschakeld in het actieve werkblad.
Deselecteer of deselecteer alle aangevinkte selectievakjes (ActiveX-besturingselementen):
Als de selectievakjes ActiveX-besturingselementen zijn, past u de onderstaande VBA-code toe:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: schakel alle aangevinkte selectievakjes uit of deselecteer ze (ActiveX-besturingselementen):
Sub clearcheckbox()
'Updateby Extendoffcie
Dim c As Object
For Each c In ActiveSheet.OLEObjects
If InStr(1, c.Name, "CheckBox") > 0 Then
c.Object.Value = False
End If
Next
End Sub
3. Druk vervolgens op F5 toets om deze code uit te voeren, en alle aangevinkte selectievakjes zijn tegelijk gedeselecteerd in het actieve werkblad.
Voeg meerdere selectievakjes tegelijk in selecties in
Kutools for Excel's Batch invoegen selectievakjes hulpprogramma kan u helpen om snel meerdere selectievakjes tegelijk in te voegen. Klik om Kutools voor Excel te downloaden!
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!