使用VBA给复选框批量命名
标签：VBA，复选框
很简单的场景，很简单的代码，不过有时候很有用。
如下图1所示，使用列G中单元格的内容给复选框命名，并且当选取复选框中，在列E中相应的单元格显示其状态。
图1
代码如下：
Sub NameCheckbox()
Dim i As Long
For i = 1 To 10
ActiveSheet.CheckBoxes(i).LinkedCell =Cells(i, 5).Address
ActiveSheet.CheckBoxes(i).Characters.Text= Cells(i, 7).Value
Next i
EndSub其中，代码：
ActiveSheet.CheckBoxes(i).LinkedCell= Cells(i, 5).Address将复选框链接至指定单元格。相当于在“设置控件格式”对话框“控制”选项卡中设置单元格链接，如下图2所示。
图2
代码：
ActiveSheet.CheckBoxes(i).Characters.Text= Cells(i, 7).Value将复选框的名称修改为相应单元格中的值。
这些都是最基础的复选框操作代码，可以用来控制工作表中的复选框，根据复选框的选取状态，来对工作表数据进行相应的设置，例如可以与条件格式相结合，通过选取或取消选取复选框来对相应行进行条件格式设置，在后续文章中，我们会介绍这样的示例。
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2022-03-02，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
