VBA: Ändern der Schriftfarbe für jede n-te Zelle basierend auf dem Zellenwert

Question

Ich habe es geschafft, Code arbeiten zu lassen, der eine ganze Zeile basierend auf dem Wert einer Zelle ausgraut. Jetzt

ich brauche: Wenn Zellenwert in AV < 100, die Farbe Schriftart ändern in jeder 6. Spalte, Spalte beginnend 6. dann, wenn der Wert in AW < 100, die Farbe Schriftart ändern in jeder 6. Spalte, Spalte Start 7. Dann wenn Wert in AX < 100, ändern Sie die Schriftfarbe in jeder 6. Spalte, beginnend mit Spalte 8. Ich muss dies mit jedem Wert im Bereich AV: AZ tun.

Ich würde wirklich etwas Hilfe zu schätzen wissen.

Dies ist der Code, den ich es geschafft, eine ganze Reihe graut zum Laufen zu bringen:

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

Sie können es tun, indem Sie den „EntireRow“ und die Verwendung von Offset statt Sie zu entfernen

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