Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
запуск макроса клавишей Enter, не могу запустить рабочий макрос клавишей Enter. что не так делаю?
 
#1
27.12.2017 19:45:09
Добрый день! Помогите, пожалуйста! Изучил вопрос запуска Enter-ом в форуме, но макрос не запускается. Подскажите, где ошибка?

есть макрос, который запускался с сочетания клавиш ctri+q:
Код
Sub МакросМС ()
'
' МакросМС Макрос
'
' Сочетание клавиш: Ctrl+q
'
    Range("H2").Select
    Selection.ClearContents
    Range("A2").Select    
    и так далее

Добавляю в него
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
   Application.OnKey "{~}", "StartEnter"   
End Sub

получаю новый макрос:
Код
Sub МакросМС1()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.OnKey "{~}", "StartEnter"
End Sub
    Range("H2").Select
    Selection.ClearContents
    Range("A2").Select
    Selection.ClearContents
    With Selection.Interior  
и так далее

Нажимаю Enter, никаких чудес не происходит.
В чем ошибка?
Код
Application.OnKey "{~}", "StartEnter"
 пробовал заменить на
Код
Application.OnKey "{ENTER}", "StartEnter"

тоже не запускается
Изменено: ДмСмирнов - 27.12.2017 20:41:07
 
 
 
#2
27.12.2017 19:48:44
Цитата
ДмСмирнов написал: В чем ошибка?
Во всем. Зачем Вы СОБЫТИЙНЫЙ макрос вставляете в тело стандартного макроса?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
27.12.2017 19:52:38
вот так попробуйте:
Application.OnKey "~", "StartEnter"  
 
 
 
#4
27.12.2017 19:55:28
вся беда в том, что я практически самоучка (на уровне подготовительного класса :)), поэтому могу допускать какие-то элементарные ошибки, о которых даже не догадываюсь.
 
 
 
#5
27.12.2017 19:57:35
а как в данном случае должен выглядеть макрос?
 
 
 
#6
27.12.2017 19:58:53
В модуль книги
Код
Private Sub Workbook_Open()
'  Application.OnKey "~", "myMacro"      'для буквенной клавиатуры
  Application.OnKey "{ENTER}", "myMacro"    'для цифровой клавиатуры
End Sub
В общий модуль
Код
Sub myMacro()
    MsgBox "Запущен макрос 'myMacro' по нажатию 'Enter'"
End Sub
Сработает по нажатию Enter на цифровой клавиатуре
Согласие есть продукт при полном непротивлении сторон
 
 
 
#7
27.12.2017 20:20:43
либо я безнадежен, либо безнадежно туплю...
 
 
 
#8
27.12.2017 20:23:30
Да в чем проблема-то? Даже файл-пример вместо Вас соорудил! Макросы, естественно, должны быть разрешены
Согласие есть продукт при полном непротивлении сторон
 
 
 
#9
27.12.2017 20:23:56
не прикрепился
 
 
 
#10
27.12.2017 20:26:56
Цитата
Sanja написал: В модуль книги
Я так понимаю Вам эта фраза ни о чем не сказала?
ЧТО ТАКОЕ МОДУЛЬ? КАКИЕ БЫВАЮТ МОДУЛИ?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#11
27.12.2017 20:35:53
ДмСмирнов, вернитесь в стартовое сообщение и приведите его в порядок: для форматирования кода имеется специальная кнопка (см. скрин).
 
 
 
#12
27.12.2017 20:37:12
к сожалению, лишь о том, что я видимо очень слабо знаком с азами.
понимаю, что здесь не ликбез... буду читать матчасть
 
 
 
#13
27.12.2017 21:07:10
вроде бы разложил по модулям, как предложено выше, но снова безрезультатно.
 
 
 
#14
27.12.2017 21:22:03
Апостроф надо было убрать
Согласие есть продукт при полном непротивлении сторон
 
 
 
#15
27.12.2017 22:07:15
уже хочется застрелиться  :(
выдает системное сообщение "Запущен макрос по нажатию Enter".
дальше ничего....  :qstn:  
Изменено: ДмСмирнов - 27.12.2017 22:07:37
 
 
 
#16
27.12.2017 22:49:31
Цитата
ДмСмирнов написал: выдает системное сообщение
Мне тоже скоро захочется застрелиться.
Это не системное сообщение. Это сообщение выдается макросом myMacro, который и запрограммирован на выполнение по нажатию Enter/
А Вы чего ожидали?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#17
27.12.2017 22:53:43
я ожидал выполнения макроса МС1. нет так?
 
 
 
#18
27.12.2017 22:58:16
Цитата
ДмСмирнов написал:
я ожидал выполнения макроса МС1
Ну так и вызывайте этот макрос вместо myMacro. В чём проблема?
 
 
 
#19
27.12.2017 23:00:11
Без комментариев
Согласие есть продукт при полном непротивлении сторон
 
 
 
#20
27.12.2017 23:11:51
спасибо большущее. однозначно, мне есть куда развиваться)))
 
 
 
#21
27.12.2017 23:21:29
恭喜！
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#22
28.12.2017 10:17:47
Цитата
ДмСмирнов написал:
уже хочется застрелиться
Цитата
Sanja написал:
Мне тоже скоро захочется застрелиться.
Порадовали к новому году! Ржал на все метро!)) Фух...
Изменено: bedvit - 28.12.2017 10:23:36
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
Страницы: 1
Наверх