Прекратить вывод вкладок из текстового поля

#excel #vba #vb6

#excel #vba #vb6

Вопрос:

У меня есть пользовательская форма в Excel. Я установил флажок в одном из текстовых полей, которое будет выдавать ошибку при вводе любых неверных данных. Проверка была установлена в событии «После обновления». Однако я не хочу, чтобы меня выводили из текстового поля после выдачи сообщения об ошибке. Как я могу этого добиться? Пожалуйста, найдите приведенный ниже код:

 Private Sub txt_Textboc_After Update()
If CInt(txt_Textboc.Value) > 50 Then
 Msgbox "Invalid Input"
End If
  

Какой дополнительный код я должен ввести, чтобы избежать вывода табуляции, если код выполняет этот блок If?

Комментарии:

1. Если вы ограничиваете записи целыми числами 1-50, почему бы просто не использовать поле со списком и для i = 1-50 поле со списком.добавьте i далее? Вы ограничиваете ввод числами или тестируете ввод строки?

Ответ №1:

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

 TextBox1.SetFocus
  

Это должно сделать вас «незапятнанным»