Определите комбинации клавиш в Excel и назначьте функции
В следующем примере комбинация клавиш Ctrl + ü Калькулятор можно вызвать из аксессуаров Windows.
Используйте следующую процедуру для настройки сочетания клавиш:
Настройка дополнительных сочетаний клавиш ()
Application.OnKey "ü", "CallCalculator"
Конец подписки
Сохраненный макрос выглядит так:
Дополнительный callCalculator ()
Dim x как вариант
x = оболочка ("calc.exe")
Конец подписки
Если комбинация клавиш больше не будет использоваться, запустите следующую процедуру:
Комбинация дополнительных клавиш Отмена ()
Application.OnKey "ü"
Конец подписки
Примечание:
Часто настройка сочетаний клавиш выполняется при открытии конкретной книги. Для этого дважды щелкните запись This workbook в проводнике проекта в среде разработки и сохраните следующее событие:
Частная вспомогательная книга_Open ()
Ярлык настройки
Конец подписки
Событие Workbook_Open автоматически выполняется (если установлено) при открытии книги. В нашем случае здесь вызывается процедура Настройка комбинации клавиш.
Это полезно, если вы удалите ранее настроенную комбинацию клавиш при закрытии этой папки. Событие Workbook_BeforeClose автоматически запускается при закрытии папки. В этом случае вызывается процедура Unlock key:
Private Sub Workbook_BeforeClose (Отменить как логическое)
Комбинация клавиш Отмена
Конец подписки
Это означает, что сочетания клавиш в Excel всегда под контролем.