Languages above the line are system languages that are. Do any of the following: Add a language: Click the Add button, select one or more languages in the list, then click Add. Option Explicit '(v=vs.85).aspx '(v=vs.85).aspx ' #If Win64 Then Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32" ( ByVal HKL As LongPtr, ByVal Flag As Long ) As LongPtr # Else Private Declare Function ActivateKeyboardLayout Lib "user32.dll" ( ByVal HKL As Long, Flag As Long ) As Long #End If Function ActivateKeyboardLanguage (sLanguage As String ) As Boolean Dim oLocale As ListObject Dim vLocale As Variant Dim i As Long Set oLocale = ThisWorkbook.Sheets( "LocaleID" ).ListObjects( 1 ) vLocale = 2 For i = LBound(vLocale) To UBound(vLocale) If InStr(LCase(vLocale(i, 1 )), LCase(sLanguage)) > 0 Then If ActivateKeyboardLayout(vLocale(i, 2 ), 0 ) 0 Then ActivateKeyboardLanguage = True Exit Function End If End If Next i End Function Sub Test () Debug.Print ActivateKeyboardLanguage( "English" ) Debug.Print ActivateKeyboardLanguage( "greek" ) Debug. On your Mac, choose Apple menu > System Preferences, then click Language & Region.
0 kommentar(er)
