VBA自动化复选框批量操作

fanjy

发布于 2022-03-09 20:59:27

1.9K0

发布于 2022-03-09 20:59:27

文章被收录于专栏：完美Excel

标签：VBA,复选框

如果工作表中有很多复选框要操作，那么就应该想到使用VBA，例如：

选取所有复选框
取消选取所有复选框
重命名所有复选框
创建多个新复选框
对齐复选框
批量删除复选框

示例工作簿如下图1所示。

图1

其中，添加新复选框的代码如下：

Sub AddCheckboxesStartingInCurrentCell()
    Dim actrow As Integer
    Dim SettingAddCheckBoxes As Integer
    Dim CBcount As Integer
    CBcount = ActiveSheet.CheckBoxes.Count
    Range("A" & CBcount +2).Activate
    SettingAddCheckBoxes =Range("SettingAddCheckBoxes").Value
    For i = 1 To SettingAddCheckBoxes
        actrow = ActiveCell.Row
        With ActiveSheet.CheckBoxes.Add(Selection.Left, Selection.Top, Selection.Width,Selection.Height)
            .Width = 80
            .LinkedCell = Cells(actrow,9).Address
        End With
        ActiveCell.Offset(1, 0).Activate
    Next i
End Sub

其中，"SettingAddCheckBoxes"是单元格N1的名称。变量SettingAddCheckBoxes设置每次单击“添加复选框”时要添加的新复选框数，它是一个存储在名称为”SettingAddCheckbox”的单元格N1中的数。变量CBcount决定在哪里添加下一个复选框，它被硬编码为列A中复选框计数加2的行（可以更改此选项）（第1行是标题行）。

其它的代码可在示例工作簿中查看。

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2022-03-03，如有侵权请联系 cloudcommunity@tencent.com 删除

vba