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

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Автор Тема: По Enter из TextBox перейти на CommandButton  (Прочитано 1362 раз)

0 Пользователей и 1 Гость просматривают эту тему.

GWolf

  • Старожил
  • ****
  • Уважение: +50/-0
  • Оффлайн Оффлайн
  • Сообщений: 961

Доброго времени суток, уважаемые коллеги!

Обычно, стараюсь обходится без UserForm, но не в этот раз. И вот получил проблему: На UserForm есть поле TextBox, и после ввода в него данный, пользователь, обычно, нажимает Enter. При этом должна срабатывать кнопка CommandButton, которая отвечает за закрытие формы и разноску введенных данных в поля таблицы. При клике мышкой все работает, а вот как при Enter передать фокус кнопке - не соображу. SetFokus в событии TextBox BeforeAfter не работает.
Помогите, пожалуйста!
Всем спасибо!
Записан
Путей к вершине - множество. Этот один из многих!

Pelena

  • Постоялец
  • ***
  • Уважение: +35/-0
  • Оффлайн Оффлайн
  • Сообщений: 282
Re: По Enter из TextBox перейти на CommandButton
« Ответ #1 : 14.02.2021, 09:03:03 »

Здравствуйте.
Примерчик бы не помешал)
Можно так попробовать
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then CommandButton1_Click
End Sub
Записан

Serge 007

  • Администратор
  • Ветеран
  • *****
  • Уважение: +341/-0
  • Оффлайн Оффлайн
  • Сообщений: 3 040
    • Мир Excel
Re: По Enter из TextBox перейти на CommandButton
« Ответ #2 : 15.02.2021, 09:46:53 »

Здравствуйте
...как при Enter передать фокус кнопке?..

Почему не TabIndex (см. вложение)?
Записан
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Яндекс-деньги: 41001419691823 | WMR:126292472390

GWolf

  • Старожил
  • ****
  • Уважение: +50/-0
  • Оффлайн Оффлайн
  • Сообщений: 961
Re: По Enter из TextBox перейти на CommandButton
« Ответ #3 : 28.05.2021, 06:50:48 »

Доброго дня, друзья!
Спасибо всем откликнувшимся! Я честно запамятовал про TabIndex. Спасибо, Сергей, что напомнили.
Оба примера развития событий утащил в норку.  ;)
Записан
Путей к вершине - множество. Этот один из многих!
 



Темы без ответов

27.05.2022 14:38 конструкция из Shape на VBA на листе Excel 463
09.08.2019 14:09 Макрос для заполнения таблиц через форму 5295
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 4652
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 6258
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 3346
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 5172
15.03.2017 15:45 автозамена картинок PowerPoint 4073
11.03.2017 13:43 Изменить нумерацию страниц 4013
07.02.2017 18:43 Блокировка ячеек по наступлению даты 3135
28.08.2016 19:29 Одинаковые заголовки после обновления оглавления 3632





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.108 секунд. Запросов: 99.