Automatize mudanças no sistema de formato numérico no Excel através de vba para usuários bilíngües

Question

Para aqueles que usam relatórios bilímicos, é uma dor de cabeça para alterar o sistema numérico com freqüência.

Eu tenho o código para mudar o número de inglês para árabe para trás e para frente.

Mas preciso descobrir qual é o status atual do sistema, inglês ou árabe.

Existe uma maneira de saber isso?

    

Answer 1

Você precisará usar Application object

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

O parâmetro pode ser um dos seguintes

• msoLanguageIDExeMode = 4: idioma do modo de execução.
• msoLanguageIDHelp = 3: idioma da ajuda.
• msoLanguageIDInstall = 1: idioma de instalação.
• msoLanguageIDUI = 2: idioma da interface do usuário.
• msoLanguageIDUIPrevious = 5: idioma da interface do usuário usado antes do idioma atual da interface do usuário.