Нажатие enter в макросах excel

I have a userform in Excel that asks for a username and password. Once you enter your password if you press Enter it just «selects» the next item which is the LogIn button, but it doesn’t press it. You have to hit Enter again to actually press the button.

How can I make it so when the user presses enter on his keyboard the LogIn button is pressed and the code associated to is runs (Logincode_click)?

ZygD's user avatar

ZygD

21k39 gold badges77 silver badges98 bronze badges

asked Oct 1, 2013 at 20:24

user2385809's user avatar

2

You could also use the TextBox’s On Key Press event handler:

'Keycode for "Enter" is 13
Private Sub TextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
         Logincode_Click
    End If
End Sub

Textbox1 is an example. Make sure you choose the textbox you want to refer to and also Logincode_Click is an example sub which you call (run) with this code. Make sure you refer to your preferred sub

Community's user avatar

answered Oct 1, 2013 at 21:56

Jacob D's user avatar

Jacob DJacob D

2192 silver badges5 bronze badges

9

Be sure to avoid «magic numbers» whenever possible, either by defining your own constants, or by using the built-in vbXXX constants.

In this instance we could use vbKeyReturn to indicate the enter key’s keycode (replacing YourInputControl and SubToBeCalled).

   Private Sub YourInputControl_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        If KeyCode = vbKeyReturn Then
             SubToBeCalled
        End If
   End Sub

This prevents a whole category of compatibility issues and simple typos, especially because VBA capitalizes identifiers for us.

Cheers!

answered Jun 29, 2015 at 20:28

drognisep's user avatar

drognisepdrognisep

5491 gold badge7 silver badges16 bronze badges

3

This one worked for me 

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        If KeyCode = 13 Then
             Button1_Click
        End If
End Sub

answered Sep 9, 2014 at 13:35

Pepys's user avatar

PepysPepys

9817 gold badges16 silver badges34 bronze badges

Further to @Penn’s comment, and in case the link breaks, you can also achieve this by setting the Default property of the button to True (you can set this in the properties window, open by hitting F4)

That way whenever Return is hit, VBA knows to activate the button’s click event. Similarly setting the Cancel property of a button to True would cause that button’s click event to run whenever ESC key is hit (useful for gracefully exiting the Userform)

Source: Olivier Jacot-Descombes’s answer accessible here https://stackoverflow.com/a/22793040/6609896

Community's user avatar

answered Mar 22, 2017 at 12:51

Greedo's user avatar

GreedoGreedo

4,7992 gold badges29 silver badges76 bronze badges

Use the TextBox’s Exit event handler:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Logincode_Click  
End Sub

answered Oct 1, 2013 at 21:11

David Zemens's user avatar

David ZemensDavid Zemens

52.8k11 gold badges79 silver badges129 bronze badges

5

Here you can simply use:

SendKeys "{ENTER}" at the end of code linked to the Username field.

And so you can skip pressing ENTER Key once (one time).
And as a result, the next button («Log In» button here) will be activated. And when you press ENTER once (your desired outcome), It will run code which is linked with «Log In» button.

answered Aug 28, 2017 at 8:35

Sashidhar A's user avatar

Источник

I am using an Excel macro to perform a text-to-speech readout of text in a specific cell:

Range("$D$10").Select
Application.Speech.SpeakCellOnEnter = True

This requires the user to press the Enter key after the macro is called for this to be activated. That means two actions by the user, since the macro is called by the user clicking a «Listen» link on the sheet. Is there a way to simulate the Enter key press within the macro? Or is there a better option for text-to-speech?

user513951's user avatar

user513951

12.2k7 gold badges67 silver badges81 bronze badges

asked Jun 23, 2017 at 21:57

Thea's user avatar

3

Include the Sendkeys in your Macro

Application.SendKeys "{ENTER}" 
Range("$D$10").Select
Application.Speech.SpeakCellOnEnter = True

answered Jun 23, 2017 at 22:07

yass's user avatar

yassyass

8491 gold badge7 silver badges13 bronze badges

Источник
 

ДмСмирнов

Пользователь

Сообщений: 64
Регистрация: 27.12.2017

#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
 

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

#2

27.12.2017 19:48:44

Цитата
ДмСмирнов написал: В чем ошибка?

Во всем. Зачем Вы

СОБЫТИЙНЫЙ

макрос вставляете в тело стандартного макроса?

Согласие есть продукт при полном непротивлении сторон.

 

webley

Пользователь

Сообщений: 1995
Регистрация: 01.01.1970

вот так попробуйте:
Application.OnKey «~», «StartEnter»  
 

ДмСмирнов

Пользователь

Сообщений: 64
Регистрация: 27.12.2017

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

ДмСмирнов

Пользователь

Сообщений: 64
Регистрация: 27.12.2017

