TextBox Hanya Dapat Diisi Dengan Angka

TextBox Hanya Dapat Diisi Dengan Angka

Sesuai dengan namanya, TextBox merupakan sebuah kotak yang dapat di isi dengan teks baik berupa huruf, angka, maupun karakter lainnya. Meskipun Jika kotak ini diisi dengan angka - maka angka-angka tersebut akan tersimpan sebagai teks.

Akan tetapi ada suatu kondisi dimana Textbox harus diisi dengan angka, seperti saat kita memasukkan data nomor telepon, data nomor Induk Siswa atau yang lainnya. Artinya, textbox tersebut hanya dapat diisi dengan data numerik. dan Jika pengguna memasukkan data selain angka maka akan menampilkan sebuah pesan error

Kode TextBox Numeric
Saya berasumsi Anda sudah mempunyai sebuah TextBox dengan nama TextBox1, baik terletak dalam UserForm maupun terletak dalam Sheet.
klik ganda TextBox1 tersebut untuk langsung menuju Jendela Kode VBA, dan Paste kode berikut didalamnya

Private Sub TextBox1_Change()
On Error GoTo A
TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub

A: TextBox1 = ""
End Sub

Penjelasan :
On Error... = Jika terjadi kesalahan ketik, perintah langsung menuju ke A:
Format(.... = Memaksa TextBox1 diisi angka dengan pemisah angka ribuan
A: Textbox. = Hasil jika terjadi kesalahan ketik, yakni dengan menghapus isi TextBox1

Sumber Informasi :
http://www.rumahexcel.com/2012/12/textbox-hanya-dapat-diisi-dengan-angka.html#ixzz2KsrZc0jc