VBA - 循环遍历表单上的控件并读取值

Question

我想循环遍历表单上的控件并读取值。但是 Value 和 Checked 属性不可用。我的问题是，当我循环访问控件(在本例中为复选框)时，如何读取它们的值？

Dim Ctrl as Control

For Each Ctrl In frmMaintenance.Controls

    If Left(Ctrl.Name, 7) = "chkType" And **Ctrl.Value = True** Then            

    End if

Next Ctrl

Answer 1

循环遍历控件并检查 TypeName。

Dim c As Control


For Each c In Me.Controls
    If TypeName(c) = "CheckBox" Then
        MsgBox c.Value
    End If
Next