Раскраски строк на основе сравнения между двумя столбцами

Question

Я работаю над макросом Excel, который удаляет несколько столбцов, корректирует размер и формат некоторых других столбцов, а затем должен иметь цветные строки в зависимости от сравнения двух дат в столбцах G и H. Правило должно быть, если даты, указанные в G, равны, или позже, чем дата в H, тогда эта строка должна получить зеленый цвет земли, если даты предшествуют в течение 4 недель, тогда он должен быть окрашен в желтый цвет и что-нибудь раньше, чем 4 недели должны быть окрашены в красный цвет.

Я пытался добиться этого с помощью следующего кода, к сожалению, я не то, что опыт работы с Excel макросов, так что если кто-то имеет какой-либо помощи я был бы признателен:

Set DelIndi = Range("H:H") 
For Each Cell In DelIndi 
    Select Case Cell.Value 

     Case Is > Range("G:G").Value 
      Cell.EntireRow.Interior.ColorIndex = 4 

     Case Is < Range("G:G").Value 
      Cell.EntireRow.Interior.ColorIndex = 5 

     Case Is = "9999999" 
      Cell.EntireRow.Interior.ColorIndex = 3 

     'Case Else 
      'Cell.EntireRow.Interior.ColorIndex = 4 

    End Select 

Next 

Answer 1

форматирование не супер довольно здесь, но это будет работать

Sub colorCells() 

For i = x To y 
    If (Range("G" & i).Value >= Range("H" & i).Value) Then 
     Range("G" & i & ":H" & i).Interior.Color = 5287936 
    Else 

     If (Range("G" & i).Value >= (Range("h" & i).Value - 28)) Then 
      Range("G" & i & ":H" & i).Interior.Color = 65535 
     Else 
      Range("G" & i & ":H" & i).Interior.Color = 255 
     End If 
    End If 
Next i 

End Sub 

Где это говорит For i = x to y, изменение х в первой строке вы хотите, чтобы цвет и у до последней строки, которую вы хотите, чтобы цвет. Обратите внимание, что любые пустые строки будут окрашены в желтый цвет.