Validasi Isian TextBox Berisi Angka (VBA Excel)

Mas Operator. Assalamu'alikum Wr. Wb. Salam sejahtera untuk kita semuanya, selamat datang kembali di blog sederhana Saya ini. Tak lupa dan takkan ada bosannya Saya ucapkan banyak-banyak terimakasih kepada Anda semuanya yang sudah mengunjungi blog sederhana Saya ini. Pada kesempatan ini kembali Saya akan berbagi tutorial sederhana mengenai VBA Excel. Dan sesuai dengan judul artikel/postingan ini yang akan Saya bahas/bagikan pada kesempatan ini adalah mengenai Validasi Isian TextBox.

Dimana nantinya TextBox yang ada didalam Userform hanya bisa diisi dengan angka saja. Tentunya hal ini sangat berguna sekali pada saat kita membuat sebuah Aplikasi Berbasis Excel, dimana didalamnya ada sebuah Userform Input Data yang mengharuskan user/penggunaanya menginputkan sebuah informasi (data) yang berupa angka, contohnya : NIK (Nomor Induk Kependudukan), NISN (Nomor Induk Siswa Nasional), NIS (Nomor Induk Siswa), dan yang lainnya.

Dan berikut ini merupakan langkah-langkah atau pun cara-cara agar nantinya TextBox yang ada didalam Userform kita hanya boleh diisi dengan angka saja :

A. Membuat UserForm VBA

Syarat pertama yang harus dipenuhi adalah kita harus memiliki sebuah Userform, dan untuk membuat sebuah Userform berikut ini langkah-langkahnya :

1. Pada lembar kerja Aplikasi Ms. Excel klik pada menu (tab) Developer, kemudian klik pada Visual Basic, dan jika dilembar kerja Excel Sobat Blogger belum ada (tidak muncul) menu (tab) Developer silahkan bacara artikel Saya sebelumnya mengenai Memunculkan Tab Developer Di Excel. Atau bisa juga dengan menggunakan tombol kombinasi Alt+F11 pada keyboard.

2. Didalam halaman Visual Basic, kita klik menu Insert kemudian lanjutkan klik pada Userform :

Silahkan atur tinggi dan lebar dari Userform sesuai dengan kebutuhan masing-masing, dan berikut ini contohnya :

3. Langkah selanjutnya adalah kita sisipkan sebuah label, label ini berfungsi sebagai petunjuk/keterangan dari TextBox nantinya, dan untuk menyisipkan sebuah label kedalam Userform berikut ini caranya : Klik pada Label yang ada pada Tool Box, kemudian arahkan ke dalam area dari Userform :

Ubah Caption dari label yang sudah kita sisipkan kedalam Userform tadi, dari yang tadinya Label1 menjadi "NIK" (sesuaikan), caranya seperti berikut ini : Silahkan klik terlebih dahulu pada label yang sudah kita sisipkan kedalam Useform tadi, kemudian silahkan ganti teks yang ada pada Properties Label tersebut :

4. Langkah selanjutnya adalah menyisipkan TextBox yang berfungsi sebagai media input dari data NIK pada Userform, caranya adalah : Klik TextBox pada ToolBox dan arahkan ke area Userform tepatnya berada disamping Label (NIK) tadi :

5. Ubah nama (Name) dari TextBox tadi, caranya : Klik terlebih dahulu pada TextBox yang sudah kita sisipkan tadi, kemudian silahkan ubah pada Properties dari TextBox, dan ubah menjadi TxtNIK :

B. Penerapan Kode/Script Macro

Langkah selanjutnya adalah menyisipkan kode/script Macro, silahkan Sobat Blogger copy kode/script Macro di bawah ini kedalam TextBox yang sudah kita sisipkan kedalam Userform tadi :

Private Sub TxtNIK_Change()
'https://masoperator.blogspot.com
If TxtNIK = vbNullString Then Exit Sub
        If Not IsNumeric(TxtNIK) Then
             MsgBox "Isi dengan angka!!!"
             TxtNIK = vbNullString
        End If
End Sub

Caranya adalah klik kanan pada TextBox kemudian pilih View Code :

Kemudian silahkan paste kode/script Macro yang sudah kita copy tad kedalamnya, untuk amnnya silahkan hapus semua kode/script yang secara otomatis muncul ketika kita pertama kali berada didalam lembar kode dari TextBox tadi. Contoh hasilnya :

Untuk melihat seperti apa hasil akhirnya, silahkan klik pada tombol Run atau bisa klik pada tombol F5 pada keyboard, maka pada saat kita inputkan karakter selain angka secara otomatis akan ditolak dan akan muncul sebuah pesan peringatan seperti yang ditampilkan pada gambar animasi di bawah ini :

Di bawah ini juga sudah Saya sediakan file sample (contoh) untuk bisa dipelajari oleh Sobat Blogger semuanya, mungkin hanya itu saja yang bisa Saya sampaikan pada kesempatan ini. Mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan kali ini bisa bermanfaat untuk semuanya. Sekian, terimakasih, dan selamat mencoba.

Wassalamu'alaikum Wr. Wb.

Download Sample File-Mediafire