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

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


nyíl kék jobb buborék 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.
kte lap 201905

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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (14)
Még nincs értékelés. Legyen Ön az első, aki értékel!
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.
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
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?
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!
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.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagy segítség! köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
OMG KÖSZÖNÖM, EZ A WEBOLDAL ÉLETMENTŐ :)
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.
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
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
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!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan lehet törölni az összes jelölőnégyzetet az összes munkalapon?
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!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan törölhetném az összes jelölőnégyzetet az összes munkalapon?
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi