|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.04.2016, 09:42 | #1 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
настройка клавиш
Здравствуйте! подскажите, есть ли возможность программно назначить выполнение простого кода (копировать 3 или 4 ячейки в строке той, где расположен курсор, и вставка в другой лист) на нажатие клавиши enter? конечно же можно назначить макросу сочетание клавиш, однако, когда строк ОЧЕНЬ много и выбирать из этого списка надо тоже много, удобнее будет пользоваться клавишей enter! ну и что бы на активном листе по нажатию enter (кроме выполнения кода) более ничего не происходило, типа перемещение курсора.
|
12.04.2016, 10:08 | #4 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
разместил в книге, в первом листе код
Private Sub Workbook_Open() Application.OnKey "ENTER", "myMacro" End Sub в этой же книге, в папке "modules" есть макрос "myMacro" ...не работает... |
12.04.2016, 10:24 | #5 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
А если заменить "Workbook" на "auto" и разместить это тоже в модуле?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
12.04.2016, 10:30 | #6 |
Форумчанин
Регистрация: 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. Причина: дополнить |
12.04.2016, 10:39 | #7 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Вариант?
кста, Вы ж ЕНТЕР цифровой клавиатуры жмете? Правда?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
12.04.2016, 10:45 | #8 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
чета ниче не работает. безопасность поставил низкую, макросы должны выполнятся. наверное у меня с офисом чета не то. комп на работе, может админы чето накрутили, даже не знаю...
|
12.04.2016, 11:02 | #9 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
хотите увидеть причину проблем - поставьте зеркало над монитором, а потом уже...
- проделки админов - корявый офис - глючный виндовс - старый компьютер - неблагоприятное расположение звезд (Марс как раз вошел в созвездие Козерога) - и пр. причины цитата из справки: END ... {END} ENTER (numeric keypad) ... {ENTER} ENTER ... ~ (tilde) ESC ... {ESCAPE} or {ESC} назначение клавиш различает 2 клавиши ENTER, один в алфавитно цифровой группе клавиш, второй в цифровых клавишах, поэкспериментируйте еще с тильдой удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
клавиш | 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 |