利用VBA如何在工作表中批量插入复选框并更改其caption为从1开始的顺序号？

作者：绿色风分类：时间：2022-08-17 浏览：142

楼主
biaotiger1

Q：利用VBA如何在工作表中批量插入复选框并更改其caption为从1开始的顺序号？
A：在工作表标签处单击右键，弹出快捷菜单→“查看代码”→在代码窗口中输入代码如下：

Sub 批量插入复选框并修改名称为顺序号()
For I = 1 To 5
With Cells(1, I)
CheckBoxes.Add(.Left, .Top, .Width, .Height).Characters.Text = I '在cells(i,1)处添加复选框
End With
Next I
End Sub

运行以上代码，则在当前工作表中A1:E1区域中分别插入了5个复选框。其名称分别为1、2、3、4、5，其大小等于对应单元格的大小

2楼
wnianzhong

正在学VBA,很好的资料,谢谢!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表