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ší.
Zrušte nebo zrušte zaškrtnutí všech zaškrtávacích políček s kódem VBA
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ší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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!