Изменить цвет ячеек на основе значения другой ячейки

Question

В этом VBA:

Sub color()
Dim color As Integer
For Each cell In Sheets(6).Range("F2:F65536")
If IsEmpty(cell) Then GoTo nextcell:
If Not IsNumeric(cell.Value) Then GoTo nextcell:
If cell.Value > 50 Then
  color = 4
ElseIf cell.Value < 35 Then color = 3
Else: color = 2
End If
cell.EntireRow.Interior.ColorIndex = color
nextcell:
Next cell
End Sub

Что вы измените, чтобы изменить цвета в ячейках B3:F3 и т.д. B4:F4 и т.д. Вместо всей строки?

Answer 1

Есть два основных способа -

ElseIf cell.Value < 35 Then color = 3
Else: color = 2
End If
Range(cells(cell.row,2),cells(cell.row,6)).interior.color = rgb(color)

Это должно работать. Иначе -

Range("B" & cell.row & ":F" & cell.row).interior.color = rgb(color)

Кроме этого вы могли бы сделать что-то вроде

range(cell.offset(,-4),cell).interior.color = rgb(color)

Но я бы не стал этого делать.