Excel-VBA: 复选框CheckBox是否选中

    For Each chk In ActiveSheet.CheckBoxes
        If chk.Value = 1 Then '选中了
            ChkChecked = True
        Else
            ChkChecked = False
        End If
    Next
    
    'chk.Name 是名字，chk.Caption 是显示的内容