Hogyan távolíthatja el vagy törölje az összes jelölőnégyzet jelölését egyszerre az Excelben?

Hogyan távolíthatja el vagy törölheti az összes bejelölt jelölőnégyzet jelölését egy munkalapon, az alábbi képernyőkép szerint? Ebben a cikkben néhány gyors kódról fogok beszélni a megoldás érdekében.

doc törölje a jelölőnégyzeteket 1

Törölje az összes bejelölt jelölőnégyzet jelölését vagy törölje a jelölést a VBA kóddal

Törölje az összes bejelölt jelölőnégyzet jelölését vagy törölje a jelölést a VBA kóddal

Törölje az összes bejelölt jelölőnégyzet jelölését vagy törölje a jelölést (Form Controls):

Ha a jelölőnégyzetek űrlapvezérlők, akkor a következő VBA-kóddal egyszerre törölheti a jelölést:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Törölje az összes bejelölt jelölőnégyzet jelölését vagy törölje a jelölést (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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és az összes bejelölt jelölőnégyzetet egyszerre törölték az aktív munkalapon.

Törölje az összes bejelölt jelölőnégyzet jelölését vagy törölje a jelölést (ActiveX-vezérlők):

Ha a jelölőnégyzetek ActiveX-vezérlők, kérjük, alkalmazza az alábbi VBA-kódot:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: Törölje az összes bejelölt jelölőnégyzet jelölését vagy törölje a jelölést (ActiveX-vezérlők):

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és az összes bejelölt jelölőnégyzetet egyszerre törölték az aktív munkalapon.

Több jelölőnégyzetet helyezzen be egyszerre a kijelölésekbe

Kutools az Excel számára's Batch Insert jelölőnégyzetek segédprogram segítségével egyszerre több jelölőnégyzetet is gyorsan beilleszthet. Kattintson a Kutools for Excel letöltéséhez!

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás...

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés... Vásárlás...

Hozzászólások (14)

Még nincs értékelés. Legyen Ön az első, aki értékel!

biqBob

körülbelül 4 éve

#25238

A weboldal moderátora ezt a megjegyzést minimalizálta

nagyon köszönöm ezt a vba kódot, sokat segített.

Tájékoztatásul azoknak, akik nem tudják az F5 megnyomásával működni, egyszerűen:

fejlesztői lap > makrók > válassza ki az imént létrehozott modult, és kattintson az Opciók elemre > írjon be egy karaktert a parancsikonhoz, például ctrl+j vagy ctrl+k.

Válasz

R. Rothman biqBob

körülbelül 2 éve

#25239

A weboldal moderátora ezt a megjegyzést minimalizálta

Köszönöm a segítséget ebben. Nagyon nagyra értékelik. Azonban kérjük, vegye figyelembe: A 2. LÉPÉS KÓDJÁBAN HELYESÍRÁS HELYES. VBA-kód: Törölje az összes bejelölt jelölőnégyzet bejelölését, vagy törölje a jelölést (ActiveX Controls):
Al törölje a jelölőnégyzetet ()
"Frissítés az Extendoffcie által
Dim c Objektumként
Minden egyes c In ActiveSheet.OLEObjects
Ha InStr(1, c.Name, "CheckBox") > 0 Akkor
c.Object.Value = False
Ha véget
Következő
End Sub

FIGYELEM, AZ „Extendoffcie” SZÓ NINCS HELYESEN ÍRÁSA. NE LENNE "Extendoffice"?? Mindegy, csak ki akartam tenni

Válasz

Ariel

körülbelül 3 éve

#31682

A weboldal moderátora ezt a megjegyzést minimalizálta

Mi a teendő, ha egy gombbal szeretném aktiválni a makrót a négyzetek törléséhez?

Válasz

Skyyang Ariel

körülbelül 3 éve

#31683

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Ariel,
Ha gombbal szeretné aktiválni a makrót, először szúrjon be egy gombot az Alakzatok legördülő listából, majd kattintson a jobb gombbal a gombra, válassza a Makró hozzárendelése parancsot a helyi menüből, majd válassza ki a makró nevét a Makró hozzárendelése párbeszédpanelen. . Ezután kattintson az OK gombra, és a makrókód hozzá lesz kapcsolva a gombhoz.
Próbáld ki, remélem tud segíteni!

Mellékletek megtekintése (1 / 5)

Válasz

Jelentés

június

körülbelül 2 éve

#33393

A weboldal moderátora ezt a megjegyzést minimalizálta

Hogyan törölhetem csak az aktív lap egy adott cellatartományában lévő négyzetek jelölését? 3 listám van egy lapon (Napi/Heti/Havi feladatok), és minden listához szerettem volna egy "Összes törlése" gombot készíteni.

Válasz

Reika

mintegy 1 éve

#36759

A weboldal moderátora ezt a megjegyzést minimalizálta

Nagy segítség! köszönöm!

Válasz

mintegy 1 éve

#36814

A weboldal moderátora ezt a megjegyzést minimalizálta

OMG KÖSZÖNÖM, EZ A WEBOLDAL ÉLETMENTŐ :)

