Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.04.2016, 09:42   #1
maxvip
Форумчанин
 
Регистрация: 11.05.2009
Сообщений: 139
По умолчанию настройка клавиш

Здравствуйте! подскажите, есть ли возможность программно назначить выполнение простого кода (копировать 3 или 4 ячейки в строке той, где расположен курсор, и вставка в другой лист) на нажатие клавиши enter? конечно же можно назначить макросу сочетание клавиш, однако, когда строк ОЧЕНЬ много и выбирать из этого списка надо тоже много, удобнее будет пользоваться клавишей enter! ну и что бы на активном листе по нажатию enter (кроме выполнения кода) более ничего не происходило, типа перемещение курсора.
maxvip вне форума Ответить с цитированием
Старый 12.04.2016, 09:52   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

link1, link2 читали?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 12.04.2016, 09:59   #3
maxvip
Форумчанин
 
Регистрация: 11.05.2009
Сообщений: 139
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
link1, link2 читали?
нет, увы, по английски не читаю
maxvip вне форума Ответить с цитированием
Старый 12.04.2016, 10:08   #4
maxvip
Форумчанин
 
Регистрация: 11.05.2009
Сообщений: 139
По умолчанию

разместил в книге, в первом листе код
Private Sub Workbook_Open()
Application.OnKey "ENTER", "myMacro"
End Sub
в этой же книге, в папке "modules" есть макрос "myMacro"
...не работает...
maxvip вне форума Ответить с цитированием
Старый 12.04.2016, 10:24   #5
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

А если заменить "Workbook" на "auto" и разместить это тоже в модуле?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 12.04.2016, 10:30   #6
maxvip
Форумчанин
 
Регистрация: 11.05.2009
Сообщений: 139
По умолчанию

разместил код в папке "modules", вот код -

Private Sub auto_Open()
Application.OnKey "{ENTER}", "MyEnterEvent"
End Sub

Sub MyEnterEvent()
Range("A9:C9").Select
Selection.Copy
Sheets("Лист2").Select
Range("A10").Select
ActiveSheet.Paste
Sheets("Лист1").Select
Application.CutCopyMode = False
Range("A10").Select

End Sub
...не работает...
если запускать макрос вручную, работает. на нажатие клавиши enter не работает.

Последний раз редактировалось maxvip; 12.04.2016 в 10:32. Причина: дополнить
maxvip вне форума Ответить с цитированием
Старый 12.04.2016, 10:39   #7
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Вариант?

кста, Вы ж ЕНТЕР цифровой клавиатуры жмете? Правда?
Вложения
Тип файла: zip Enter.zip (13.0 Кб, 11 просмотров)
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 12.04.2016, 10:45   #8
maxvip
Форумчанин
 
Регистрация: 11.05.2009
Сообщений: 139
По умолчанию

чета ниче не работает. безопасность поставил низкую, макросы должны выполнятся. наверное у меня с офисом чета не то. комп на работе, может админы чето накрутили, даже не знаю...
maxvip вне форума Ответить с цитированием
Старый 12.04.2016, 11:02   #9
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

хотите увидеть причину проблем - поставьте зеркало над монитором, а потом уже...
- проделки админов
- корявый офис
- глючный виндовс
- старый компьютер
- неблагоприятное расположение звезд (Марс как раз вошел в созвездие Козерога)
- и пр. причины

цитата из справки:
END ... {END}
ENTER (numeric keypad) ... {ENTER}
ENTER ... ~ (tilde)
ESC ... {ESCAPE} or {ESC}

назначение клавиш различает 2 клавиши ENTER, один в алфавитно цифровой группе клавиш, второй в цифровых клавишах, поэкспериментируйте еще с тильдой

удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
клавиш nikimen Паскаль, Turbo Pascal, PascalABC.NET 2 23.03.2016 11:23
коды клавиш *Fantom* Помощь студентам 4 03.06.2013 13:56
Нажатие клавиш san-trane C# (си шарп) 3 23.06.2011 11:44
эмуляция клавиш в g++ NiCola999 Общие вопросы C/C++ 2 08.07.2010 15:37
Залипание клавиш RealSHELS Общие вопросы Delphi 3 07.05.2008 22:47