如何为vbModeless状态的UserForm控件设置属性且规避438运行时错误？

问题场景 #

我需要通过UserForm外部的宏，为以vbModeless模式显示的UserForm上所有控件设置.Value和ForeColor属性：

• 未添加On Error Resume Next时，执行ctrl.Value = False和ctrl.ForeColor = vbBlack会触发运行时错误‘438’：对象不支持该属性或方法。
• 使用不推荐的On Error Resume Next语句时，代码可正常运行，但这种写法存在隐患。

原代码如下：

Sub Clear_All_Filter()
    On Error Resume Next
    Dim ctrl As control
    For Each ctrl In UserForm1.Controls
        ctrl.Value = False
        ctrl.ForeColor = vbBlack
    Next
End Sub

错误原因 #

UserForm中的控件类型多样，并非所有控件都同时拥有.Value和ForeColor属性：

• 例如Label控件没有.Value属性，Frame控件的属性逻辑也和复选框不同；
• 直接遍历所有控件并强制赋值，会因不支持属性的控件触发438错误。

解决方案 #

方法1：按控件类型针对性处理 #

通过TypeName判断控件类型，只对支持目标属性的控件执行赋值操作：

Sub Clear_All_Filter()
    Dim ctrl As Control
    For Each ctrl In UserForm1.Controls
        Select Case TypeName(ctrl)
            ' 处理复选框、选项按钮
            Case "CheckBox", "OptionButton"
                ctrl.Value = False
                ctrl.ForeColor = vbBlack
            ' 可根据需求添加其他控件类型，比如文本框
            Case "TextBox"
                ctrl.Value = "" ' 文本框清空内容，按需调整
                ctrl.ForeColor = vbBlack
        End Select
    Next
End Sub

方法2：用TypeOf判断控件类（更严谨） #

通过TypeOf判断控件所属的类，精准定位支持目标属性的控件：

Sub Clear_All_Filter()
    Dim ctrl As Control
    For Each ctrl In UserForm1.Controls
        ' 处理有Value属性的控件（复选框、选项按钮）
        If TypeOf ctrl Is MSForms.CheckBox Or TypeOf ctrl Is MSForms.OptionButton Then
            ctrl.Value = False
        End If
        ' 处理有ForeColor属性的控件
        If TypeOf ctrl Is MSForms.ForeColor Then
            ctrl.ForeColor = vbBlack
        End If
    Next
End Sub

注意事项 #

避免使用On Error Resume Next：它会屏蔽所有错误，包括逻辑错误、控件引用错误等，导致后续调试困难。针对性处理控件类型才是更安全、可维护的写法。

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