Excel VBA 条件格式 - 公式 1 参数的正确语法

Question

在 Excel 2016 上运行通过 Excel VBA 进行条件格式设置存在问题。 我有以下简单的代码：

With targetSheet.Range("J:J")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, _
            Formula1:="=AND(ISBLANK($J1), NOT(ISBLANK($A1)), ISBLANK($K1))"
        .FormatConditions(1).Interior.ColorIndex = 53
End With

（targetSheet 已在别处定义，因此无需担心）。

此代码在我的计算机上运行良好。没有运行时错误，当我打开条件格式弹出窗口时，我看到正确的公式如下：

"=AND(ISBLANK($J1), NOT(ISBLANK($A1)), ISBLANK($K1))" 

（包括引号）

当我将此 Excel 发送给办公室中的其他人（我们所有人都有 Excel 2016）时，他们中的一些人收到以下错误：

“运行时错误'5'：无效的过程调用或参数。”

调试后发现Error是=AND操作符引起的。

如果我删除=（等号），它在运行时不会失败，但条件格式功能是错误的。当我打开条件格式弹出窗口时，它显示：

="AND(ISBLANK($J1), NOT(ISBLANK($A1)), ISBLANK($K1))"

Formula1: 的正确语法是什么？

Answer 1

不幸的是，CF 公式的编码必须与在目标计算机上输入的完全相同，因此容易受到计算机之间语言和区域问题的影响。您可以做的是让代码将公式输入到单元格中，然后读回该单元格的 FormulaLocal 属性，并在 CF 设置中使用它。