chỉ cho Nhập số nguyên ( âm dương đều được ) trong Textbox ở From (1 người xem)

[minhtuan55]

Chào cả nhà GPE!
em lên google tìm mãi không ra được đoạn code chỉ cho Nhập trong Textbox gồm các ký tự cho phép:
0,1,2,3,4,5,6,7,8,9, Nút Back, dấu trừ "-"

ví dụ em muốn nhập 100 hoặc -100 là ok
nhập 2 lần dấu trừ liên tiếp thì không được. Em xin chân thành cảm ơn

 

[befaint]

Chào cả nhà GPE!
em lên google tìm mãi không ra được đoạn code chỉ cho Nhập trong Textbox gồm các ký tự cho phép:
0,1,2,3,4,5,6,7,8,9, Nút Back, dấu trừ "-"

ví dụ em muốn nhập 100 hoặc -100 là ok
nhập 2 lần dấu trừ liên tiếp thì không được. Em xin chân thành cảm ơn

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not Chr(KeyAscii) Like "[0-9-]" And KeyAscii <> 8 Then KeyAscii = 0
    If InStr(TextBox1.Text, "-") Then
        If Not Chr(KeyAscii) Like "[0-9]" And KeyAscii <> 8 Then KeyAscii = 0
    End If
End Sub

 

[minhtuan55]

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not Chr(KeyAscii) Like "[0-9-]" And KeyAscii <> 8 Then KeyAscii = 0
    If InStr(TextBox1.Text, "-") Then
        If Not Chr(KeyAscii) Like "[0-9]" And KeyAscii <> 8 Then KeyAscii = 0
    End If
End Sub

Code quá tuyệt vời thank anh

 

[AutoReply]

Code quá tuyệt vời thank anh

ủa chưa gì nghỉ ngơi sớm vậy ? Bạn nên nhờ anh gì ở trên giúp cho trường hợp khi Copy cái gì đó rồi Paste vào ô textbox nữa chứ .

 

[anhdepjai]

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not Chr(KeyAscii) Like "[0-9-]" And KeyAscii <> 8 Then KeyAscii = 0
    If InStr(TextBox1.Text, "-") Then
        If Not Chr(KeyAscii) Like "[0-9]" And KeyAscii <> 8 Then KeyAscii = 0
    End If
End Sub

Cái này giờ mình mới biết. cảm ơn nhé