Hur automatiskt centrera kryssrutan i cellen i Excel?

När du infogar kryssrutor i celler i Excel kanske du märker att det är svårt att ordna alla kryssrutor i ordning som skärmbilden nedan visas. Du kan faktiskt flytta alla kryssrutor till cellcentret för att hålla dem i ordning. Metoden i den här artikeln kan hjälpa dig.

Autocentrera kryssruta i cell med VBA-kod

Autocentrera kryssruta i cell med VBA-kod

För att automatiskt centrera alla kryssrutor i celler i ett aktuellt kalkylblad, gör så här.

1. I kalkylbladet måste du automatiskt centrera alla kryssrutor, trycka på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer klicka på fönstret Insert > Modulerna. Kopiera och klistra sedan in VBA-kod i kodfönstret.

VBA-kod: Centrera automatiskt alla kryssrutor i celler

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. tryck på F5 nyckel. Sedan flyttas alla kryssrutor till mitten av cellerna omedelbart enligt nedanstående skärmdump.

Anmärkningar: Denna VBA-kod kan tillämpas på både CheckBox (ActiveX Control) och CheckBox (Form Control).

Relaterade artiklar:

• Hur skapar jag en listruta med flera kryssrutor i Excel?
• Hur ändrar jag ett specificerat cellvärde eller färg när kryssrutan är markerad i Excel?
• Hur markerar jag cell eller rad med kryssrutan i Excel?
• Hur gör jag kryssrutan markerad baserat på cellvärde i Excel?