а как в данном случае должен выглядеть макрос?
 

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

#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 на цифровой клавиатуре

Прикрепленные файлы

  • Запуск макроса по Enter.xlsm (13.05 КБ)

Согласие есть продукт при полном непротивлении сторон.

 

ДмСмирнов

Пользователь

Сообщений: 64
Регистрация: 27.12.2017

либо я безнадежен, либо безнадежно туплю…
 

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

Да в чем проблема-то? Даже файл-пример вместо Вас соорудил! Макросы, естественно, должны быть разрешены

Согласие есть продукт при полном непротивлении сторон.

 

ДмСмирнов

Пользователь

Сообщений: 64
Регистрация: 27.12.2017
 

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

#10

27.12.2017 20:26:56

Цитата
Sanja написал: В модуль книги

Я так понимаю Вам эта фраза ни о чем не сказала?

ЧТО ТАКОЕ МОДУЛЬ? КАКИЕ БЫВАЮТ МОДУЛИ?

Согласие есть продукт при полном непротивлении сторон.

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

ДмСмирнов, вернитесь в стартовое сообщение и приведите его в порядок: для форматирования кода имеется специальная кнопка (см. скрин).
 

ДмСмирнов

Пользователь

Сообщений: 64
Регистрация: 27.12.2017

к сожалению, лишь о том, что я видимо очень слабо знаком с азами.
понимаю, что здесь не ликбез… буду читать матчасть
 

ДмСмирнов

Пользователь

Сообщений: 64
Регистрация: 27.12.2017

вроде бы разложил по модулям, как предложено выше, но снова безрезультатно.
 

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

Апостроф надо было убрать

Согласие есть продукт при полном непротивлении сторон.

 

ДмСмирнов

Пользователь

Сообщений: 64
Регистрация: 27.12.2017

уже хочется застрелиться  :(
выдает системное сообщение «Запущен макрос по нажатию Enter».
дальше ничего….  :qstn:  

Изменено: ДмСмирнов — 27.12.2017 22:07:37
 

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

#16

27.12.2017 22:49:31

Цитата
ДмСмирнов написал: выдает системное сообщение

Мне тоже скоро захочется застрелиться.
Это не системное сообщение. Это сообщение выдается макросом myMacro, который и запрограммирован на выполнение по нажатию Enter/
А Вы чего ожидали?

Согласие есть продукт при полном непротивлении сторон.

 

ДмСмирнов

Пользователь

Сообщений: 64
Регистрация: 27.12.2017

я ожидал выполнения макроса МС1. нет так?
 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

#18

27.12.2017 22:58:16

Цитата
ДмСмирнов написал:
я ожидал выполнения макроса МС1

Ну так и вызывайте этот макрос вместо myMacro. В чём проблема?
 

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

Без комментариев

Согласие есть продукт при полном непротивлении сторон.

 

ДмСмирнов

Пользователь

Сообщений: 64
Регистрация: 27.12.2017

спасибо большущее. однозначно, мне есть куда развиваться)))
 

恭喜！

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

 

bedvit

Пользователь

Сообщений: 2477
Регистрация: 02.04.2015

Виталий

#22

28.12.2017 10:17:47

Цитата
ДмСмирнов написал:
уже хочется застрелиться
Цитата
Sanja написал:
Мне тоже скоро захочется застрелиться.

Порадовали к новому году! Ржал на все метро!)) Фух…

Изменено: bedvit — 28.12.2017 10:23:36

«Бритва Оккама» или «Принцип Калашникова»?

Источник

Имитация нажатия клавиш на клавиатуре в VBA Excel с помощью оператора SendKeys, в том числе эмуляция нажатия сочетаний клавиш. Синтаксис, коды, примеры.

Параметры оператора SendKeys:

Параметр Описание
string Обязательный параметр. Строковое выражение, возвращающее код клавиши (сочетания клавиш).
wait Необязательный параметр. Логическое значение, определяющее режим ожидания.
False (по умолчанию) – контроль процедуре возвращается сразу после отправки кода клавиш.
True – перед возвратом контроля процедуре коды клавиш обрабатываются.

Имитация нажатия клавиш

Эмуляция нажатия алфавитно-цифровых клавиш из кода VBA Excel, не представляющих спецсимволы: параметру string задается значение символа в прямых кавычках, например, "А", "Абвгд", "356".

Имитация нажатия клавиш, представляющих спецсимволы: параметру string задается значение символа в фигурных скобках, например, "{^}", "{)}".

Спецсимволы, которые следует заключать в фигурные скобки: плюс +, возведение в степень ^, знак процента %, тильда ~, круглые скобки (), квадратные скобки [] и сами фигурные скобки {}. Символы фигурных скобок указываются так: "{{}" и "{}}".

