điều kiện nhập liệu textbox trong userform

[phan van tai]

Mình có tạo tạo điều kiện nhập liệu các textbox trong userform được không mọi người?
VD: chỉ nhập giá trị số, và giá trị số phải nằm trong chuẩn max-min

 

[Giahao2006]

Đây bạn, mình mới chôm được trên mạng nè, còn giới hạn max từ, bạn vào properites của textbox chỉnh nhé,

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < vbKey0, Is > vbKey9
KeyAscii = 0
Beep
End Select
End Sub

 

[phan van tai]

Đây bạn, mình mới chôm được trên mạng nè, còn giới hạn max từ, bạn vào properites của textbox chỉnh nhé,

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < vbKey0, Is > vbKey9
KeyAscii = 0
Beep
End Select
End Sub

code nay chỉ cần paste vào textbox thôi đúng ko bạn, có cần chỉnh sửa thêm gì không?

 

[Giahao2006]

code nay chỉ cần paste vào textbox thôi đúng ko bạn, có cần chỉnh sửa thêm gì không?

TextBox1_KeyPress nếu textbox1 của bạn sửa tên thì thay thay textbox1_KeyPress = tên mới_keyPress, còn lại không cần chỉnh gì nữa hết

 

[phan van tai]

TextBox1_KeyPress nếu textbox1 của bạn sửa tên thì thay thay textbox1_KeyPress = tên mới_keyPress, còn lại không cần chỉnh gì nữa hết

mình vừa test thử, nhưng có điều chỉ nhập đc số nguyên từ 0->9. Những số thập phân không nhập được

 

[Giahao2006]

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Value) And TextBox1.Value <> vbNullString Then
MsgBox "Xin loi, chi duoc nhap so ma thoi."
TextBox1.Value = vbNullString
End If
End Sub

code này của anh Hai Lúa nè bạn, hoặc bạn vào link bên dưới tham khảo thêm

Kiểm tra Textbox có phải là số hay ký tự

Chào cả nhà GPE em cần 1 lệnh để xác định giá trị trong Textbox ( trong Form ) là số ( cộng trừ nhân chia OK ) nếu là Số là True, ngược là False . em có dùng code sau mà VBa không hiểu If IsNumber(TextBox2.Value) =true Then

www.giaiphapexcel.com