如何在工作表中批量插入复选框并设置其单元格链接呢？

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

楼主 0Mouse	Q：如何在工作表中批量插入复选框并设置其单元格链接呢？添加前：添加后： A：工作表代码如下： Sub InsertCheckBoxes() Application.ScreenUpdating = False '关闭屏幕更新 Dim i%, j%, k% For i = 4 To Cells(Rows.Count, 3).End(xlUp).Row '行循环 If Val(Cells(i, 1)) > 0 Then For j = 3 To Range("L1").Column '列循环 k = k + 1 '计算添加的复选框个数 With Cells(i, j) CheckBoxes.Add .Left, .Top, .Width, .Height '添加复选框 With CheckBoxes(k) .Characters.Text = "" '复选框名称已输入在相应单元格内，故这里设置为空。 .LinkedCell = Sheet2.Name & "!" & Cells(i, j).Address '设置单元格链接地址 End With End With Next End If Next Application.ScreenUpdating = True '开启屏幕更新 End Sub 附件：批量插入复选框并设置其单元格链接.rar
2楼い卋玑┾宝珼	是不是做这种填充表单，Excel比word强多了哇？每次别人做问券，就老是给我word版的，最终的结果，还要自己手动统计这种复选框，直接用代码统计选的结果，方便不？
3楼 0Mouse	嗯，统计Excel比Word方便的多，也比较容易了，因为每个复选框选与不选，对应的值就是True和False，都体现它对应的链接单元格上了，统计单元格里的True和False就可以了。
4楼老糊涂	学习

免责声明

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

评论列表