将excel公式国际化

有一些方法来在Excelmacros上键入国际化的公式？

现在我正在做一些这样的事情：

If (languageCode = 1033) Then 'type formula in english sheet.cell(r,c).Value = "=IF(A1=B1, "i18n", "#error")" Else 'type formula in another language sheet.cell(r,c).Value = "=SE(A1=B1, "i18n", "#erro")" End If 

我使用这种逻辑，因为客户端的excel与我的语言不同，但公式是非常大的，还有很多其他的语言可以覆盖..所以我不喜欢它的方式。 :(我做了一些接吻，但没有满意的答案。

这是我第一个问题，如果我犯了一些错误或格式错误，我很抱歉。

Answer 1

按照这篇文章 vba在英文内部工作，Excel在运行时转换为目标语言。 您应该能够使用单元格的formula属性而不是.value来完成此操作。

 sheet.cell(r,c).Formula = "=IF(A1=B1, "i18n", "#error")" 

另请参阅国际有效的Excel公式 。