我可以使用表格命令根据通过/失败更改字体颜色吗？

Question

我使用以下代码来确定 VB 中的通过/失败

Sheets(1).Cells(rwcount, qccolcnt + 1).Value = Sheets(sheet_number).Cells(6, tempcount).Value

此表格命令返回“通过”或“失败”并填充单元格。我想将此单元格中的字体分别更改为绿色或红色。

如有任何帮助，我们将不胜感激。

Answer 1

这也将取代您现有的线路

With Sheets(1).Cells(rwcount, qccolcnt + 1)
    .Value = Sheets(sheet_number).Cells(6, tempcount).Value
    If .Value = "PASS" Then .Interior.Color = vbGreen
    If .Value = "FAIL" Then .Interior.Color = vbRed
End With