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

Вход

Регистрация

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

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

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

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

Изменить раскладку клавиатуры при открытии Excel (VBA)

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

al-Ex

Дата: Среда, 03.02.2016, 16:41 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 190

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

Замечаний: 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

Ответить

PowerBoy

Дата: Пятница, 05.02.2016, 09:53 | Сообщение № 2

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

Ранг: Участник

Сообщений: 100

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

Замечаний: 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/ExcelSQL)

Сообщение отредактировал PowerBoy - Пятница, 05.02.2016, 09:54

Ответить

Изменить раскладку клавиатуры при открытии Excel (VBA)

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