Wie Werte von Zelle ändern Direkt rechts von aktueller Zelle

Question

Ich habe diesen Code:

Sub yeartest() 
Dim cell As Range 
For Each cell In Range("I7:I17") 
If cell.Value = "8" Then 
cell.Interior.Color = XlRgbColor.rgbLightGreen 

End If 
Next cell 
End Sub 

, die alle Zellen = 8 in dem Bereich, in Farbe zu drehen grün modifiziert.

Was Ich mag würde dies das gleiche Prinzip zu tun wäre, außer wenn eine Zelle im Bereich = 8 dann die Zelle direkt rechts davon grün leuchtet. Sagen wir zum Beispiel, die Zelle I9 war = 8, dann wird die Zelle direkt rechts davon, J9, grün.

das ich tun muss =RC[+1] in irgendeiner Weise implementieren.

Ich habe versucht:

RC[+1].Interior.Color = XlRgbColor.rgbLightGreen 

Answer 1

Verwendung Offset()

Cell.Offset(,1).Interior.Color = XlRgbColor.rgbLightGreen 

Answer 2

diese beiden Zellen mit einem Befehl Farbe wird, wenn Sie

Cell.Resize (1,2) werden soll. Interior.Color = XlRgbColor.rgbLightGreen