Страницы: 1
RSS
Только текст в Textbox, Необходимо вводить только текст в Textbox
 
Добрый день!

Необходимо вводить только текст в Textbox. При этом я завязал ячейку с Textbox и при вводе числа должно появляться сообщение и введённое число просто удаляется. Если ввести число сразу (в пустой Textbox), то всё работает, но если идёт сначала буква, а затем цифра, то процедура не срабатывает. С условием IsNumeric=false всё работает корректно и вводятся только цифры вне зависимости от места введения текста.

Надеюсь объяснил прозрачно. Мой пример прилагаю.
 
Из последнего:
Код
MsgBox IsNumeric(Sheets(1).Cells(1, 1))
всегда false!!!  
 
Приятно побеседовать с хорошим человеком!!! Прошу модераторов не удалять, но сам решил вопрос. Решения больше нигде нет. Спасибо.
 
Код
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii: Case 48 To 57: KeyAscii = 0: End Select
End Sub
Страницы: 1
Наверх