BERMAIN DENGAN CONTROL TEXTBOX (3) [MACRO VBA EXCEL TUTORIAL SERIES] – Belajar Microsoft Excel : Tips, Tricks & Tutorial

BERMAIN DENGAN CONTROL TEXTBOX (3) [MACRO VBA EXCEL TUTORIAL SERIES]

VBA microsoft visual basic for application excel

Assalamualaikum Warohmatullahi Wabarokatuh

Sodara2 sekaliYan para pembatja jang boediman … artikel tentang Control TextBox disambung lagi … setelah dua artikel sebelumnya yaitu cara mencari nilai sebuah Control TextBox (klik disini) yang berlanjut ke artikel kedua tentang cara memasukkan/mengambil nilai Cell Worksheet Excel ke Control TextBox dan sebaliknya cara memasukkan nilai Control TextBox ke Cell Worksheet Excel (klik disini)

kali ini sesuai dengan yang saya janjikan pada artikel sebelumnya …. saya akan bahas cara memberikan validasi data pada Control TextBox dengan pembatasan hanya data berupa angka saja … jadi nantinya Control TextBox hanya akan menerima input data yang berupa angka saja … inputan berupa teks akan ditolak oleh Control TextBox …. bagaimana caranya ???? …. silahkan disimak 😉

 UserFormTextBox

D. Validasi Angka

Jika data yang bisa dientrikan dalam sebuah TextBox ingin dibatasi hanya berupa angka saja … untuk bikin validasinya kita bisa memanfaatkan event KeyPress pada TextBox … dalam contoh file Validasi saya pasang pada TextBox2_KeyPress

penjelasan kode diatas sebagai berikut :

  • event KeyPress terjadi pada saat tombol keyboard ditekan yang akan menghasilkan nilai KeyAscii sesuai tombol yang ditekan tersebut
  • statement “If  …(kondisi 1)…  And ….(kondisi 2)…. Then” … akan menguji dua kondisi yang telah ditetapkan
  • Chr(KeyAscii) …. fungsi Chr akan mengubah kode KeyAscii menjadi Karakter yang bisa berupa hurup (a,b,c,d…) , angka (1,2,3,…) atau tanda baca (!,@,#,*<…)
  • IsNumeric(Chr(KeyAscii)) = False …. selanjutnya fungsi IsNumeric akan memeriksa apakah karakter dari tombol yang ditekan adalah angka ??? … hasilnya adalah TRUE  atau FALSE … kondisi 1 mensyaratkan hasil  fungsi IsNumeric harus FALSE … yang berarti syarat pertama adalah

“Tombol yang ditekan bukan angka”

  • KeyAscii <> vbKeyBack … statement ini menguji kondisi 2 yaitu apakah tombol yang ditekan bukan tombol BackSpace ???? ….  yang berarti syarat kedua adalah

“Tombol yang ditekan bukan tombol BackSpace”

hal ini dimaksudkan agar nantinya angka yang sudah terlanjur di entrikan dalam TextBox masih bisa di hapus dengan tombol BackSpace

  • If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> vbKeyBack Then …  jika kondisi 1 dan kondisi2 memenuhi syarat maka prosedur selanjutnya akan dijalankan
  • KeyAscii = 0 …. jika kondisi 1 dan kondisi2 memenuhi syarat maka nilai KeyAscii akan diubah menjadi 0 (tombol seperti tidak ditekan) … sehingga nilai TextBox akan tetap tidak berubah

silahkan sOdara2 sekaliYan coba entrikan data dengan mengetik tombol selain angka pada kontrol TextBox2 …. insyaAllah kalau kodenya sukses karakter2 selain angka tidak dapat dientrikan pada TextBox2 tersebut …. sehingga data yang dapat dientrikan pada TextBox2 dapat dibatasi hanya yang berupa angka saja 🙂 😉

demikiyanlah sOdara2 sekaliYan artikel tentang cara memberikan validasi data berupa angka pada sebuah Control TextBox … yang merupakan kelanjutan dari dua artikel sebelumnya tentang Control TextBox yang bisa sOdara baca dengan klik disini dan klik dimarih ….  file contoh bisa sOdara download dari Silahkan sOdara download contoh filenya di Folder 2017 >> 07JUL  …. artikel selanjutnya tentang Control TextBox  akan dibahas tentang cara memberikan Autoformat Tanggal pada Control TextBox

sekiYan semoga manpaat dan MDLMDL 😉

bingung cara downloadnya ??

Baca aja halaman download dengan klik icon berikut ini

feed , email and my social media

3 Comments

Jika sOdara menemukan sesuatu yang bermanpaat di marih .... silahkan kasih komennya