Question

我设法让代码工作，根据单元格的值使整行变灰。

现在我需要：如果AV中的单元格值< 100，从第6列开始，更改每第6列的字体颜色。然后，如果AW中的值<＆lt; 100，从第7列开始，更改每第6列的字体颜色。然后，如果AX中的值<＆lt; 100，从第8列开始，更改每第6列的字体颜色。我需要对Range 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

您可以删除＆＃34; EntireRow＆＃34;并使用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

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

1 个答案: