Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Возврат фокуса в тот же TextBox если он пустой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Возврат фокуса в тот же TextBox если он пустой
Shylo Дата: Понедельник, 17.07.2023, 21:54 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 7 ±
Замечаний: 0% ±

Excel-2007; 2016
Добрый вечер. Застрял на решении простого вопроса, прошу помочь. Через форму с большим количеством TextBox_ов (некоторые необязательные, некоторые обязательные) на лист вносится информация. Переходы между ними производятся по Enter. В TextBox9 "Дата инспектирования" (обязательная информация) вводится дата без точек с последующим формированием строки к виду даты, затем осуществляется переход к ComboBox2 где производится выбор: принято - "Да", не принято - "Нет". Если "Да" вычисляется дата следующего инспектирования и вносится в TextBox10, если "Нет" в него ставится пробел. А застопорился я на том, что немогу вернуть фокус обратно в TextBox9 если он по ошибке остался пустой и нажат Enter. Конечно можно вернуть мышкой, но хочется работать только клавиатурой. Закрасить получается, а попытки вернуть фокус и из ComboBox2, и из отдельной процедуры по отлову Error_a, и подбором методов ComboBox_а - не получается. Помогите пожалуйста. Проверка "на пусто" по процедуре внесения в ячейки (cmdAdd) тут не подходить ввиду необходимости вычисления следующей даты. Файл-пример с кодом прилагаю.
К сообщению приложен файл: primer_kontrol_tekstboksa.zip (37.6 Kb)


Сообщение отредактировал Shylo - Понедельник, 17.07.2023, 22:02
 
Ответить
СообщениеДобрый вечер. Застрял на решении простого вопроса, прошу помочь. Через форму с большим количеством TextBox_ов (некоторые необязательные, некоторые обязательные) на лист вносится информация. Переходы между ними производятся по Enter. В TextBox9 "Дата инспектирования" (обязательная информация) вводится дата без точек с последующим формированием строки к виду даты, затем осуществляется переход к ComboBox2 где производится выбор: принято - "Да", не принято - "Нет". Если "Да" вычисляется дата следующего инспектирования и вносится в TextBox10, если "Нет" в него ставится пробел. А застопорился я на том, что немогу вернуть фокус обратно в TextBox9 если он по ошибке остался пустой и нажат Enter. Конечно можно вернуть мышкой, но хочется работать только клавиатурой. Закрасить получается, а попытки вернуть фокус и из ComboBox2, и из отдельной процедуры по отлову Error_a, и подбором методов ComboBox_а - не получается. Помогите пожалуйста. Проверка "на пусто" по процедуре внесения в ячейки (cmdAdd) тут не подходить ввиду необходимости вычисления следующей даты. Файл-пример с кодом прилагаю.

Автор - Shylo
Дата добавления - 17.07.2023 в 21:54
Nic70y Дата: Вторник, 18.07.2023, 08:34 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox9.Text = "" Then Cancel = True
End Sub
[/vba] Shylo, зачем 127 кб в архив?


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox9.Text = "" Then Cancel = True
End Sub
[/vba] Shylo, зачем 127 кб в архив?

Автор - Nic70y
Дата добавления - 18.07.2023 в 08:34
Shylo Дата: Вторник, 18.07.2023, 09:22 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 7 ±
Замечаний: 0% ±

Excel-2007; 2016
Nic70y, большое спасибо, сам не догадался. Заархивировал помня ограничение в 100, а когда уже вложил файл, увидел 500
 
Ответить
СообщениеNic70y, большое спасибо, сам не догадался. Заархивировал помня ограничение в 100, а когда уже вложил файл, увидел 500

Автор - Shylo
Дата добавления - 18.07.2023 в 09:22
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!