Textbox hanya dapat di isi dengan data numerik / Angka

Agar di Textbox hanya dapat di isi dengan data numerik / Angka.

If Not (KeyAscii >= Asc("0") & Chr(13) _

     And KeyAscii <= Asc("9") & Chr(13) _

     Or KeyAscii = vbKeyBack _

     Or KeyAscii = vbKeyDelete _

     Or KeyAscii = vbKeySpace) Then

     Beep

     KeyAscii = 0

End If

Dengan Koding diatas, Selain hanya mengaktifkan Tombol 0 dan 9, tombol seperti Delete, BackSpace, ‘dan SpaceBar juga bisa diterima. Pada contoh disini saya menggunakan Event KeyPress.

Menghindari Input Karakter – Karakter tertentu
Dim sTemplate As String

    'Ganti '!@#$%^&*()_+=' dengan karakter yang Anda

    'inginkan untuk dihindari diinput pada Text1

    sTemplate = "!@#$%^&*()_+="

If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then _

   KeyAscii = 0

Dengan Koding diatas, Anda akan menghindari Input karakter “!@#$%^&*()_+=”, Jika ingin menambah karakternya, tinggal tambah saja karakter yang tidak di inginkan. Cara di atas juga menggunakan even Keypress.