基于不同单元格的VBA条件格式

Question

我正在写一个宏作为一个更大的项目的一部分。最后一点是，如果w列中的条件满足，则对V列中的单元格应用条件格式。

我

运行时错误5:无效过程调用或参数错误。

Sub ComConFormGreen()
'
' ComConForGreen Macro
'
'
Columns("W:W").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""Each"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Columns("V:V").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""$W1=""Each"""""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

问题出现在下面一行:

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""$W1=""Each"""""

Answer 1

您的条件规则查找xlCellValue中的值，但是您正在尝试解析公式，因此您应该使用xlExpression相反。

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$W1=""Each"""