Добавление сочетаний клавиш для быстрого доступа к элементам управления CommandButton (кнопкам), размещенным на пользовательской форме, в VBA Excel.
Сочетания клавиш для кнопок
Для кнопок на пользовательской форме в VBA Excel предусмотрена возможность добавления сочетаний клавиш быстрого доступа. За это отвечает свойство Accelerator элемента управления CommandButton.
Если свойству Accelerator элемента управления CommandButton присвоить символ, который есть в названии кнопки (свойство Caption), тогда этот символ будет отображаться подчеркнутым, а сочетание клавиш Alt+[символ] будет имитировать нажатие этой кнопки.
Кроме элемента управления CommandButton, свойство Accelerator есть у элементов управления CheckBox (флажок), Label (метка, надпись), OptionButton (переключатель), ToggleButton (выключатель). Им тоже можно назначить клавиши быстрого доступа.
Добавление сочетаний клавиш
Добавить сочетания клавиш для быстрого доступа к элементам управления CommandButton очень просто. Вы можете вручную внести необходимый символ в поле «Accelerator» окна «Properties» выбранной кнопки:
А так можно добавить символы для сочетания клавиш быстрого доступа программно с помощью кода VBA Excel:
|
1 2 3 4 5 |
Private Sub UserForm_Initialize() CommandButton1.Accelerator = "р" CommandButton2.Accelerator = "о" CommandButton3.Accelerator = "е" End Sub |
Результат работы кода:
Для проверки работоспособности сочетания клавиш для быстрого доступа к кнопкам используйте какой-нибудь простенький код, например, такой:
|
1 2 3 |
Private Sub CommandButton1_Click() MsgBox "Расчет работает" End Sub |
Процедура CommandButton1_Click() будет запущена нажатием сочетания клавиш Alt+р.
Как назначить сочетание клавиш для вызова процедуры (макроса) смотрите в статье VBA Excel. Сочетание клавиш для процедуры (макроса).