VBA仅为具有False值的单元格设置条件格式

我使用VBA将条件格式应用于表单，如果内容为“FALSE”，则设置背景颜色和正面颜色：

Sub Formatting() Sheets("File").Cells.FormatConditions.Delete With Range("N2:N2000").FormatConditions.Add( _ Type:=xlExpression, _ Formula1:="=$N2=FALSE") .Interior.Color = RGB(255, 239, 239) .Font.Color = RGB(97, 0, 0) End With End Sub 

但是，空白单元格也会变红。

如何仅将条件格式应用于具有“False”值的单元格？

Answer 1

首先，确保完全符合Sheets("File") Range("N2:N2000") Sheets("File") 。

其次，如果只想将格式应用于单词“FALSE”，而单元格内没有额外字符，则使用TextOperator:=xlEqual ，否则使用TextOperator:=xlContains 。

码

 Option Explicit Sub Formatting() With Sheets("File") .Cells.FormatConditions.Delete With .Range("N2:N2000").FormatConditions.Add( _ Type:=xlTextString, String:="FALSE", TextOperator:=xlEqual) .Interior.Color = RGB(255, 239, 239) .Font.Color = RGB(97, 0, 0) End With End With End Sub 

Answer 2

尝试将其匹配为文本：

 Type:=xlTextString, String:="FALSE", TextOperator:=xlContains