vba - Excel VBA 语言困难

Question

我有这段代码，我的问题是，它可以在英文版 Excel 上运行吗？我的意思是本地公式可以在英文版的 Excel 上使用吗？ (ORAZ 在我的语言中是“AND”的意思)。

当我输入 ORAZ 时，它只能在我的电脑上运行，但在英文电脑上则不行，当我输入 AND 时，它不会给出错误，但它不起作用，有什么想法可以帮助我吗？

With Range("$H$6:$FH$50").FormatConditions _
 .Add(xlExpression, xlFormula, "=ORAZ(H$7<=$G$7,(H$7+7)>$G$7)")
With .Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorLight2
    .TintAndShade = 0.799981688894314
End With
End With

Answer 1

我在我的(巴西葡萄牙语)Excel 2013 中进行了测试，发现 FormatConditions.Add() 确实需要本地化版本中的公式。它不像 Range.Formula 那样理解“规范公式”。

即使用于翻译公式的方法不是最合适的，以下内容也应该有效:

Dim temp As Range

' The temp cell is just for translating our formula.
' Set it to some cell your sheet will never use.
Set temp = ActiveSheet.Range("Z1000")
temp.Formula = "=AND(E$1<=$E$2,(E$1+2)>$E$2)" ' use English formula here

With Range("$A$1:$D$4").FormatConditions _
    .Add(Type:=xlExpression, Formula1:=temp.FormulaLocal)

    With .Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
    End With
End With

Call temp.Clear ' do away with the temp cell

请注意，我还删除了 .Add() 调用中无用的 xlFormula 参数，并明确了可选参数名称。

此外，事后我发现这个问题与 this 重复。和 this .