本文介绍了一段VBA代码，用于在Excel工作表的指定单元格位置批量添加并预选中复选框，同时为每个复选框设置文本显示。
Sub addCheckBox()
For i = 1 To 8
'MsgBox (Str(i))
ActiveSheet.CheckBoxes.Add(Cells(1, i).Left, Cells(1, i).Top, 25, 16.5).Select '在cells(i,1)处添加复选框
Selection.Characters.Text = str(i) ' 显示内容
ActiveSheet.CheckBoxes(i).Value = True '选中状态
Next
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
