Профессиональные приемы работы в Microsoft Excel

Обмен опытом => Microsoft Excel => Тема начата: GWolf от 12.02.2021, 18:38

Название: По Enter из TextBox перейти на CommandButton
Отправлено: GWolf от 12.02.2021, 18:38
Доброго времени суток, уважаемые коллеги!

Обычно, стараюсь обходится без UserForm, но не в этот раз. И вот получил проблему: На UserForm есть поле TextBox, и после ввода в него данный, пользователь, обычно, нажимает Enter. При этом должна срабатывать кнопка CommandButton, которая отвечает за закрытие формы и разноску введенных данных в поля таблицы. При клике мышкой все работает, а вот как при Enter передать фокус кнопке - не соображу. SetFokus в событии TextBox BeforeAfter не работает.
Помогите, пожалуйста!
Всем спасибо!
Название: Re: По Enter из TextBox перейти на CommandButton
Отправлено: Pelena от 14.02.2021, 09:03
Здравствуйте.
Примерчик бы не помешал)
Можно так попробовать
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then CommandButton1_Click
End Sub

Название: Re: По Enter из TextBox перейти на CommandButton
Отправлено: Serge 007 от 15.02.2021, 09:46
Здравствуйте
Цитата: GWolf от 12.02.2021, 18:38
...как при Enter передать фокус кнопке?..

Почему не TabIndex (см. вложение)?
Название: Re: По Enter из TextBox перейти на CommandButton
Отправлено: GWolf от 28.05.2021, 06:50
Доброго дня, друзья!
Спасибо всем откликнувшимся! Я честно запамятовал про TabIndex. Спасибо, Сергей, что напомнили.
Оба примера развития событий утащил в норку.  ;)