vba - Excel 宏，在运行时插入国际有效的公式

Question

我有一个带有宏的 Excel 电子表格，可以插入条件格式，如下所示:

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=UND($A3=""" & lastName & """; $B3=""" & firstName & """)"

如您所见，我使用了德语公式“AND”(即“UND”)，显然，当我在法语或英语版本的 Excel 上使用此代码时，它就不起作用。通常公式会自动本地化，但如何在运行时插入适用于所有版本的公式？

Answer 1

好的，谢谢你帮我解决这个问题，你帮我解决了这个问题。

光用英文确实不行。在操作公式时可以使用英语，例如。通过设置编码 Range("A1").formula="AND(TRUE)"，但这不适用于 FormatConditions。

我的解决方案是一个函数，它将公式临时写入单元格，通过 FormulaLocal 属性读取它，并返回本地化的公式，如下所示:

Function GetLocalizedFormula(formula As String)
' returns the English formula from the parameter in the local format
  Dim temporary As String
  temporary = Range("A1").formula
  Range("A1").formula = formula
  Dim result As String
  result = Range("A1").FormulaLocal
  Range("A1").formula = temporary
  GetLocalizedFormula = result
End Function

返回的公式可用于 FormatConditions，当文档稍后在不同语言版本的 Excel 上打开时，该公式将被重新本地化或取消本地化。