Válasz

Linds

mintegy 1 éve

#37278

A weboldal moderátora ezt a megjegyzést minimalizálta

Merci beaucoup d'avoir partagé le code pour décocher des elemek "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 case (en guise de réinitialisation du formulaire) et je ne trouvais pas (à part avec la méthode "Select" 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.

Válasz

MandyZhou Linds

mintegy 10 hónappal ezelőtt

#37279

A weboldal moderátora ezt a megjegyzést minimalizálta

Bonjour Lindas,
Je vous en prie. Heureux que cela aide. Pour toute kérdés, n'hésitez pas à nous contacter. Passe une bonne journée.
Őszinte szívvel,
Mandy

Válasz

Jelentés

Pfleger Siegfried

mintegy 4 hónappal ezelőtt

#39962

A weboldal moderátora ezt a megjegyzést minimalizálta

Helló,
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 nicht aktiviert sein

Privát al-jelölőnégyzet2_Click()
Ha CheckBox2 = igaz, akkor
CheckBox1 = Hamis
Ha véget
End Sub
Privát al-jelölőnégyzet1_Click()
Ha CheckBox1 = igaz, akkor
CheckBox2 = Hamis
Ha véget
End Sub

köszönöm a segítségedet

Válasz

Skyyang Pfleger Siegfried

mintegy 4 hónappal ezelőtt

#39993

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Siegfried
Ha szeretne egyet ellenőrizni, és letiltani egy másikat, használja az alábbi kódot:
Megjegyzések: A jelölőnégyzet itt használja az ActiveX-vezérlő jelölőnégyzetet.

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

Kérem, próbálja ki, remélem tud segíteni!

Válasz

Jelentés

Ramon Torres

kb 1 hónapja

#41951

A weboldal moderátora ezt a megjegyzést minimalizálta

Hogyan lehet törölni az összes jelölőnégyzetet az összes munkalapon?

Válasz

Skyyang Ramon Torres

kb 1 hónapja

#42031

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Ramon

Ha az összes munkalapon törölni szeretné az összes jelölőnégyzetet, használja az alábbi kódokat:
Törölje az összes jelölőnégyzet bejelölését az összes lapról (Űrlapvezérlők):

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

Törölje az összes jelölőnégyzet bejelölését az összes lapról (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

Kérem, próbálja ki, remélem ez tud segíteni!

Válasz

Jelentés

Ramon Torres

kb 1 hónapja

#41952

A weboldal moderátora ezt a megjegyzést minimalizálta

Hogyan törölhetném az összes jelölőnégyzetet az összes munkalapon?

Válasz

Még senki sem írt megjegyzést

Hagyja meg észrevételeit

Feladás vendégként

Bejelentkezés

Név (kötelező)

Email (szükséges)

Értékeld ezt a bejegyzést:

vissza

0 Karakterek

Egyetértek azzal, hogy a szabályait és feltételeit