使用MSForms.Control类型变量报错：类型不匹配问题求助

错误原因 #

MSForms.ComboBox控件没有Caption属性，你原代码中直接访问ctrl.Caption时，由于ctrl被声明为通用的MSForms.Control，而Control对象本身不存在Caption属性（仅Label、CommandButton等部分控件具备），因此触发“类型不匹配”错误。

解决方案 #

根据你的实际需求选择以下方案：

方案1：获取ComboBox的输入/选中文本 #

如果要获取ComboBox当前显示的内容，使用Text属性即可：

Private Sub Command266_Click()
    Dim ctrl As MSForms.Control
    
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is MSForms.ComboBox Then
            MsgBox "控件文本是: " & ctrl.Text, vbOKOnly, "测试"
        End If
    Next ctrl
End Sub

方案2：获取与ComboBox关联的标签标题 #

如果你的ComboBox有对应的Label控件（用于显示提示文字），可通过命名规则关联获取Label的Caption：

Private Sub Command266_Click()
    Dim ctrl As MSForms.Control
    Dim associatedLabel As MSForms.Label
    
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is MSForms.ComboBox Then
            ' 假设Label命名为Label+ComboBox的序号（如ComboBox1对应Label1）
            On Error Resume Next
            Set associatedLabel = Me.Controls("Label" & Mid(ctrl.Name, Len("ComboBox") + 1))
            On Error GoTo 0
            
            If Not associatedLabel Is Nothing Then
                MsgBox "关联标签标题是: " & associatedLabel.Caption, vbOKOnly, "测试"
                Set associatedLabel = Nothing
            End If
        End If
    Next ctrl
End Sub

更严谨的类型转换写法 #

也可以将通用Control对象转换为ComboBox类型后再访问属性，避免属性访问歧义：

Private Sub Command266_Click()
    Dim ctrl As MSForms.Control
    
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is MSForms.ComboBox Then
            MsgBox "控件文本是: " & CType(ctrl, MSForms.ComboBox).Text, vbOKOnly, "测试"
        End If
    Next ctrl
End Sub

内容的提问来源于stack exchange，提问作者Mowaffak Bakkar