Public iVariable% 'Global iVariable%
Private Sub Auto_Open()
Application.OnKey "{ESC}", "ChangePublic" '"{ESCAPE}"
iVariable% = 200: MsgBox iVariable%, , "" 'Для проверки
End Sub
Private Sub ChangePublic()
iVariable% = 100: MsgBox iVariable%, , "" 'Для наглядности
End Sub
как обработать событие нажатия на кнопку отмена в excel
требуется изменить глобальную переменную при нажатии на кнопку отмена
Код:
Если Вам нужно отловить нажатие клавиши ESC во время выполнения макроса, то это будет немного по другому.