VBA：セルの値に基づいてn番目のセルごとにフォントの色を変更します。

Question

セルの値に基づいて行全体が淡色表示になるコードを取得できました。

今は必要： AV < 100におけるセル値場合は、すべての6列のフォントの色を変更した場合、AW < 100の値を列6 を開始、すべての6列のフォントの色を変更し、カラムを開始7. AX <の値が100の場合、列6を始点とする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

あなたが代わりに代わり

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