Как отловить событие нажатия клавиши Esc?

[dsapa]

Здравствуйте!
Возможно ли, чтобы при нажатии Esc все скрытые строки таблицы Excel отображалить? Примерно так же, как при выключении автофильтра.
Подскажите строчку кода, пожалуйста.

[EducatedFool]

Sub СначалаЗапускаемОдинРазЭтотМакрос()
    Application.OnKey "{ESCAPE}", "ОтобразитьСтроки"
End Sub

Sub ОтобразитьСтроки()
    ActiveSheet.AutoFilterMode = False ' отключаем автофильтр
    ' или
    Rows.Hidden = False ' отображаем все скрытые строки
End Sub

[dsapa]

Круто! Спасибо!

[Веди]

привет, друзья!
у меня подобная проблема. в Excel необходимо выполнять бесконечную программу: Code1, после "пробела", Code2 и т.д., а если нажать "Esc", то выход из программы:

Sub mainProg()
  do
    Cells(1,  1) = "Cod1"
    '...Пауза
    if нажать пробел then продолжить Code2
    if нажать Esc then Exit do
    Cells(1,  1) = "Cod2"
  loop
End Sub

что-то никак не соображу, как отловить события, если кому не трудно, дайте подсказку?

[Веди]

попробовал так но ругается на аргумент ".OnKey"

Sub mainProg()
  Do
    Cells(1, 1) = "Cod1"
    If Application.OnKey = "{SPACE}" Then Cells(1, 1) = "Cod2"
    If Application.OnKey = "{ESCAPE}" Then Exit Do
  Loop
End Sub

[Aleksandr H.]

Попробуйте такой вариант

Sub runCode1
	Cells(1,1) = "Cod2"
End sub
sub runExit
	End
end sub
Sub mainProg()
  Do
    Cells(1, 1) = "Cod1"
    Application.OnKey "{SPACE}", "runCode1"
    Application.OnKey "{ESCAPE}", "runExit"
  Loop
End Sub

[IgorGO]

не удивительно...
при попытке расшифровать логику Вашей записи в компьютере должны были поплавиться дорожки! компьютер хоть не пострадал?

Саша, к чему этот цирк?
Application.OnKey "{SPACE}", "runCode1"
Application.OnKey "{ESCAPE}", "runExit"
теперь в Excele не воспользоваться ни пробелом, ни ecsape пока не отметить эту ерунду!

[Aleksandr H.]

Сообщение от IgorGO

Саша, к чему этот цирк?

А, ну да, код Application.OnKey не в цикл надо, а один раз при запуске (Auto_open) ну и отключать при закрытии книги.
По поводу биндов пробела и ескейпа, хз что за файл у аффтара, может именно такое извращение ему и нужно

[IgorGO]

понятно, что возможно всякое, но очевидно, что автор вопроса, имея довольно смутное представление о VBA, решил что его проблема решается вот таким способом
Тебе-то должно быть понятно, что это ни в какие рамки... можно конечно развить абсурд до абсолюта
но для того чтобы спросить у пользователя какое из двух альтернативных значений вписать в А1 - есть стандартные средства: InputBox, MsgBox, форму в конце концов можно слепить, но не назначать обычной клавише выполнение какой-то процедуры.

[Веди]

на листе Excel решается задача, и "Cod1" выводит результат, затем надо остановить программу, что-бы оценить результат и в случае если не устраивает нажимаем "пробел", что-бы продолжить решение "Cod2" и далее "Cod1", в случае если результат устраивает - нажимаем "Esc" и выходим из программы оставив нужный результат "Cod1" на листе.

в чём моя логика не доступна?

никакие InputBox, MsgBox не годятся, надо просто сидеть у экрана и щёлкать пробел просматривая сотни вариантов решения, а вариант с MsgBox у меня есть, он как раз и подвигнул меня на решение иного варианта, с нажатием клавиш.