Nhập số nhỏ hơn 30 vào Textbox VBA

[Thanhhoai00]

• Mình có đoạn code như sau
• Mình muốn người dùng chỉ được nhập vào Textbox Userform những số nhỏ hơn 30 ( chỉ được phép nhập vào Textbox Userform số từ 0 tới 29 )
• Mình phải code thế nào , các bạn giúp mình xíu nhé
• Cảm ơn các bạn rất nhiều ạ !!!!

 

[ptm0412]

Này thì BeforeUpdate, này thì kiểm tra tất tần tật chỉ 1 lần. Cái thông tin giới hạn giá trị nhập nên để trong tooltip.

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1) Or Val(TextBox1) > 29 Or Val(TextBox1) < 0 Then
    TextBox1.BackColor = vbRed
    TextBox1 = ""
    Cancel = True
Else
    TextBox1.BackColor = vbWhite
End If
End Sub

 

[truongvu317]

Này thì BeforeUpdate, này thì kiểm tra tất tần tật chỉ 1 lần. Cái thông tin giới hạn giá trị nhập nên để trong tooltip.

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1) Or Val(TextBox1) > 29 Or Val(TextBox1) < 0 Then
    TextBox1.BackColor = vbRed
    TextBox1 = ""
    Cancel = True
Else
    TextBox1.BackColor = vbWhite
End If
End Sub

Pha xử lý ngọt ngào quá bác ơi. Code ngắn ngọn xúc tích.

 

[tigertiger]

Thường xử lý này, người ta hay để vào 1 sub/function ở module, áp dung chung cho đối tượng Textbox được truyền vào
Như thế có thể áp dụng cho Textbox khác

 

[ptm0412]

Thường xử lý này, người ta hay để vào 1 sub/function ở module, áp dung chung cho đối tượng Textbox được truyền vào
Như thế có thể áp dụng cho Textbox khác

Theo tôi nghĩ thì không. Mỗi textbox sẽ có 1 giới hạn nhập liệu riêng: cái thì số, cái thì text, cái thì giới hạn độ dài chuỗi, cái thì giới hạn giá trị số, cái thì chỉ cho phép số nguyên/ thập phân, cái thì chỉ cho phép ký tự chữ, cái thì cho phép cả chữ lẫn số, ...
Trên cùng 1 userForm xác suất có nhiều textbox có cùng kiểu nhập liệu và có cùng giới hạn nhập liệu là rất nhỏ. Trừ textbox ngày tháng, cũng tối đa 3 ngày trên cùng 1 form.