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ć.
Odznacz lub odznacz wszystkie zaznaczone pola wyboru z kodem VBA
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
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
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!