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

Jak zrušit nebo zrušit zaškrtnutí všech políček najednou v aplikaci Excel?

Jak můžete zrušit zaškrtnutí nebo zrušit zaškrtnutí všech zaškrtávacích políček najednou v listu, jak ukazuje následující snímek obrazovky? V tomto článku budu mluvit o některých rychlých kódech, které to vyřeší.

doc zrušte zaškrtnutí políček 1

Zrušte nebo zrušte zaškrtnutí všech zaškrtávacích políček s kódem VBA


šipka modrá pravá bublina Zrušte nebo zrušte zaškrtnutí všech zaškrtávacích políček s kódem VBA

Zrušte zaškrtnutí nebo zrušte zaškrtnutí všech zaškrtávacích políček (ovládací prvky formuláře):

Pokud jsou vaše zaškrtávací políčka ovládací prvky formuláře, můžete je zrušit najednou pomocí následujícího kódu VBA:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Zrušte zaškrtnutí nebo zrušte zaškrtnutí všech zaškrtávacích políček (ovládací prvky formuláře):

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a všechna zaškrtnutá políčka byla v aktivním listu zrušena zaškrtnutí najednou.


Zrušte zaškrtnutí nebo zrušte zaškrtnutí všech zaškrtávacích políček (ovládací prvky ActiveX):

Pokud jsou zaškrtávací políčka ovládací prvky ActiveX, použijte následující kód VBA:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Zrušte zaškrtnutí nebo zrušte zaškrtnutí všech zaškrtávacích políček (ovládací prvky ActiveX):

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a všechna zaškrtnutá políčka byla v aktivním listu zrušena.


Vložte několik zaškrtávacích políček do výběrů najednou

Kutools pro Excel's Zaškrtávací políčka Dávkové vložení nástroj vám pomůže rychle vložit více zaškrtávacích políček najednou. Klikněte a stáhněte si Kutools pro Excel!


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (14)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
mnohokrát děkuji za tento vba kód, velmi pomohl.

FYI pro lidi, kteří to nespustí stisknutím F5, jednoduše:

karta vývojář > makra > vyberte právě vytvořený modul a klikněte na možnosti > zadejte znak pro zkratku, například ctrl+j nebo ctrl+k.
Tento komentář byl moderátorem webu minimalizován
Děkujeme za vaši pomoc. Velmi se to cení. Vezměte však prosím na vědomí: V KÓDU KROKU #2 JE PRAVOPIS ŠPATNÝ. Kód VBA: Zrušte zaškrtnutí nebo zrušte zaškrtnutí všech zaškrtávacích políček (ovládací prvky ActiveX):
Dílčí zrušte zaškrtnutí()
'Aktualizace od Extendoffcie
Dim c As Object
Pro každý c In ActiveSheet.OLEObjects
Pokud InStr(1, c.Name, "CheckBox") > 0 Pak
c.Object.Value = False
End If
další
End Sub

UPOZORŇUJEME, ŽE SLOVO „Extendoffcie“ NENÍ SPRÁVNĚ NAPSANÉ. NEMĚLO BY TO BÝT"Extendoffice"?? Každopádně, chtěl jsem to tam dát."
Tento komentář byl moderátorem webu minimalizován
Co když chci použít tlačítko k aktivaci makra k vymazání polí?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Ariel,
Chcete-li k aktivaci makra použít tlačítko, měli byste nejprve vložit tlačítko z rozevíracího seznamu Tvary a poté na tlačítko kliknout pravým tlačítkem, z kontextové nabídky vybrat příkaz Přiřadit makro a poté v dialogovém okně Přiřadit makro vyberte název makra. . Poté klikněte na OK a kód makra se propojí s tlačítkem.
Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Jak zruším zaškrtnutí pouze políček v určitém rozsahu buněk na aktivním listu? Mám 3 seznamy na jednom listu (denní/týdenní/měsíční úkoly) a chtěl jsem pro každý seznam vytvořit tlačítko „Vymazat vše“.
Tento komentář byl moderátorem webu minimalizován
Velká pomoc! Děkuji!
Tento komentář byl moderátorem webu minimalizován
OMG DĚKUJI, TENTO STRÁNEK ZACHRÁŇUJE ŽIVOT :)
Tento komentář byl moderátorem webu minimalizován
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 lescases (en guise de réinitialisation du formulaire) a není trouvais pas (část s metodou "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.
Tento komentář byl moderátorem webu minimalizován
Bonjour Lindas,
Je vous en prie. Heureux que cela asistent. Pour toute otázku, n'hésitez pas à nous contacter. Passe une bonne journée.
upřímnost,
Mandy
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 není aktivní

Private Sub CheckBox2_Click ()
If CheckBox2 = True Then
CheckBox1 = False
End If
End Sub
Private Sub CheckBox1_Click ()
If CheckBox1 = True Then
CheckBox2 = False
End If
End Sub

Děkujeme za vaši pomoc
Tento komentář byl moderátorem webu minimalizován
Ahoj, Siegfriede
Pokud chcete jeden zaškrtnout a jiný deaktivovat, použijte níže uvedený kód:
Poznámka: Zaškrtávací políčko zde byste měli použít zaškrtávací políčko Ovládací prvek ActiveX.
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

Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Jak zrušit všechna zaškrtávací políčka na všech listech?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Ramone

Chcete-li zrušit všechna zaškrtávací políčka na všech listech, použijte níže uvedené kódy:
Zrušte zaškrtnutí všech políček na všech listech (Ovládací prvky formuláře):
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


Zrušte zaškrtnutí všech políček na všech listech (ovládací prvky ActiveX):
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


Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Jak zruším všechna zaškrtávací políčka na všech listech?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL