excel如何批量创建复选框

1、第一步:录制宏

3、第三步:先点击停止录制宏然后查看宏

5、第五步:在框着的部分复制以下代码,复选框的文本如果想更改，把代码里面的“是“改成其他文本就可以了注意引号引起来 Dim i As Integer Dim col As String col = InputBox("在哪一列创建复选框") k = InputBox("从哪一行开始复制") n = InputBox("在哪一行结束复制") If IsNumeric(n) Then If IsNumeric(i) Then For i = k To n Range(col & i).Select ActiveSheet.CheckBoxes.Add(Range(col & i).Left, Range(col & i).Top, Range(col & i).Width, Range(col & i).Height).Select Selection.Characters.Text = "是" Next i Else MsgBox ("起始行不是数字") End If Else MsgBox ("输入的复制数量不是数字") End If

7、第七步:输入在那一列添加复选框，比如要在A列添加那么就写a,输入完后确定

9、第九步:输入结束的行数，比如我要在a列的第13行停止创建就写13