Cum debifați sau debifați toate casetele de selectare simultan în Excel?
Cum ați putea debifa sau deselecta toate casetele bifate simultan într-o foaie de lucru după cum se arată în următoarea captură de ecran? În acest articol, voi vorbi despre câteva coduri rapide pentru a-l rezolva.
Debifați sau debifați toate casetele de selectare bifate cu cod VBA
Debifați sau debifați toate casetele de selectare bifate cu cod VBA
Debifați sau debifați toate casetele bifate (Controale formular):
Dacă casetele dvs. de selectare sunt controale de formular, le puteți debifa simultan cu următorul cod VBA:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: debifați sau debifați toate casetele bifate (controale de formular):
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. Apoi apăsați F5 pentru a rula acest cod și toate casetele bifate au fost debifate simultan în foaia de lucru activă.
Debifați sau debifați toate casetele bifate (controale ActiveX):
Dacă casetele de selectare sunt controale ActiveX, vă rugăm să aplicați codul VBA de mai jos:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: debifați sau debifați toate casetele bifate (controale ActiveX):
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. Apoi apăsați F5 pentru a rula acest cod și toate casetele bifate au fost deselectate simultan în foaia de lucru activă.
Introduceți mai multe casete de selectare simultan în selecții
Kutools pentru Excel's Căsuțe de selectare pentru inserții în lot utilitarul vă poate ajuta să inserați rapid mai multe casete de selectare simultan. Faceți clic pentru a descărca Kutools pentru Excel!
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!