VBA自动化复选框批量操作

标签：VBA,复选框

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

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

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

图1

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

代码语言：javascript复制

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行是标题行）。

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

vba 编程算法 html

0 人点赞