Выход из TextBox клавишей Enter

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Выход из TextBox клавишей Enter (Макросы/Sub)

Xpert

Дата: Пятница, 14.12.2018, 12:19 | Сообщение № 1

Группа: Проверенные

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

Сообщений: 117

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

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

Excel 2013

Всем привет!
Подскажите, пожалуйста, как сделать так, чтобы после ввода значения в поле TextBox и нажатия клавиши enter, поле текстбокса становилось бы неактивным?
У меня получается выйти только клавишей esc...

Ответить

kalbasiatka

Дата: Пятница, 14.12.2018, 20:41 | Сообщение № 2

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

Ранг: Прохожий

Сообщений: 2

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

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

Цитата Xpert, 14.12.2018 в 12:19, в сообщении № 1 ()

Подскажите, пожалуйста, как сделать

Показать свой файл.

Ответить

Апострофф

Дата: Пятница, 14.12.2018, 22:52 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 457

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

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

Excel 1997

Xpert, для того чтобы поле стало неактивным, надо передать фокус на другой контрол.
Enter, как и Tab, именно это и делает.
Не понятно - в чём у вас проблема?

Ответить

StoTisteg

Дата: Суббота, 15.12.2018, 23:54 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Если я правильно понял, нужно назначить ему свойство Enabled=False. Тогда курить события KeyUp и KeyDown, примеры применения - тут

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Xpert

Дата: Понедельник, 17.12.2018, 19:27 | Сообщение № 5

Группа: Проверенные

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

Сообщений: 117

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

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

Excel 2013

Дамы и господа!
Прилагаю файл.

К сообщению приложен файл: 8093868.xlsm (12.4 Kb)

Ответить

RAN

Дата: Понедельник, 17.12.2018, 19:58 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Код

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then ActiveSheet.Range(TextBox1.LinkedCell).Select
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Выход из TextBox клавишей Enter (Макросы/Sub)

Страница 1 из 1
1