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

网友投稿 605 2023-12-11

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

在Excel的单元格中插入复选框时，您可能会注意到，如左图所示，很难按顺序排列所有复选框。实际上，您可以将所有复选框移动到单元格中心，以使它们保持整齐有序。本文中的方法可以为您提供帮助。

使用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（窗体控件）。

提示： 如果您要将多个复选框批量插入选定的范围，可以尝试使用 批量插入复选框 实用程序pf Kutools for Excel。或批量插入多个选项按钮 批量插入选项按钮 效用。此外，您可以一次删除所有复选框 批量删除复选框 实用程序，如下图所示。你可以去 免费下载软件，不受限制 30 天.

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

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel