循环遍历工作表中的checkbox，复选框控件怎么写

zhuxucheng

我想找到当前工作表中的所有复选框控件，判断是否为真。然后做下一步用处网上找了几个，有赋值1到100的，但是这样不是很方便。比如没有checkbox53，但默认也会判断，判断结果同checkbox52，然后走一遍程序，会把checkbox52执行的内容再执行一遍。



所以想循环遍历checkbox，网上找了几个方法都不能用。
所以有没有大神能给写一下，循环遍历，然后判断是否为真。

zhuxucheng

Dim chk As Control
            For Each chk In Me.Controls
                If TypeName(chk) = "CheckBox" Then
                    If chk.Value = True Then
                    
                    
                    End If
                End If

zhuxucheng

Dim chk As Control
            For Each chk In Me.Controls
                If TypeName(chk) = "CheckBox" Then
                    If chk.Value = True Then
                    
  网上很多这种格式的，一运行就说me.controls出错
                    End If
                End If

zhuxucheng

Dim chk As Object
    For Each sht In ThisWorkbook.Worksheets
    sht.Activate
    On Error Resume Next
        For Each chk In ActiveSheet.OLEObjects
            If ActiveSheet.OLEObjects(chk.Name).Object.Value = True Then

蓝桥玄霜

可以用For each chk in
建议上传Excel表格附件来说明问题。

1391299131

    '表单控件
    Dim cb As Object
    For Each cb In ActiveSheet.CheckBoxes
        If cb.Value = 1 Then
            MsgBox "表单控件" & cb.Name
        End If
    Next
   
    'ActiveX 控件
    Dim ob As OLEObject
    For Each ob In ActiveSheet.OLEObjects
        If ob.Object.Value = True And Left(ob.Name, 8) = "CheckBox" Then
            MsgBox "ActiveX 控件" & ob.Name
        End If
    Next

timemore

这个不错，可以循环查找清空。

三流高手

学习学习，谢谢谢谢！