Для эмуляции нажатия специальных клавиш, включая функциональные и клавиши управления курсором, используются специальные коды, заключенные в фигурные скобки.

Фигурные скобки используются и для имитации нескольких нажатий одной клавиши из кода VBA Excel. В этом случае параметр string записывается в виде {клавиша число}, где число – количество нажатий. Например: "{а 10}".

Коды специальных клавиш

Клавиша Код
BACKSPACE {BACKSPACE} или {BS}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL или DELETE {DELETE} или {DEL}
СТРЕЛКА ВНИЗ {DOWN}
END {END}
ENTER {ENTER} или ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS или INSERT {INSERT} или {INS}
СТРЕЛКА ВЛЕВО {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
СТРЕЛКА ВПРАВО {RIGHT}
SCROLL LOCK {SCROLLLOCK}
TAB {TAB}
СТРЕЛКА ВВЕРХ {UP}
F1 … F16 {F1} … {F16}

Эмуляция сочетаний клавиш

Чтобы указать сочетание клавиш с SHIFT, CTRL, ALT или их комбинацией, необходимо добавить перед кодом клавиши один или несколько следующих кодов:

Клавиша Код
SHIFT +
CTRL ^
ALT %

Чтобы указать, что клавиши SHIFT, CTRL и ALT в любом сочетании необходимо удерживать, нажимая несколько других клавиш, заключите код для последних клавиш в круглые скобки. Например, чтобы указать, что нужно удерживать клавишу SHIFT, нажимая клавиши а, б, в, г, д, введите "+(абвгд)".

Важное примечание:
Применение оператора SendKeys может приводить к автоматическому отключению* правого цифрового блока клавиатуры (переключает на стрелки и специальные клавиши). Чтобы вернуть исходную функциональность цифрового блока, необходимо в конце процедуры применить имитацию нажатия клавиши «NUM LOCK»: SendKeys "{NUMLOCK}". К сожалению, работает не всегда.

* Обнаружено в Windows 8.1 (Excel 2016).

Примеры с оператором SendKeys

Коды примеров запускаются через кнопку на рабочем листе, иначе имитация нажатия клавиш произойдет в окне редактора VBA с записью символов внутри процедуры. Попробуйте, ради интереса, запустить код первого примера из редактора VBA.

Пример 1
Заполняем первые три ячейки столбца «A» различными значениями, имитируя нажатия клавиш из кода VBA Excel:

Sub Primer1()

‘Выбираем первую ячейку

Range(«A1»).Select

‘Нажимаем клавиши «а», «б» и «в»

SendKeys «абв»

‘Нажимаем «ENTER»

SendKeys «~»

‘Нажимаем клавиши «1», «2», «3» и «ENTER»

SendKeys «123  ~»

‘Нажимаем клавишу «7» пять раз и «ENTER»

SendKeys «{7 5} ~»

‘Активируем правый цифровой блок

‘SendKeys «{NUMLOCK}»

End Sub

Пример 2
Раскрываем с помощью кода VBA Excel автофильтр или выпадающий список (имитация нажатия сочетания клавиш ALT+↓):

Sub Primer2()

‘Выбираем ячейку с автофильтром или раскрывающимся списком

Range(«D1»).Select

‘Раскрываем список

SendKeys «%{DOWN}»

‘Активируем правый цифровой блок

‘SendKeys «{NUMLOCK}»

End Sub

Пример 3
Еще три варианта эмуляции нажатия сочетаний клавиш:

‘Создание новой книги

SendKeys «^n»

‘Открытие Диспетчера имен

SendKeys «^{F3}»

‘Открытие Диспетчера задач

SendKeys «^+{ESC}»
Источник

Группа: Пользователи

Ранг: Форумчанин

Сообщений: 101


Репутация:
0
±

Замечаний:
0% ±


Excel 2003, 2007

Есть макрос:
[vba]

Код

   Private Sub AddRow()
     Selection.EntireRow.Insert
     FirstRow = ActiveCell.Row
     FirstCol = ActiveCell.Column
     Range(Cells(FirstRow, FirstCol), Cells(FirstRow, FirstCol)).Select
End Sub

[/vba]

пробовал макрос ставить на модуль книги, а на лист 1

Sub PressEnter()
With Application
.OnKey «{ENTER}», «AddRow»
End With
End Sub

и без With, и Private Sub ставил, но если вместо Private Sub AddRow() поставить Private Sub Worksheet_SelectionChange(ByVal Target As Range) то макрос работает но без конца добавляет строки
как же его запускать, нажимая Enter? я сдаюсь…

Источник

Понравилась статья? Поделить с друзьями:
  • Нажатие ctrl enter word
  • Нажала не сохранять как восстановить excel файл
  • Нажал несколько клавиш в excel
  • Нажал не сохранять word 2003
  • Нажал не сохранить документ excel как восстановить