Как автоматически центрировать флажок в ячейке Excel?

При вставке флажков в ячейки Excel вы можете заметить, что их сложно расположить в порядке, как показано на скриншоте ниже. На самом деле, вы можете переместить все флажки в центр ячеек, чтобы они были аккуратно упорядочены. Метод, описанный в этой статье, поможет вам.

Автоматическое центрирование флажка в ячейке с помощью кода VBA

Автоматическое центрирование флажка в ячейке с помощью кода VBA

Чтобы автоматически центрировать все флажки в ячейках текущего листа, выполните следующие действия.

1. В рабочем листе, где нужно автоматически центрировать все флажки, нажмите клавиши Alt + 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), так и к CheckBox (Элемент управления формы).

Связанные статьи:

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