excel - 有没有办法在 Excel 中的 VBA 格式条件内编写与本地语言无关的公式？

Question

我正在用 VBA 编写一个包含一个简单公式的 excel 宏：

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=NOT(AND($L1>360;$K1<45))"

但是，这只有在 excel 中的语言设置为英语时才有效。如果申请人的语言是德语，它看起来像这样：

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=NICHT(UND($L1>360;$K1<45))"

有没有办法使用适用于所有申请人的通用方法？

关于解决方案的一些要求：

• 它不应该是具体的（没有从英语到德语的翻译）
• 带有语言 ID 的 select case 语句也不适用
• 函数翻译器有一个选项：由于管理员限制，这不能应用（我很好奇，如果有另一种方法:)）
• 更改公式以在单元格中使用它也不适用，因为我需要那里的格式条件

任何帮助表示赞赏

标签： excelvbaregional-settings

Answer 1

实际上这是不可能的，但有一个解决方法。

首先注意英文版本使用,而不是;作为分隔符，所以你的英文公式需要是=NOT(AND($L1>360,$K1<45)).

解决方法是将该公式写入任何未使用的单元格。

Range("unused_cell").Formula = "=NOT(AND($L1>360,$K1<45))"

然后阅读那个的本地化

Dim FormulaLocal As String
FormulaLocal = Range("unused_cell").FormulaLocal

并将其用作条件

Selection.FormatConditions.Add Type:=xlExpression, Formula1:=FormulaLocal

这会将条件转换为 Excel 的正确本地化。