Kiểu tra dữ liệu nhập vào trên Form VBA for Excel.

[nguyennb]

Kiểu tra dữ liệu nhập vào trên Form VBA for Ễcl

Giả sử tôi có một control là a. Sau khi nhập dữ liệu vào control này xong, tôi muốn kiểm tra lại.Nếu nó trống hoặc chứa dữ liệu không đúng kiểu mà tôi cần thì đưa ra thông bào lỗi và đưa con trỏ trở lại control a. Tôi thử dùng a.setfocus nhưng không được, nó nhảy luôn sang control tiếp theo. Thank

 

[phamduylong]

Giả sử tôi có một control là a. Sau khi nhập dữ liệu vào control này xong, tôi muốn kiểm tra lại.Nếu nó trống hoặc chứa dữ liệu không đúng kiểu mà tôi cần thì đưa ra thông bào lỗi và đưa con trỏ trở lại control

Để kiểm soát con trỏ, bạn nên đặt các control thuộc tính TabStop=Fale. Khi bạn nhập xong, nhấn Enter thì con trỏ vẫn đứng yên trong control đó.
Muốn khi nhấn Enter, VBA kiểm tra lại dữ liệu trước khi dời con trỏ đi, bạn viết code này trong form chức control:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
......các lệnh kiểm tra dữ liệu.....
........................................... 
If TextBox1 = "abc" Then TextBox2.SetFocus
End If
End Sub

Trong ví dụ trên, nếu TextBox1 là "abc" thì dời con trỏ sang TetBox2

 

[nguyennb]

Thanks. Tôi làm được rồi.