Переключение языка при открытии формы

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Переключение языка при открытии формы - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Переключение языка при открытии формы (Макросы/Sub)

Переключение языка при открытии формы

Nikita085

Дата: Суббота, 25.07.2020, 12:01 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день уважаемые форумчане!
Прошу Вашей помощи в решении проблемки:
При открытии формы в файле необходимо изменить язык строго на английский.
Прошу Вашей помощи в решении!)

К сообщению приложен файл: 176578.xlsm (22.8 Kb)

Ответить

прохожий2019

Дата: Суббота, 25.07.2020, 15:34 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1298

Репутация: 327 ±

Замечаний: 0% ±

365 Beta Channel

[vba]

Код

#If VBA7 Then
   Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As LongPtr, ByVal flags As LongPtr) As LongPtr
#Else
   Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
#End If

Sub Form1()
    Call ActivateKeyboardLayout(67699721, 0)
    UserForm1.Show
End Sub

[/vba]

К сообщению приложен файл: 6984527.xlsm (16.8 Kb)

Ответить

Nikita085

Дата: Суббота, 25.07.2020, 21:24 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

прохожий2019, Благодарю за быструю помощь!)
+1

Ответить

Переключение языка при открытии формы (Макросы/Sub)

Страница 1 из 1
1