Kamis, 14 Februari 2013

TextBox Hanya Dapat Diisi Dengan Angka


TextBox Hanya Dapat Diisi Dengan Angka

TextBox VBA Excel
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

1 komentar:

  1. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
    KeyAscii = 0
    End If
    End Sub

    Bagaimana dengan Coding ini....

    BalasHapus

AGEN PENDAFTARAN KULIAH S1 DAN S2 MUDAH DAN MURAH SERTA JASA KONSULTASI DAN KETIK SKRIPSI TESIS DAN LAPORAN PKL SISWA HUB SIMBAH WURI http://raraswurimiswandaru.blogspot.com
Ingin widget ini?