如何在Excel中的单元格中自动对中复选框？

如何在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控件）和CheckBox（窗体控件）。

相关文章： 如何在Excel中创建带有多个复选框的下拉列表？ 在Excel中选中复选框时，如何更改指定的单元格值或颜色？ 如何在Excel中使用复选框突出显示单元格或行？ 如何根据Excel中的单元格值选中复选框？