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

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.

Læs mere ... Gratis download... Køb...

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!

Læs mere ... Gratis download... Køb...

Kommentarer (14)

Ingen vurderinger endnu. Vær den første til at bedømme!

biqBob

omkring 4 år siden

#25238

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.

Svar

R. Rothman biqBob

omkring 2 år siden

#25239

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

Svar

Ariel

omkring 3 år siden

#31682

Denne kommentar blev minimeret af moderatoren på webstedet

Hvad hvis jeg ville bruge en knap til at aktivere makroen for at rydde boksene?

Svar

skyyang Ariel

omkring 3 år siden

#31683

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!

Se vedhæftede filer (1 / 5)

Svar

Rapport

juni

omkring 2 år siden

#33393

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.

Svar

Reika

cirka 1 år siden

#36759

Denne kommentar blev minimeret af moderatoren på webstedet

Stor hjælp! tak skal du have!

Svar

cirka 1 år siden

#36814

Denne kommentar blev minimeret af moderatoren på webstedet

OMG TAK, DENNE WEBSTED ER EN LIVREDDNING :)

Svar

Linds

cirka 1 år siden

#37278

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.

Svar

MandyZhou Linds

cirka 10 måneder siden

#37279

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

Svar

Rapport

Pfleger Siegfried

cirka 5 måneder siden

#39962

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

Svar

skyyang Pfleger Siegfried

cirka 5 måneder siden

#39993

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!

Svar

Rapport

Ramon Torres

ca. 1 måned siden

#41951

Denne kommentar blev minimeret af moderatoren på webstedet

Hvordan ryddes alle afkrydsningsfelter på alle regneark?

Svar

skyyang Ramon Torres

ca. 1 måned siden

#42031

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!

Svar

Rapport

Ramon Torres

ca. 1 måned siden

#41952

Denne kommentar blev minimeret af moderatoren på webstedet

Hvordan fjerner jeg alle afkrydsningsfelter på alle regneark?

Svar

Der er endnu ingen kommentarer her

Efterlad dine kommentarer

Sender som gæst

Navn (Påkrævet)

E-mail (Påkrævet)

Bedøm dette indlæg:

Nulstil

0 Tegn

Jeg accepterer vilkår og betingelser