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

Вход

Регистрация

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

 

= Мир MS Excel/Изменить раскладку клавиатуры при открытии Excel - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Готовые решения » Изменить раскладку клавиатуры при открытии Excel (VBA)
Изменить раскладку клавиатуры при открытии Excel
al-Ex Дата: Среда, 03.02.2016, 16:41 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 56 ±
Замечаний: 0% ±

Excel 2010
Вот такой код в личной книге макросов.
В модуле "Эта Книга"
обеспечивает автоматическое включение русской раскладки клавиатуры при открытии любого файла Excel
Вроде мелочь, а удобно.

[vba]
Код
Option Explicit
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Dim X As Long
Const kb_lay_ru As Long = 68748313, kb_lay_en As Long = 67699721

Private Sub Workbook_Open()
X = ActivateKeyboardLayout&(kb_lay_ru, 0)
End Sub
[/vba]


Сообщение отредактировал al-Ex - Среда, 03.02.2016, 16:44
 
Ответить
СообщениеВот такой код в личной книге макросов.
В модуле "Эта Книга"
обеспечивает автоматическое включение русской раскладки клавиатуры при открытии любого файла Excel
Вроде мелочь, а удобно.

[vba]
Код
Option Explicit
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Dim X As Long
Const kb_lay_ru As Long = 68748313, kb_lay_en As Long = 67699721

Private Sub Workbook_Open()
X = ActivateKeyboardLayout&(kb_lay_ru, 0)
End Sub
[/vba]

Автор - al-Ex
Дата добавления - 03.02.2016 в 16:41
PowerBoy Дата: Пятница, 05.02.2016, 09:53 | Сообщение № 2
Группа: Проверенные
Ранг: Участник
Сообщений: 89
Репутация: 30 ±
Замечаний: 0% ±

2003
Для 64-ного офиса:
[vba]
Код
#If VBA7 Then
Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
#Else
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
#End If
[/vba]


Excel + SQL = ActiveTables (http://vk.com/club72446554)

Сообщение отредактировал PowerBoy - Пятница, 05.02.2016, 09:54
 
Ответить
СообщениеДля 64-ного офиса:
[vba]
Код
#If VBA7 Then
Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
#Else
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
#End If
[/vba]

Автор - PowerBoy
Дата добавления - 05.02.2016 в 09:53
Мир MS Excel » Вопросы и решения » Готовые решения » Изменить раскладку клавиатуры при открытии Excel (VBA)
Страница 1 из 11
Поиск:

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