Как да центрирате автоматично квадратчето за отметка в клетка в Excel?

Докато вмъквате квадратчета за отметка в клетки в Excel, може да забележите, че е трудно да подредите всички квадратчета за отметка подредено, както е показано на екранната снимка по-долу. Всъщност можете да преместите всички квадратчета за отметка в центъра на клетките, за да ги поддържате в ред. Методът в тази статия може да ви помогне.

Квадратче за автоматично центриране в клетка с VBA код

Квадратче за автоматично центриране в клетка с VBA код

За да центрирате автоматично всички квадратчета за отметка в клетки в текущия работен лист, моля, направете следното.

1. В работния лист трябва автоматично да центрирате всички квадратчета за отметка, натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, моля щракнете Поставете > Модули. След това копирайте и поставете VBA код в прозореца на кода.

VBA код: Автоматично центриране на всички квадратчета за отметка в клетките

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. Натисни F5 ключ. След това всички квадратчета за отметка се преместват незабавно в центъра на клетките, както е показано на екранната снимка по-долу.

Забележка: Този VBA код може да се приложи както към CheckBox (ActiveX Control), така и към CheckBox (Form Control).

Още по темата:

• Как да създадете падащ списък с множество квадратчета за отметка в Excel?
• Как да промените определена стойност или цвят на клетка, когато квадратчето за отметка е отметнато в Excel?
• Как да маркирате клетка или ред с квадратче за отметка в Excel?
• Как да поставите отметка в квадратчето въз основа на стойността на клетката в Excel?