如何在Excel中的單元格中自動對中復選框？

在 Excel 的儲存格中插入複選框時，您可能會注意到很難按順序排列所有複選框，如下圖所示。實際上，您可以將所有複選框移至單元格中心，以保持它們整齊的順序。這篇文章中的方法可以幫助你。

使用VBA代碼的單元格中的自動居中復選框

使用VBA代碼的單元格中的自動居中復選框

若要自動將當前工作表中單元格中的所有復選框居中，請執行以下操作。

1.在工作表中，您需要將所有復選框自動居中，然後按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口，請點擊 插入 > 模塊。 然後將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中的單元格值選中復選框？