Excel VBA请假管理脚本：Lookup结果ForeColor无法设为黑色求助

以下是针对你遇到的文本框颜色不生效问题的排查方向和解决方案：

1. 检查控件的锁定/启用状态 #

如果TextBox1的Locked属性设为True且Enabled设为False，系统会强制使用灰色样式覆盖自定义颜色。可以调整为：

• 允许编辑：Me.TextBox1.Locked = False
• 锁定但保留自定义样式：Me.TextBox1.Locked = True : Me.TextBox1.Enabled = True

2. 避免单元格格式继承 #

VLookup返回的内容可能继承了源单元格的字体格式，导致颜色被覆盖。将返回值转为纯文本：

Me.TextBox1.Value = CStr(Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1.Value), _
                      ThisWorkbook.Sheets("Settings").Range("J:K"), 2, 0))

3. 强制控件刷新 #

设置颜色后强制刷新控件，确保样式即时生效：

Me.TextBox1.ForeColor = lngBlack
Me.TextBox1.Refresh ' 新增刷新语句

4. 检查后续代码覆盖 #

确认Else分支或其他事件代码中没有重新设置ForeColor，比如误将空值状态的颜色设置覆盖了正常状态。

修正后的完整代码示例 #

Private Sub ComboBox1_Change()
    Dim lngBlack As Long
    lngBlack = RGB(0, 0, 0)
    
    If Me.ComboBox1.Value <> "" Then
        ' 转为纯文本避免格式继承
        Me.TextBox1.Value = CStr(Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1.Value), _
                              ThisWorkbook.Sheets("Settings").Range("J:K"), 2, 0))
        ' 配置控件状态以保留自定义颜色
        Me.TextBox1.Locked = True
        Me.TextBox1.Enabled = True
        ' 设置黑色并刷新
        Me.TextBox1.ForeColor = lngBlack
        Me.TextBox1.Refresh
    Else
        ' 空值状态的处理（按需调整）
        Me.TextBox1.Value = ""
        Me.TextBox1.ForeColor = RGB(128, 128, 128)
    End If
End Sub

额外排查点 #

• 检查窗体的主题/样式设置，部分主题会强制控件默认颜色，切换到默认主题测试。
• 确认没有其他事件（如TextBox1_Change）动态修改ForeColor。

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