如何通过VB的Sheets命令根据PASS/FAIL设置单元格字体颜色？

你可以在写入值之后，通过判断单元格内容来设置对应字体颜色，修改后的代码如下：

' 将PASS/FAIL值写入目标单元格
Sheets(1).Cells(rwcount, qccolcnt + 1).Value = Sheets(sheet_number).Cells(6, tempcount).Value

' 根据单元格内容设置字体颜色
With Sheets(1).Cells(rwcount, qccolcnt + 1)
    Select Case UCase(.Value)
        Case "PASS"
            .Font.Color = vbGreen
        Case "FAIL"
            .Font.Color = vbRed
    End Select
End With

补充说明 #

• 使用UCase可以兼容输入值的大小写差异（比如"pass"或"Fail"），避免判断失效
• 也可以用RGB值替代内置常量，比如RGB(0, 176, 80)（深绿色）或RGB(255, 0, 0)（纯红色）
• 如果需要同时设置单元格填充色，可添加.Interior.Color = 对应颜色语句

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