vba 条件格式 select 规则

Question

在 excel 中，您可以轻松使用条件格式> 新规则> 在 Select 规则栏中，您可以从 6 种可用模式中选择一种。但在 vba 中，您只能使用包含模式的 Select 单元格。我需要将其更改为第 6 个，Select 自定义条件。有没有可能。也许问题是因为我使用了百分比？

我的代码很简单；

With ThisWorkBook.Worksheets(1).Range("A1").FormatConditions.Add(xlCellValue,xlGreaterEqual, "=$B3>=100%")
.AppliesTo=Range("A1")
.StopIfTrue=False
    With .Font
    .ColorIndex=4
    End With
End With

Answer 1

几个问题：

是FormatConditions.Add（可能是你问题中的错字）
xlGreaterThan 不是有效选项。可能你的意思是 xlGreaterEqual。有关选项列表，请参阅 docs。
100% 等同于 1.

Dim cond As FormatCondition
Set cond = ThisWorkbook.ActiveSheet.Range("A3").FormatConditions.Add(xlCellValue, xlGreaterEqual, 1)

编辑：

如果要使用表达式，则：

With ThisWorkBook.Worksheets(1).Range("A1").FormatConditions.Add(Type:=xlExpression, Formula1:="=$B1>=1")
    .AppliesTo=Range("A1")
    .StopIfTrue=False
     With .Font
        .ColorIndex=4
     End With
End With

vba 条件格式 select 规则

vba conditional formatting select a rule

excel

vba

conditional-formatting