VBA：根据单元格值在第n个单元格上更改字体颜色

Question

我设法使代码能够根据单元格的值将整个行显示为灰色。

现在我需要：如果AV的单元格值<100，则在第6列的第6列开始更改字体颜色。然后，如果AW <100的值，则在第6列的第6列开始更改字体颜色。 AX <100，请从第8列开始的第6列中更改字体颜色。我需要使用范围AV：AZ中的每个值来执行此操作。

我真的很感谢您的帮助。

这是我设法使整个行变灰的代码：

    Range("AU1").Select
    For i = 12 To LRow                                                'Do for Row 12 to end
        If Cells(i, 47).value < 100 Then
            Cells(i, 47).EntireRow.Font.Color = RGB(150, 150, 150)
        End If
    Next i

Answer 1

您可以通过删除“ EntireRow ”并使用Offset来做到这一点

Range("AU1").Select
For i = 12 To LRow      'Do   for Row 12 to end
    If Cells(i, 47).value < 100 Then
        For j = 1 to 10  ' this must be tuned to your need.
          Cells(i, 47).Offset(0, 6*j +1).Font.Color = RGB(150, 150, 150)
        Next j
    End If
Next i