VBA UserForm统计红色字体文本框数量代码失效求助

你的代码逻辑存在两个核心错误，导致无法正确统计红色文本框数量：

1. 错误地将所有文本框设置为红色，而非判断已有红色文本框
2. 使用了错误的属性访问方式（DisplayFormat适用于Excel单元格，不适用于UserForm文本框）

修正后的代码 #

Private Sub CommandButton6_Click()
    Dim totalred As Integer
    Dim ctrl As Control
    totalred = 0
    
    '遍历UserForm1内所有控件
    For Each ctrl In UserForm1.Controls
        '仅处理文本框，且判断其前景色是否为红色
        If TypeOf ctrl Is MSForms.TextBox Then
            If ctrl.ForeColor = vbRed Then
                totalred = totalred + 1
            End If
        End If
    Next ctrl
    
    '将统计结果写入目标文本框
    UserForm1.INCORRECTCOUNT.Value = totalred
    '可选：弹窗验证结果
    MsgBox "红色文本框数量：" & totalred
End Sub

关键修正说明 #

• 逻辑反转修正：把原代码中ctrl.DisplayFormat.ForeColor.COLOR = vbRed（设置颜色）改为If ctrl.ForeColor = vbRed Then（判断已有颜色），这才是统计红色文本框的正确逻辑
• 属性修正：UserForm文本框的前景色直接通过ForeColor属性访问，无需DisplayFormat
• 效率优化：将结果赋值语句移到循环外，避免重复更新控件
• 类型明确：指定MSForms.TextBox，避免与其他类型文本控件混淆

额外注意事项 #

• 确保你的验证逻辑中，设置错误文本框颜色时确实用的是vbRed（或等价的RGB(255,0,0)），如果用了其他红色RGB值，需同步修改判断条件
• 确认INCORRECTCOUNT是UserForm1上存在的文本框控件，名称拼写完全一致

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