Kiểm tra dữ liệu nhập của TextBox!

[trandinhtrung]

Chào mọi người!
Mọi người có thể chỉ mình cách code đoạn mã để kiểm tra thông tin người dùng nhập vào 1 textbox (MSform trong microsoft Excel) bằng VBA for Excel!
Yêu cầu mình muốn là: nếu textbox1 được thiết kế để nhận dữ liệu dạng Integer thì chỉ cho người dùng nhập các ký tự từ 0-9, nếu nhập sai thì textbox trả lại giá trị trước khi gõ!

Thank trước hen!

[xebuyt]

Private Function chuyendoi(ByVal str As String) As Boolean
Try
Dim f As Double = Double.Parse(str)
Return True
Catch ex As Exception
Return False
End Try
End Function

Private Function ck() As Boolean
If Me.luong.Text = "" Then
Return False
Else
If chuyendoi(Me.luong.Text) = False Then
Return False
End If
Return True
End If
End Function

Private Sub ktluong()
If ck() = False Then
MessageBox.Show("ban phai nhap so")
Me.phong.Focus()
Else
MessageBox.Show("ok")
End If
End Sub

[trandinhtrung]

Cảm ơn bạn đã hướng dẫn, mình sẽ áp dụng thử đoạn code bạn cho!

[Acer89]

cái này có cho phép khóa trước k
dùng keypress đi bạn
Hay hơn là fải trả về giá trị Integer
Không cho fép nhập những giá trị ngoài khoảng từ 0 tới 9

If (KeyACII >47) And (KeyACII < 56) Then
End If

Hình như là vậy

[General Study]

HOk dùng Javascript check được hả các pác?

[Acer89]

Cái này là trong VB check trong DB sao xài javascript đây

[t3hhaiquy]

cái này có cho phép khóa trước k
dùng keypress đi bạn
Hay hơn là fải trả về giá trị Integer
Không cho fép nhập những giá trị ngoài khoảng từ 0 tới 9

Hình như là vậy

Làm như bạn này khả thi nè bạn à!

[phanquoctuan]

mình muốn làm thế này :cắm đầu đọc mã vạch vào PC rồi quét làm thế nào để có đc mã đấy mà so sách nó với CSDl =VB6 (SQL hoạc ACSE) để biết thogn tin ở CSDL bạn nào rảnh mách cho tớ...0915395456 PM hg04th@yahoo.com cảm ơn và hợp tác làm ,dự án