vba - 我的 Excel 条件格式公式手动工作，但未在 VBA 中编码

Question

我在“条件格式”图形界面中手动创建了这个公式

=IF(AND($M7<>""SpecificDeparment"",NOT(ISBLANK($O7))),TRUE)

它应该验证只有一个特定部门接受一个 ID，其他部门不能有一个 ID，用红色填充错误 ID 单元格，它手动工作得很好，我将公式替换为 RC 格式

=IF(AND(RC[-2]<>""SpecificDeparment"",NOT(ISBLANK(RC))),TRUE)

它运行并且对 Worksheet 没有任何影响，但如果我只允许一个条件(例如: =IF($RC[-2]<>""SpecificDeparment"",TRUE)它可以工作并更改我的列填充颜色。

这是我用于在 VBA 中分配格式的代码:

With .Range(wrkbook.Sheets("Data").Cells(FirstRow, .Range("ID_Marker").Column), wrkbook.Sheets("Data").Cells(LastRow, .Range("ID_Marker").Column))

 .FormatConditions.Add Type:=xlExpression, Formula1:="=IF(AND(RC[-2]<>""SpecificDeparment"",NOT(ISBLANK(RC))),TRUE)"

    .FormatConditions(.FormatConditions.Count).SetFirstPriority
       With .FormatConditions(1)
        .Font.ColorIndex = MustFixDataFontColor
            .Font.Bold = MustFixDataFontBold
            .Interior.ColorIndex = 3
            .StopIfTrue = False
        End With

   End With
        DoEvents

Answer 1

上面的公式来自你的excel公式，下面的公式是vba公式放入msgbox时产生的代码