MyTetra Share
Делитесь знаниями!
Определить Application.LanguageSettings
Время создания: 28.05.2020 11:05
Текстовые метки: GetVersion Language
Раздел: !Закладки - VBA




Select Case Application.International(xlApplicationInternational.xlCountryCode)

Case 1: Call MsgBox("English")

Case 33: Call MsgBox("French")

Case 49: Call MsgBox("German")

Case 81: Call MsgBox("Japanese")

End Select

Straight out of here: https://bettersolutions.com/vba/macros/region-language.htm

Relevant Documentation: https://docs.microsoft.com/en-us/office/vba/api/excel.xlapplicationinternational


Sub GetVersionS()


If VBA.Environ("UserName") <> "au11101" Then

'ApplicationInternational

Cells(2, 1).Value = "ApplicationInternational"

Cells(2, 2).Value = Application.International(XlApplicationInternational.xlCountryCode)

Select Case Application.International(XlApplicationInternational.xlCountryCode)

Case 1: strApplicationInternational = "English"

Cells(1, 1) = "DD.MM.YYYY"

Case 7: strApplicationInternational = "Ru"

Cells(1, 1) = "ДД.ММ.ГГГГ"

Case 33: strApplicationInternational = "French"

Case 49: strApplicationInternational = "German"

Case 81: strApplicationInternational = "Japanese"

End Select

Cells(2, 3).Value = strApplicationInternational

'LanguageSettings

Cells(3, 1).Value = "LanguageSettings"

Cells(3, 2).Value = Application.LanguageSettings.LanguageID(msoLanguageIDInstall)

'WinVersion

Cells(4, 1).Value = "GetWinVersion"

Cells(4, 2).Value = GetWinVersion()

End If

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования