![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 22.05.2008
Сообщений: 82
|
![]()
Здравствуйте!
Возможно ли, чтобы при нажатии Esc все скрытые строки таблицы Excel отображалить? Примерно так же, как при выключении автофильтра. Подскажите строчку кода, пожалуйста. |
![]() |
![]() |
![]() |
#2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
![]() Код:
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 22.05.2008
Сообщений: 82
|
![]()
Круто! Спасибо!
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 05.07.2012
Сообщений: 24
|
![]()
привет, друзья!
у меня подобная проблема. в Excel необходимо выполнять бесконечную программу: Code1, после "пробела", Code2 и т.д., а если нажать "Esc", то выход из программы: Код:
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 05.07.2012
Сообщений: 24
|
![]()
попробовал так но ругается на аргумент ".OnKey"
Код:
|
![]() |
![]() |
![]() |
#6 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]()
Попробуйте такой вариант
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
![]() |
![]() |
![]() |
#7 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
не удивительно...
при попытке расшифровать логику Вашей записи в компьютере должны были поплавиться дорожки! компьютер хоть не пострадал? Саша, к чему этот цирк? Application.OnKey "{SPACE}", "runCode1" Application.OnKey "{ESCAPE}", "runExit" теперь в Excele не воспользоваться ни пробелом, ни ecsape пока не отметить эту ерунду!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#8 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]()
А, ну да, код Application.OnKey не в цикл надо, а один раз при запуске (Auto_open)
![]() По поводу биндов пробела и ескейпа, хз что за файл у аффтара, может именно такое извращение ему и нужно
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
![]() |
![]() |
![]() |
#9 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
понятно, что возможно всякое, но очевидно, что автор вопроса, имея довольно смутное представление о VBA, решил что его проблема решается вот таким способом
Тебе-то должно быть понятно, что это ни в какие рамки... можно конечно развить абсурд до абсолюта но для того чтобы спросить у пользователя какое из двух альтернативных значений вписать в А1 - есть стандартные средства: InputBox, MsgBox, форму в конце концов можно слепить, но не назначать обычной клавише выполнение какой-то процедуры.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 05.07.2012
Сообщений: 24
|
![]()
на листе Excel решается задача, и "Cod1" выводит результат, затем надо остановить программу, что-бы оценить результат и в случае если не устраивает нажимаем "пробел", что-бы продолжить решение "Cod2" и далее "Cod1", в случае если результат устраивает - нажимаем "Esc" и выходим из программы оставив нужный результат "Cod1" на листе.
в чём моя логика не доступна? никакие InputBox, MsgBox не годятся, надо просто сидеть у экрана и щёлкать пробел просматривая сотни вариантов решения, а вариант с MsgBox у меня есть, он как раз и подвигнул меня на решение иного варианта, с нажатием клавиш. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
TRichViewEdit - как отловить событие "курсор над таблицей" | chandrasecar | Компоненты Delphi | 0 | 05.04.2009 20:04 |
Емулиривание нажатия клавиши | xTANATOSx | Win Api | 9 | 10.10.2007 21:46 |
Эмуляция нажатия клавиши при отметке Checkbox | delphi_beginner | Win Api | 3 | 02.06.2007 10:07 |
Эмуляция нажатия клавиши...... | Zoidberg | Win Api | 4 | 11.01.2007 18:44 |