Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переключение языка при открытии формы (Макросы/Sub)
Переключение языка при открытии формы
Nikita085 Дата: Суббота, 25.07.2020, 12:01 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день уважаемые форумчане!
Прошу Вашей помощи в решении проблемки:
При открытии формы в файле необходимо изменить язык строго на английский.
Прошу Вашей помощи в решении!)
К сообщению приложен файл: 176578.xlsm(22.8 Kb)
 
Ответить
СообщениеДобрый день уважаемые форумчане!
Прошу Вашей помощи в решении проблемки:
При открытии формы в файле необходимо изменить язык строго на английский.
Прошу Вашей помощи в решении!)

Автор - Nikita085
Дата добавления - 25.07.2020 в 12:01
прохожий2019 Дата: Суббота, 25.07.2020, 15:34 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 383
Репутация: 64 ±
Замечаний: 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)
 
Ответить
Сообщение[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]

Автор - прохожий2019
Дата добавления - 25.07.2020 в 15:34
Nikita085 Дата: Суббота, 25.07.2020, 21:24 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Nikita085
Дата добавления - 25.07.2020 в 21:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переключение языка при открытии формы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

jooble Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!