Senin, 26 Desember 2016

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 pengguna hanya menginginkan agar TextBox hanya bisa diisi dengan angka, seperti saat kita memasukkan data nomor telepon, memasukan jumlah uang, data nomor Induk Siswa atau yang lainnya. Artinya, TextBox tersebut hanya dapat diisi dengan data numerik (Fixed angka - red). dan Jika pengguna memasukkan data selain angka maka akan menampilkan sebuah kotak pesan error

Kode TextBox Numeric

+ Saya berasumsi Anda sudah mempunyai sebuah TextBox dengan nama TextBox, baik terletak dalam UserForm maupun terletak dalam Sheet
+ klik ganda TextBox tersebut untuk langsung menuju Jendela Kode VBE, dan Paste baris kode macro berikut didalamnya

Private Sub TextBox1_Change()
If TextBox1 = vbNullString Then Exit Sub
If Not IsNumeric(TextBox1) Then
TextBox1 = vbNullString
TextBox1 = ""
End If
If IsNumeric(TextBox1) Then
TextBox1.Value = Format(TextBox1, "#,##0")
End If
Exit Sub

+ Atau bisa menggunakan kode dibawah ini
Private Sub TextBox1_Change()
On Error GoTo A
TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub
A: TextBox1 = ""
End Sub

Penjelasan TextBox Hanya Dapat Diisi Dengan Angka

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

Demikianlah tips membuat TextBox Hanya Dapat Diisi Dengan Angka tips ini bisa anda aplikasikan pada microsoft excel visual baisc for application atau biasa disebut dengan VBA, semoga artikel kali ini bisa dipahamai, Aamiin.


EmoticonEmoticon