Hvordan fjernes eller afmarkeres alle afkrydsningsfelter på én gang i Excel?
Hvordan kunne du fjerne markeringen eller fravælge alle markerede afkrydsningsfelter på én gang i et regneark som vist nedenstående skærmbillede? I denne artikel vil jeg tale om nogle hurtige koder for at løse det.
Fjern markeringen eller fravælg alle markerede afkrydsningsfelter med VBA-kode
Fjern markeringen eller fravælg alle markerede afkrydsningsfelter med VBA-kode
Fjern markeringen eller fravælg alle markerede afkrydsningsfelter (Form Controls):
Hvis dine afkrydsningsfelter er formkontroller, kan du fjerne markeringen med én gang med følgende VBA-kode:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Fjern markeringen eller fravælg alle markerede afkrydsningsfelter (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. Tryk derefter på F5 nøgle til at køre denne kode, og alle markerede afkrydsningsfelter er ikke markeret med det samme i det aktive regneark.
Fjern markeringen eller fravælg alle markerede afkrydsningsfelter (ActiveX-kontrol):
Hvis afkrydsningsfelterne er ActiveX-kontrolelementer, skal du anvende nedenstående VBA-kode:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Fjern markeringen eller fravælg alle markerede afkrydsningsfelter (ActiveX-kontrol):
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. Tryk derefter på F5 nøgle til at køre denne kode, og alle markerede afkrydsningsfelter er fravalgt på én gang i det aktive regneark.
Indsæt flere afkrydsningsfelter i markeringer på én gang
Kutools til Excel's Batchindsats afkrydsningsfelter hjælpeprogram kan hjælpe dig med hurtigt at indsætte flere afkrydsningsfelter på én gang. Klik for at downloade Kutools til Excel!
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!