Note: The other languages of the website are Google-translated. Back to English

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.

dok fjern markering af afkrydsningsfelter 1

Fjern markeringen eller fravælg alle markerede afkrydsningsfelter med VBA-kode


pil blå højre boble 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!


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (14)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
mange tak for denne vba-kode, hjalp meget.

FYI for folk, der ikke får det til at fungere ved at trykke på F5, simpelthen:

udviklerfanen > makroer > vælg det modul, der lige er oprettet, og klik på indstillinger > skriv et tegn til genvejen, såsom ctrl+j eller ctrl+k.
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for din hjælp med dette. Det er meget værdsat. Bemærk dog venligst: STAVET ER FORKERT I KODEN FOR TRIN #2. VBA-kode: Fjern markeringen i eller fravælg alle afkrydsede afkrydsningsfelter (ActiveX Controls):
Sub clearcheckbox()
'Opdatering af Extendoffcie
Dim c som objekt
For hver c I ActiveSheet.OLEObjects
Hvis InStr(1, c.Name, "CheckBox") > 0 Så
c.Object.Value = Falsk
End If
Næste
End Sub

BEMÆRK VENLIGST ORDET "Extendoffcie" IKKE ER STATET KORREKT. SKAL DET IKKE VÆRE"Extendoffice"?? Anyway, ville bare lige sætte det derude
Denne kommentar blev minimeret af moderatoren på webstedet
Hvad hvis jeg ville bruge en knap til at aktivere makroen for at rydde boksene?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Ariel,
For at bruge en knap til at aktivere makroen skal du først indsætte en knap fra rullelisten Former og derefter højreklikke på knappen, vælge Tildel makro i kontekstmenuen og derefter vælge makronavnet i dialogboksen Tildel makro . Klik derefter på OK, og makrokoden vil blive knyttet til knappen.
Prøv venligst, håber det kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan fjerner jeg kun markeringen af ​​felterne i et bestemt celleområde i det aktive ark? Jeg har 3 lister i ét ark (Daglige/Ugentlige/Månedlige opgaver) og ønskede at lave en "Slet alt"-knap for hver liste.
Denne kommentar blev minimeret af moderatoren på webstedet
Stor hjælp! tak skal du have!
Denne kommentar blev minimeret af moderatoren på webstedet
OMG TAK, DENNE WEBSTED ER EN LIVREDDNING :)
Denne kommentar blev minimeret af moderatoren på webstedet
Merci beaucoup d'avoir partagé le code pour décocher des éléments "CheckBox", cela m'a sauvé ! :o)En effet, en codant un formulaire de saisie fait dans une feuille, je cherchais à trouver un moyen de décocher les cases (en guise de réinitialisation du formulaire) et je ne trouvais pas (a part avec la méthode "Select" qui est, comme nous le savons tous, à bannir), tout simplement car :=> la propriété ".CheckBoxes" n'existe pas en propriété d'une "Worksheet" !=> l'Objet "CheckBoxes" ne figure pas non plus dans l'explorateur d'objets !C'est lunaire cette histoire...Alors merci énormément.Bien à vous.
Denne kommentar blev minimeret af moderatoren på webstedet
Bonjour Lindas,
Je vous en prie. Heureux que cela aide. Pour toute spørgsmål, n'hésitez pas à nous contacter. Passe une bonne journée.
Venlig hilsen
Mandy
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 er ikke aktiveret

Privat underafkrydsningsfelt2_Klik()
Hvis CheckBox2 = Sand Så
CheckBox1 = Falsk
End If
End Sub
Privat underafkrydsningsfelt1_Klik()
Hvis CheckBox1 = Sand Så
CheckBox2 = Falsk
End If
End Sub

Tak for din hjælp
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Siegfried
Hvis du vil markere en og deaktivere en anden, skal du anvende nedenstående kode:
Bemærk: Afkrydsningsfeltet her skal du bruge afkrydsningsfeltet ActiveX Control.
Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
End Sub

Prøv venligst, håber det kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan ryddes alle afkrydsningsfelter på alle regneark?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Ramon

For at fjerne alle afkrydsningsfelterne på tværs af alle ark skal du anvende nedenstående koder:
Fjern markeringen i alle afkrydsningsfelter fra alle ark (formularkontroller):
Sub Uncheckallcheckboxes()
    Dim sh As Worksheet
    For Each sh In Sheets
        On Error Resume Next
            sh.CheckBoxes.Value = False
        On Error GoTo 0
    Next sh
End Sub


Fjern markeringen i alle afkrydsningsfelter fra alle ark (ActiveX Controls):
Sub uncheck_all_ActiveX_checkboxes()
    Dim ws As Worksheet
    Dim xbox As OLEObject
    For Each ws In ThisWorkbook.Worksheets
        For Each xbox In ws.OLEObjects
            ws.OLEObjects(xbox.Name).Object.Value = False
        Next
    Next
End Sub


Prøv venligst, håber dette kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan fjerner jeg alle afkrydsningsfelter på alle regneark?
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL