MyTetra Share
Делитесь знаниями!
Прислушайтесь к советам и поверьте, сообщение не просто бесполезно, оно лишнее.
16.03.2019
23:43
Текстовые метки: проверка ввода
Раздел: !Закладки - VBA - Разобрать
Прислушайтесь к советам и поверьте, сообщение не просто бесполезно, оно лишнее.
А для того "что бы знать", конструкция может выглядеть так:
Код:


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Len(Me.TextBox1) >= 20 And Not KeyAscii = 8 Then

'MsgBox "Более 20 символов", vbInformation, "Внимание"

KeyAscii = 0

End If

End Sub




(8 нажатие клавиши BackSpace)

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования