通过 vba 为双语用户自动更改 Excel 中的数字格式系统

Question

对于使用双语报告的人来说，频繁更换数字系统是一件很头疼的事情。

我有代码来更改号码英语到阿拉伯来回。

但我需要了解当前的系统状态是英语还是阿拉伯语。

有办法知道这个吗？

Answer 1

您需要使用Application对象

Set lg = Application.LanguageSettings
MsgBox lg.LanguageID(msoLanguageIDInstall) 'this will return the code of the language based on the parameter given to LanguageID method

该参数可以是以下任一

• msoLanguageIDExeMode=4：执行模式语言。
• msoLanguageIDHelp=3：帮助语言。
• msoLanguageIDInstall=1：安装语言。
• msoLanguageIDUI=2：用户界面语言。
• msoLanguageIDUIPrevious=5: 使用的用户界面语言优先于当前用户界面语言。