Quy định nhập số trên TexBox. (1 người xem)

[khamha]

Mình cần quy định dữ liệu nhập vào 1 Texbox (UserForm) như sau:
+ Chỉ cho nhập số.
+ Chỉ cho nhập từ số 7 đến số (...)
Trong đó (...) là số thứ tự của dòng cuối cùng có dữ liệu tại cột B của Sheet"DATA"
Các bạn giúp mình nhé.Thank

 

[Hai Lúa Miền Tây]

Mình cần quy định dữ liệu nhập vào 1 Texbox (UserForm) như sau:
+ Chỉ cho nhập số.
+ Chỉ cho nhập từ số 7 đến số (...)
Trong đó (...) là số thứ tự của dòng cuối cùng có dữ liệu tại cột B của Sheet"DATA"
Các bạn giúp mình nhé.Thank

Xét mã bàn phím, nếu là số thì hiển thị trong textbox, còn 1 điều kiện nữa là lớn hơn 7 và = số cuối của dòng cuối cùng cột B.

 

[sealand]

Bạn dùng code sau xem sao:

Option Explicit
Public mSave
'--------------------------------------
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim eR As Long
eR = Sheet1.Cells(Sheet1.Rows.Count, 1).End(3).Row
If TextBox1 < 7 Or TextBox1 > eR Then
Cancel = True
MsgBox "Input From 7 to " & eR, 16, "DATA ENTER"
TextBox1 = mSave
Exit Sub
End If
End Sub
'-------------------------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
mSave = TextBox1
If InStr("0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
MsgBox "Input Numeric Only!", 16, "DATA ENTER"
End If
End Sub