Excel VBA代码,用于突出显示不包含特定文本的单元格

Excel VBA代码,用于突出显示不包含特定文本的单元格,excel,vba,Excel,Vba,我在下面的一列中列出了以下值。我想突出显示没有字符串“是”、“否”和“不适用”的单元格 我尝试了下面的VBA,但它也没有突出显示“是-否结构更改”和“否”等值 只需添加一个条件格式规则 with worksheets("sheet1") with .range(.cells(1, "A"), .cells(.rows.count, "A").end(xlup)) with .formatconditions.add(type:=xlexpression, _

我在下面的一列中列出了以下值。我想突出显示没有字符串“是”、“否”和“不适用”的单元格

我尝试了下面的VBA,但它也没有突出显示“是-否结构更改”和“否”等值


只需添加一个条件格式规则

with worksheets("sheet1")
  with .range(.cells(1, "A"), .cells(.rows.count, "A").end(xlup))
    with .formatconditions.add(type:=xlexpression, _
                               formula1:="=OR(COUNTIF(A1, ""*yes*""), COUNTIF(A1, ""*no*""), COUNTIF(A1, ""*n/a*""))")
      .interior.color = vbred
    end with
  end with
end with
您自己的代码需要使用带有Like的通配符

If Not (a.Value Like "*Yes*" Or a.Value Like "*No*" Or a.Value Like "*N/A*") Then 

只需添加一个条件格式规则

with worksheets("sheet1")
  with .range(.cells(1, "A"), .cells(.rows.count, "A").end(xlup))
    with .formatconditions.add(type:=xlexpression, _
                               formula1:="=OR(COUNTIF(A1, ""*yes*""), COUNTIF(A1, ""*no*""), COUNTIF(A1, ""*n/a*""))")
      .interior.color = vbred
    end with
  end with
end with
您自己的代码需要使用带有Like的通配符

If Not (a.Value Like "*Yes*" Or a.Value Like "*No*" Or a.Value Like "*N/A*") Then 

你的叙述似乎自相矛盾。是否要突出显示不是“是”、“否”、“不适用”的单元格,以便不突出显示“否”等字符串,还是要突出显示它们?您的叙述似乎自相矛盾。是否要突出显示不是“是”、“否”、“不适用”的单元格,以便不突出显示“否”等字符串,还是要突出显示它们?