如何根据每个单元格的值和固定单元格的值有条件地格式化 VBA 中的列?
How do I conditionally format a column in VBA based on each cell's value and a fixed cell's value?
我需要为一列设置条件格式,其中每个单元格根据从电子表格中的单元格派生的另外两个值突出显示。值是日期。这需要在 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
最终,我需要E列的单元格在值介于P1-1和P1+6之间时变为红色。即使我提取此代码并单独 运行 它,我也会遇到过程调用错误。想法?
请尝试:
Sheets("Trial").Activate
With Columns("E:E")
.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(E1>=$P-1,E1<=$P+6)"
.FormatConditions(1).Interior.Color = 255
End With
如果您不想,甚至不必使用条件格式。您可以使用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
我需要为一列设置条件格式,其中每个单元格根据从电子表格中的单元格派生的另外两个值突出显示。值是日期。这需要在 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
最终,我需要E列的单元格在值介于P1-1和P1+6之间时变为红色。即使我提取此代码并单独 运行 它,我也会遇到过程调用错误。想法?
请尝试:
Sheets("Trial").Activate
With Columns("E:E")
.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(E1>=$P-1,E1<=$P+6)"
.FormatConditions(1).Interior.Color = 255
End With
如果您不想,甚至不必使用条件格式。您可以使用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