批量插入复选框控件

批量插入复选框控件

实现原理：

复选框可以通过手工逐个插入，并关联相应单元格，但若要批量插入好几百，再逐一插入，这样的工作效率会非常低。

其实excel软件提供了宏功能，你可以编写一段宏然后执行，即可批量执行插入复选框的动作。

操作步骤：

1、插入模块，写入以下代码：开发工具选项卡—Visual Basic—插入模块

Sub 添加复选框()

On Error Resume Next

'注释：关闭屏幕刷新，加快运行速度。

Application.ScreenUpdating = False

Dim 单元格 As Range

Dim CurrentRange As Range

Set CurrentRange = Selection

'注释：设置单元格自定义格式 ";;;"，为不显示true或false。

CurrentRange.NumberFormatLocal = ";;;"

'注释：循环每个单元格，添加复选框

For Each 单元格 In CurrentRange

ActiveSheet.CheckBoxes.Add(单元格.Left, 单元格.Top, 单元格.Height, 单元格.Height).Select

With Selection

.Value = xlOff

.LinkedCell = 单元格.Address

.Display3DShading = False

.Characters.Text = ""

End With

Next

CurrentRange.Select

Set 单元格 = Nothing

Application.ScreenUpdating = True

End Sub

插入模块，写入代码

2、选中需插入复选框的单元格区域，执行宏–添加复选框即可，操作步骤见图1。