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

Jak automaticky vycentrovat zaškrtávací políčko v buňce v aplikaci Excel?

Při vkládání zaškrtávacích políček do buněk v aplikaci Excel si můžete všimnout, že je obtížné uspořádat všechna zaškrtávací políčka uspořádaně, jak je znázorněno levé zobrazení obrazovky. Ve skutečnosti můžete všechna zaškrtávací políčka přesunout do centra buněk, abyste je udrželi v pořádku. Metoda v tomto článku vám může pomoci.

Zaškrtávací políčko Auto-center v buňce s kódem VBA


Zaškrtávací políčko Auto-center v buňce s kódem VBA

Chcete-li automaticky vycentrovat všechna zaškrtávací políčka v buňkách v aktuálním listu, postupujte takto.

1. V listu musíte automaticky vycentrovat všechna zaškrtávací políčka a stisknout Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Modul. Poté zkopírujte a vložte kód VBA do okna kódu.

Kód VBA: Automaticky vycentrujte všechna zaškrtávací políčka v buňkách

Sub CenterCheckbox ()
    Dim xRg As Range
    Dim chkBox As OLEObject
    Dim chkFBox As CheckBox
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.OLEObjects
        If TypeName(chkBox.Object) = "CheckBox" Then
            Set xRg = chkBox.TopLeftCell
            chkBox.Width = xRg.Width * 2 / 3
            chkBox.Height = xRg.Height
            chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
            chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
        End If
    Next
    For Each chkFBox In ActiveSheet.CheckBoxes
        Set xRg = chkFBox.TopLeftCell
        chkFBox.Width = xRg.Width * 2 / 3
        chkFBox.Height = xRg.Height
        chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
        chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
    Next
    Application.ScreenUpdating = True
End Sub

3. zmáčkni F5 klíč. Poté se všechna zaškrtávací políčka okamžitě přesunou do středu buněk, jak je uvedeno níže.

Poznámka: Tento kód VBA lze použít jak na CheckBox (ovládací prvek ActiveX), tak na CheckBox (ovládací prvek formuláře).

Tip: Pokud chcete hromadně vložit více zaškrtávacích polí do vybraného rozsahu, můžete zkusit Zaškrtávací políčka Dávkové vložení nástroj pf Kutools pro Excel. Nebo dávkově vložte více volitelných tlačítek pomocí Tlačítka možnosti hromadného vkládání nástroj. Kromě toho můžete pomocí zaškrtávacího políčka odstranit všechna zaškrtávací políčka najednou Zaškrtávací políčka Dávkové odstranění nástroj, jak je uvedeno níže. Můžeš jít do zdarma si stáhněte software bez omezení

dny.


Související články:


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

Kutools pro Excel vyřeší většinu vašich problémů a zvýší vaši produktivitu
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é funkce
    . Podporuje Office/Excel
    2007-2019 a 365
    . Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce
    30
    -denní zkušební verze zdarma. 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 tím
    50%
    a každý den vám sníží stovky kliknutí myší!
officetab dno
Komentáře (9)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Váš skript VDA částečně funguje. Protože když jsem to použil, propojená buňka vedle zaškrtávacího políčka se změnila a propojila se s buňkou pod ní.
Tento komentář byl moderátorem webu minimalizován
To pro mě fungovalo skvěle, kromě toho, že to nezarovnává s textem v další buňce, která je zarovnána dole. Existuje způsob, jak zarovnat zaškrtávací políčka pro zarovnání zdola, aby se zarovnala s textem v další buňce? Dík!
Tento komentář byl moderátorem webu minimalizován
VBA mi vůbec nefunguje. Když stisknu F5, zdá se, že modul běží, ale zaškrtávací políčka se nepohnula.
Tento komentář byl moderátorem webu minimalizován
Po nějakém dalším experimentování jsem přišel na to, že VBA funguje pro ručně vložená zaškrtávací políčka, ale pokud použiji dávkové vložení Kutools, ne. Jak vycentruji všechna zaškrtávací políčka vložená pomocí Kutools?
Tento komentář byl moderátorem webu minimalizován
Ahoj quadma,
Kód funguje také pro zaškrtávací políčka vložená Kutools. Jakou verzi Excelu používáte?
Tento komentář byl moderátorem webu minimalizován
Používám Office 360. Myslím, že problém, který mám, je ten, že když používám dávkové vložení Kutools, velikost objektu zaškrtávacího políčka je stejně široká jako sloupec, do kterého je vloženo (tj. šířka objektu zaškrtávacího pole je větší než je jeho výška), přičemž samotné viditelné zaškrtávací políčko je v objektu zarovnané vlevo. Pokud zaškrtnu všechny objekty zaškrtávacích políček a poté změním jejich velikost tak, aby se výška a délka shodovaly, a poté spustím VBA, vycentruje zaškrtávací políčka ve sloupci.





Zdá se to jako zbytečný krok, vzhledem k tomu, že zaškrtávací políčka jsou čtvercová, proč Kultools nedělá čtvercové objekty zaškrtávacích polí?
Tento komentář byl moderátorem webu minimalizován
Ahoj quadma,
Zaškrtávací políčka vložená Kutools jsou stejná jako Zaškrtávací políčko (ovládání formuláře) který vložil Excel.
Opravdu nerozumím tomu, co jste řekli "vytvoření čtvercového objektu zaškrtávacího políčka". Normálně zaškrtávací políčko obsahuje pole pole a pole hodnoty. Kutools ponechává hodnotu zaškrtávacích políček prázdnou, pokud jsou vybrané buňky prázdné. A pokud jsou ve vybraných buňkách hodnoty, hodnota buňky bude brána jako hodnota zaškrtávacího políčka.
Tento komentář byl moderátorem webu minimalizován
Nahrál jsem obrázek, abych ukázal, co tím myslím. Snad to pomůže.
Tento komentář byl moderátorem webu minimalizován
Ahoj quadmo, chápu tvůj názor. Budeme na to myslet a děkujeme za trpělivost.
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