Назначение клавиши на событие VBA - Microsoft Office Excel

220v · 26.11.2009, 16:31

Помогите плиз. Как назначить на событие commandbutton1_click кнопку. Т.е. чтобы при нажатии кнопки на клавиатуре, например B (латинская) выполнялась процедура commandbutton1_click. Для чего это нужно: для того чтобы я не кликал по нескольки кнопка во время работы приложения, а просто нажимал кнопки для выполлнения той или иной задачи.
Спасибо заранее

The_Prist · 26.11.2009, 16:33

Изучаем метод
Application.OnKey
Типа пример. Кнопка расположена на Лист1. Размещаем в модуле ЭтаКнига такой код

Код:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "W", ""
Application.OnKey "w", ""
End Sub

Private Sub Workbook_Open()
Application.OnKey "W", "Лист1.CommandButton1_Click"
Application.OnKey "w", "Лист1.CommandButton1_Click"
End Sub

Теперь при нажатии на кнопку "w" в любом регистре будет выплняться код, повешенный на CommandButton1.

220v · 26.11.2009, 16:51

Спасибо. А если кнопка расположена на userform1, то как будет это выглядить

26.11.2009, 16:31	#1
220v Новичок Джуниор Регистрация: 25.11.2009 Сообщений: 2	Назначение клавиши на событие VBA Помогите плиз. Как назначить на событие commandbutton1_click кнопку. Т.е. чтобы при нажатии кнопки на клавиатуре, например B (латинская) выполнялась процедура commandbutton1_click. Для чего это нужно: для того чтобы я не кликал по нескольки кнопка во время работы приложения, а просто нажимал кнопки для выполлнения той или иной задачи. Спасибо заранее

26.11.2009, 16:33	#2
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Изучаем метод *Application.OnKey* Типа пример. Кнопка расположена на Лист1. Размещаем в модуле ЭтаКнига такой код Код: `Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "W", "" Application.OnKey "w", "" End Sub Private Sub Workbook_Open() Application.OnKey "W", "Лист1.CommandButton1_Click" Application.OnKey "w", "Лист1.CommandButton1_Click" End Sub` Теперь при нажатии на кнопку "w" в любом регистре будет выплняться код, повешенный на CommandButton1. WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru Последний раз редактировалось The_Prist; 26.11.2009 в 16:40.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как отловить событие нажатия клавиши Esc?	dsapa	Microsoft Office Excel	14	03.12.2016 14:27
Событие нажатия клавиши с помощью button	lehius89	Общие вопросы Delphi	1	24.11.2009 00:10
Событие при нажатии клавиши Enter	Inbox	Общие вопросы Delphi	4	12.06.2007 14:18
глобальный хук & событие отжатия клавиши	Nowichok	Общие вопросы Delphi	9	24.11.2006 17:51

26.11.2009, 16:51	#3
220v Новичок Джуниор Регистрация: 25.11.2009 Сообщений: 2	Спасибо. А если кнопка расположена на userform1, то как будет это выглядить