Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się Zarejestruj się

Jak odznaczyć lub odznaczyć wszystkie pola wyboru jednocześnie w programie Excel?

Jak można odznaczyć lub odznaczyć wszystkie zaznaczone pola wyboru naraz w arkuszu, jak pokazano na poniższym zrzucie ekranu? W tym artykule omówię kilka szybkich kodów, aby go rozwiązać.

doc odznacz pola wyboru 1

Odznacz lub odznacz wszystkie zaznaczone pola wyboru z kodem VBA

strzałka niebieski prawy bąbelek Odznacz lub odznacz wszystkie zaznaczone pola wyboru z kodem VBA

Usuń zaznaczenie lub odznacz wszystkie zaznaczone pola wyboru (kontrolki formularza):

Jeśli pola wyboru są kontrolkami formularza, możesz odznaczyć je od razu za pomocą następującego kodu VBA:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: odznacz lub odznacz wszystkie zaznaczone pola wyboru (kontrolki formularzy):

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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie zaznaczone pola wyboru zostały odznaczone jednocześnie w aktywnym arkuszu.

Usuń zaznaczenie lub odznacz wszystkie zaznaczone pola wyboru (formanty ActiveX):

Jeśli pola wyboru to formanty ActiveX, zastosuj poniższy kod VBA:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: odznacz lub odznacz wszystkie zaznaczone pola wyboru (formanty 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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie zaznaczone pola wyboru zostały odznaczone jednocześnie w aktywnym arkuszu.

Wstaw wiele pól wyboru w zaznaczeniach jednocześnie

Kutools dla programu Excel's Wstaw pola wyboru wsadowego narzędzie może pomóc w szybkim wstawianiu wielu pól wyboru jednocześnie. Kliknij, aby pobrać Kutools dla programu Excel!

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
najstarsze
Najpierw Nowsze
Komentarze (14)
Brak ocen. Oceń jako pierwszy!
biqBob
biqBob
Ten komentarz został zminimalizowany przez moderatora na stronie
wielkie dzięki za ten kod vba, bardzo pomógł.

FYI dla osób, które nie działają, naciskając F5, po prostu:

karta programisty > makra > wybierz właśnie utworzony moduł i kliknij opcje > wpisz znak skrótu, na przykład ctrl+j lub ctrl+k.
Odpowiedz
0
0
R. Rothmana
R. Rothmana     biqBob
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki za pomoc w tym. To jest bardzo cenione. Należy jednak pamiętać: W KODZIE W KROKU 2 BŁĘDNA pisownia. Kod VBA: odznacz lub odznacz wszystkie zaznaczone pola wyboru (formanty ActiveX):
Wyczyść pole wyboru ()
„Aktualizacja przez Extendoffcie”
Dim c jako obiekt
Dla każdego c W ActiveSheet.OLEObjects
Jeśli InStr(1, c.Name, "CheckBox") > 0 Wtedy
c.Object.Value = Fałsz
End If
Dalej
End Sub

PROSZĘ PAMIĘTAĆ, ŻE SŁOWO „Extendoffcie” NIE JEST NAPISOWANE PRAWIDŁOWO. NIE POWINNO BYĆ”Extendoffice„??
Odpowiedz
0
0
Ariel
Ariel
Ten komentarz został zminimalizowany przez moderatora na stronie
A gdybym chciał użyć przycisku do aktywacji makra, aby wyczyścić pola?
Odpowiedz
0
0
skyyang
skyyang     Ariel
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Ariel,
Aby użyć przycisku do aktywacji makra, najpierw należy wstawić przycisk z rozwijanej listy Kształty, a następnie kliknąć prawym przyciskiem myszy, wybrać Przypisz makro z menu kontekstowego, a następnie wybrać nazwę makra w oknie Przypisz makro . Następnie kliknij OK, a kod makra zostanie połączony z przyciskiem.
Proszę spróbować, mam nadzieję, że może ci to pomóc!
Wyświetl załączniki (1 / 5)
Odpowiedz
Zgłoś
0
0
czerwiec
czerwiec
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak odznaczyć tylko pola w określonym zakresie komórek w aktywnym arkuszu? Mam 3 listy w jednym arkuszu (zadania dzienne/tygodniowe/miesięczne) i chciałem utworzyć przycisk „Wyczyść wszystko” dla każdej listy.
Odpowiedz
0
0
Reika
Reika
Ten komentarz został zminimalizowany przez moderatora na stronie
Wielka pomoc! Dziękuję Ci!
Odpowiedz
0
0
JL
JL
Ten komentarz został zminimalizowany przez moderatora na stronie
OMG DZIĘKUJĘ, TA STRONA JEST RATUJĄCA ŻYCIE :)
Odpowiedz
0
0
Lindsa
Lindsa
Ten komentarz został zminimalizowany przez moderatora na stronie
Merci beaucoup d'avoir partage le code pour decocher 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 (à part avec la méthode "Select" qui est, comme nous le savons tous, à bannir), tout simplement car :=> la własność ".CheckBoxes" n'existe pas en proprioé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.
Odpowiedz
0
0
Mandy Zhou
Mandy Zhou     Lindsa
Ten komentarz został zminimalizowany przez moderatora na stronie
Bonjour Lindas,
Je vous en prie. Heureux que cela aide. Pour toute pytanie, n'hésitez pas à nous contacter. Passe une bonne journée.
Z poważaniem,
Mandy
Odpowiedz
Zgłoś
0
0
Pfleger Zygfryd
Pfleger Zygfryd
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam,
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 nie jest aktywny

Private Sub CheckBox2_Click ()
Jeśli pole wyboru 2 = prawda, wtedy
Pole wyboru1 = Fałsz
End If
End Sub
Private Sub CheckBox1_Click ()
Jeśli pole wyboru 1 = prawda, wtedy
Pole wyboru2 = Fałsz
End If
End Sub

dziękuję za pomoc
Odpowiedz
0
0
skyyang
skyyang     Pfleger Zygfryd
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Zygfrydzie
Jeśli chcesz sprawdzić jeden i wyłączyć inny, zastosuj poniższy kod:
Uwagi: Pole wyboru tutaj należy użyć pola wyboru Kontrolki 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

Proszę spróbować, mam nadzieję, że może ci to pomóc!
Odpowiedz
Zgłoś
0
0
Ramona Torresa
Ramona Torresa
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak wyczyścić wszystkie pola wyboru we wszystkich arkuszach roboczych?
Odpowiedz
0
0
skyyang
skyyang     Ramona Torresa
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Ramonie

Aby wyczyścić wszystkie pola wyboru we wszystkich arkuszach, zastosuj poniższe kody:
Usuń zaznaczenie wszystkich pól wyboru ze wszystkich arkuszy (Kontrolki formularza):
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


Usuń zaznaczenie wszystkich pól wyboru ze wszystkich arkuszy (formanty 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


Spróbuj, mam nadzieję, że to ci pomoże!
Odpowiedz
Zgłoś
0
0
Ramona Torresa
Ramona Torresa
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak wyczyścić wszystkie pola wyboru we wszystkich arkuszach roboczych?
Odpowiedz
0
0
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Gość
Publikowanie jako gość
Login
×
Oceń ten post:
Zresetuj
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL