Một kỹ thuật cũ nhưng đáng ghi nhớ. (1 người xem)

[levanduyet]

Đôi khi các bạn lập trình trong VBA, các bạn muốn rằng TextBox của mình chỉ được nhập vào số, dấu trừ "-", và dấu chấm "."
Vậy thì các bạn hãy ghi nhớ đoạn code sau, một ý tưởng đơn giản mà hay

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case Asc("0") To Asc("9")
    'Chẳng làm gì cả
    Case Asc("-")
        If Instr(1,Me.TextBox1.Text,"-") > 0 Or Me.TextBox1.SelStart > 0 Then
            'Nếu dấu trừ không nằm ở đầu chuổi thì không cho nhập
             KeyAscii = 0
        End If
    Case Asc(".")
        If InStr(1, Me.TextBox1.Text, ".") > 0 Then
            'Nếu có dấu chấm thứ hai thì không cho nhập
            KeyAscii = 0
        End If
    Case Else
        'Các ký tự khác thì không cho phép nhập vào
        KeyAscii = 0
End Select
End Sub

Lê Văn Duyệt