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, jak je znázorněno na níže uvedeném snímku obrazovky. Ve skutečnosti můžete všechna zaškrtávací políčka přesunout do středu 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.

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

Související články:

• Jak vytvořit rozevírací seznam s více zaškrtávacími políčky v aplikaci Excel?
• Jak změnit zadanou hodnotu buňky nebo barvu, když je v aplikaci Excel zaškrtnuto políčko?
• Jak zvýraznit buňku nebo řádek pomocí zaškrtávacího políčka v aplikaci Excel?
• Jak zajistit zaškrtnutí políčka na základě hodnoty buňky v aplikaci Excel?