如何在 Excel 中自動將核取方塊置中於儲存格內？

在 Excel 的儲存格中插入核取方塊時，您可能會發現很難像以下螢幕截圖所示那樣整齊地排列所有核取方塊。實際上，您可以將所有核取方塊移動到儲存格的中央，以保持它們整齊有序。本文中的方法可以幫助您實現這一點。

使用 VBA 程式碼自動將核取方塊置中於儲存格內

使用 VBA 程式碼自動將核取方塊置中於儲存格內

要自動將當前工作表中所有儲存格內的核取方塊置中，請按照以下步驟操作。

1. 在需要自動將所有核取方塊置中的工作表中，按下 Alt + 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 中勾選核取方塊？