Как условно форматировать столбец в VBA на основе значения каждой ячейки и значения фиксированной ячейки?

Question

Мне нужно настроить условное форматирование для столбца, где каждая ячейка подсвечивается на основе двух других значений, полученных из ячеек в электронной таблице. Значения - это даты. Это необходимо сделать в VBA (по многим причинам: код работает с другим программным обеспечением и очищает содержимое, группирует группы вместе и т. Д.). Я не удался со многими методами и в настоящее время неудачи со следующим:

Sheets("Trial").Activate 
With ActiveSheet.Range("E:E") 
.Select 
.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, Formula1:="=" 
& (Range("P1").Value - 1), Formula2:="=" & (Range("P1").Value + 6) 
.FormatConditions(1).Interior.Color = RGB(255, 0, 0) 
End With 

В конце концов, мне нужно клетки в столбце Е краснеть, когда значение между P1-1 и P1 + 6. Даже если я извлечу этот код и запускаю его сам по себе, я получаю ошибку вызова процедуры. Мысли?

Answer 1

Пожалуйста, попробуйте:

Sheets("Trial").Activate 
With Columns("E:E") 
.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(E1>=$P$1-1,E1<=$P$1+6)" 
.FormatConditions(1).Interior.Color = 255 
End With 

Answer 2

Вы не должны даже использовать условное форматирование, если вы не хотите. Вы можете использовать цикл for для циклического прохождения всех значений в столбце E. Возьмите это в качестве примера.

Dim TotalERows As Long 
Dim EValue As Long 
Dim LowerBound As Long 
Dim UpperBound As Long 
LowerBound = Worksheets("Sheet1").Range("P1").Value - 2 
UpperBound = Worksheets("Sheet1").Range("P1").Value + 7 
TotalERows = Worksheets("Sheet1").Range("E" & Rows.Count).End(xlUp).Row 
For I = 1 To TotalERows 
    EValue = Range("E" & I).Value 
     If LowerBound < EValue And EValue < UpperBound Then 
      Range("E" & I).Interior.ColorIndex = 3 
     End If 
Next I