求助：动态设置UserForm中Deadlift板块负数标签前景色为红色

我来帮你排查这个问题——你的代码没报错但没效果，大概率是几个常见的VBA UserForm控件属性误区导致的，咱们一步步拆解和修正：

核心问题分析 #

1. Label控件没有Value属性：你代码里用了myForm.Controls("Label" & lLoop).Value，但VBA中Label控件的显示内容是存在Caption属性里的，Value属性对Label来说并不存在，默认会返回空值，所以你的判断条件永远不成立。
2. 文本转数值的必要操作：Caption是文本类型，直接和数值0比较会出现类型不匹配的隐性问题（虽然没报错，但判断逻辑会失效），必须先把文本转换成数值再判断。
3. 窗体实例引用的正确性：要确保myForm是当前正在显示的窗体实例，如果你的窗体是默认创建的（比如UserForm1.Show），在窗体模块里可以用Me来引用，更可靠。

修正后的代码 #

根据上面的问题，我把代码调整如下，你可以直接替换测试：

Sub updateForm2()
    Dim lLoop As Long
    Dim targetLabel As Control
    Dim labelValue As Double
    
    ' 遍历Deadlift板块的标签（163到312）
    For lLoop = 163 To 312
        Set targetLabel = myForm.Controls("Label" & lLoop)
        
        ' 先判断控件是否为Label，避免非Label控件报错
        If TypeName(targetLabel) = "Label" Then
            ' 尝试将Caption转为数值，转换失败则默认设为0
            On Error Resume Next
            labelValue = CDbl(targetLabel.Caption)
            If Err.Number <> 0 Then labelValue = 0
            On Error GoTo 0
            
            ' 判断是否为负值，设置前景色
            If labelValue < 0 Then
                targetLabel.ForeColor = vbRed
            Else
                ' 可以加个默认颜色，比如黑色，避免之前设置的红色残留
                targetLabel.ForeColor = vbBlack
            End If
        End If
    Next lLoop
End Sub

额外注意事项 #

• 如果你是在窗体自身的模块里调用这个过程，把myForm换成Me会更稳妥，比如Set targetLabel = Me.Controls("Label" & lLoop)。
• 确认你的Label编号范围（163到312）确实是Deadlift板块对应的控件，避免遍历了错误的控件组。
• 如果你的Label里可能有非数值内容（比如空文本、字母），代码里的错误处理会把它们默认设为0，不会触发红色，你可以根据需求调整这个逻辑。

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