foureye1055
Thành viên mới

- Tham gia
- 9/9/10
- Bài viết
- 19
- Được thích
- 0
Các bạn ơi cho mình hỏi. Troing textbox mình muốn gõ 1 ký tự và 1 số thì mình là sao? 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1) = 0 Then
If IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
ElseIf Len(TextBox1) = 1 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
Else
KeyAscii = 0
End If
End Sub