none
Identificar a Linguagem utilizada pelo Excel (VBA) RRS feed

  • Pergunta

  • Bom dia pessoal,

    Como próprio título sugere estou procurando uma forma de identificar a linguagem usada pelo excel, exemplo:

    - o excel pode estar configurado em inglês ou em português

    Muito Obrigado a todos!


    quinta-feira, 9 de julho de 2015 12:37

Respostas

  • Bom dia,

    Aperte AL + F11 para acessar o editor do visual basic.

    Clique nos menus Inserir -> Módulo.

    Insira o seguinte código abaixo

    Public Function Idioma() As String
      
      Dim Lang As Long
    
      Lang = Application.SpellingOptions.DictLang
      
      If Lang = 1046 Then
         Idioma = "BR"
      
      ElseIf Lang = 1033 Then
         Idioma = "IN"
     
      Else
         Idioma = "IT"
     
      End If
    
      Msgbox "Idioma"
    
    End Function
    

    Utilize também a referência abaixo que endereça várias problemas de aplicativos que rodam em vários países:

    http://www.oaltd.co.uk/ExcelProgRef/Ch22/ProgRefCh22.htm

    • Sugerido como Resposta André Santo quinta-feira, 9 de julho de 2015 13:06
    • Marcado como Resposta Lucas_Martins_Silva quinta-feira, 9 de julho de 2015 14:20
    quinta-feira, 9 de julho de 2015 13:06

Todas as Respostas

  • Assim:

    MsgBox Application.International(xlCountryCode)

    a lista com os códigos dos países você pode verificar aqui:

    https://support.microsoft.com/en-us/kb/213833/en-us?wa=wsignin1.0


    Natan

    quinta-feira, 9 de julho de 2015 13:05
  • Bom dia,

    Aperte AL + F11 para acessar o editor do visual basic.

    Clique nos menus Inserir -> Módulo.

    Insira o seguinte código abaixo

    Public Function Idioma() As String
      
      Dim Lang As Long
    
      Lang = Application.SpellingOptions.DictLang
      
      If Lang = 1046 Then
         Idioma = "BR"
      
      ElseIf Lang = 1033 Then
         Idioma = "IN"
     
      Else
         Idioma = "IT"
     
      End If
    
      Msgbox "Idioma"
    
    End Function
    

    Utilize também a referência abaixo que endereça várias problemas de aplicativos que rodam em vários países:

    http://www.oaltd.co.uk/ExcelProgRef/Ch22/ProgRefCh22.htm

    • Sugerido como Resposta André Santo quinta-feira, 9 de julho de 2015 13:06
    • Marcado como Resposta Lucas_Martins_Silva quinta-feira, 9 de julho de 2015 14:20
    quinta-feira, 9 de julho de 2015 13:06
  • Obrigado a todos!
    quinta-feira, 9 de julho de 2015 14:21