Determining the Excel Version Language <! - Country and Language Versions Of Excel country and language version -> Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
'Language Code Country'
'English 1 The United States of America
'Russian 7 Russian Federation
'Greek 30 Greece
'Dutch 31 The Netherlands
'French 33 France
'Spanish 34 Spain
'Hungarian 36 Hungary
'Italian 39 Italy
'Czech 42 Czech Republic
'Danish 45 Denmark
'Swedish 46 Sweden
'Norwegian 47 Norway
'Polish 48 Poland
'German 49 Germany
'Portuguese Brazil 55 Brazil
'Thai 66 Thailand
'Vietnamese 84 Vietnam
'Simplified Chinese 86 People's Republic of China
'Japanese 81 Japan
'Korean 82 South Korea
'Turkish 90 Turkey
'Indian 91 India
'Urdu 92 Pakistan
'Portuguese 351 Portugal
'Finnish 358 Finland
'Traditional Chinese 886 Taiwan
'Arabic 966 Saudi Arabia
'Hebrew 972 Israel
'Farsi 982 Iran
Sub LanguageUsed()
    Dim sLang As String
    Select Case Application.International(xlCountryCode)
        Case 1: sLang = "English"
        Case 7: sLang = "Russian"
        Case 30: sLang = "Greek"
        Case 31: sLang = "Dutch"
        Case 33: sLang = "French"
        Case 34: sLang = "Spanish"
        Case 36: sLang = "Hungarian"
        Case 39: sLang = "Italian"
        Case 42: sLang = "Czech"
        Case 45: sLang = "Danish"
        Case 46: sLang = "Swedish"
        Case 47: sLang = "Norwegian"
        Case 48: sLang = "Polish"
        Case 49: sLang = "German"
        Case 55: sLang = "Portuguese"
        Case 66: sLang = "Thai"
        Case 84: sLang = "Vietnamese"
        Case 86: sLang = "Simplified"
        Case 81: sLang = "Japanese"
        Case 82: sLang = "Korean"
        Case 90: sLang = "Turkish"
        Case 91: sLang = "Indian"
        Case 92: sLang = "Urdu"
        Case 351: sLang = "Portuguese"
        Case 358: sLang = "Finnish"
        Case 886: sLang = "Traditional"
        Case 966: sLang = "Arabic"
        Case 972: sLang = "Hebrew"
        Case 982: sLang = "Farsi"
        Case Else: sLang = "other"
    End Select
    MsgBox sLang
End Sub

No	Macro Name
1	Determining the Excel Version Language
2	excel operators hk
3	calculator on / off
4	fonts in word
5	remove sheet / page protections
6	Determining the Excel Version / Version
7	Determining the name of the sheet / page and file containing the active cell
8	to delete sales with faulty cells
9	Find how many formulas are in the selected field and select all cells containing the formula
10	Specify row height and column width in cm
11	desktop icon creation
12	dialog box without userform
13	The title of your userform is +
14	The title of your userform is +
15	automatic image fetch
16	Automatically resize row width when cells are merged
17	to the code section of the userform
18	hides the close button on the top right of the userform
19	userform 3 hides the close button on the top right of userform
20	Sentence story conversion: In the case of text, the first letter of the first word keeps the capital in a small case for all words. And this code helps you convert regular text into sentences.

Excel Free Macros (VBA)

Determining The Excel Version Language

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords