excel - 使用VBA获取Excel中所有复选框的值

Question

我使用以下代码以编程方式向 Excel 工作表添加许多复选框:

With ActiveSheet.CheckBoxes.Add(rCell.Left, rCell.Top, rCell.Width, rCell.Height)
        .Interior.ColorIndex = xlNone
        .Caption = ""
End With

现在我需要一个代码来解析工作表中存在的所有复选框并获取它们的值(true 或 false)以及它们所在的单元格。如何做到这一点？

谢谢...

Answer 1

Sub Add_CheckBoxes()

With ActiveSheet.CheckBoxes.Add(ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height)
    .Interior.ColorIndex = xlNone
    .Caption = ""
End With

For Each chk In ActiveSheet.CheckBoxes
    If chk Then MsgBox "Checked"
Next
End Sub