带列名的条件格式

Question

我遇到了一个小问题。我在查看另一列 (B) 的列 (A) 上设置了条件格式。

过去我使用 VBA 通过 dat 代码创建条件格式：

    Range("I3:I99").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=W1=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

可以正常工作，但我的板子没有修复，新专栏可以在两者之间到达。

我决定将“W”列重命名为“OPI” 并像这样更改我的代码：

    Range("I3:I99").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OPI1=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

但是那没有用。不知道怎么写？？？

谢谢你帮助我，祝你有愉快的一天

Answer 1

请尝试下一个代码：

Sub TestValidationNamedRange()
 With Range("I3:I99")
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & Range("OPI").cells(3).Address(0, 0) & "=0"
    .FormatConditions(.FormatConditions.count).SetFirstPriority
    With .FormatConditions(1).Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    .FormatConditions(1).StopIfTrue = False
 End With
End Sub

带列名的条件格式

conditional formatting with column name

vba

conditional-formatting