Diskusi tentang Excel

Cara Membuat Validasi Hanya Angka pada TexBox

Permasalah di Excel ketika membuat input menggunakan UserForm dan isian datanya menggunakan Textbox maka yang menjadi masalah adalah ketikan memasukan data terkadang hanya bisa diisi data angka saja selain itu textbox tersebut akan menolak.

Contoh nyata Anda bisa lihat pada tulisan Form Input Data Siswa
Sebuah kode NIS biasanya hanya menggunakan data angka bukan huruf. Kenapa kita harus memvalidasi atau membatasi hanya dengan data angka? hal ini dimaksudkan supaya untuk mengurangi tingkat kesalahan dalam mengentri data tersebut.

Ok, langsung saja berikut tahapan cara membuat validasi data angka pada texbox
Langkah pertama silakan buat userform kemudian ViewCode nya dan ketikkan script berikut pada Userform tersebut

Private Sub HanyaAngka()
    If TypeName(Me.ActiveControl) = "TextBox" Then
        With Me.ActiveControl
            If Not IsNumeric(.Value) And .Value <> vbNullString Then
                MsgBox "Data yang diinput harus berupa angka saja"
                .Value = vbNullString
            End If
        End With
    End If
End Sub

Setelah Sript tersebut dibuat langkah berikutnya adalah kita akan memanggil data angka dengan sebuah textbox namun sebelumnya silakan buat sebuah textbox pada userform1 tersebut kira-kira seperti dibawah ini. Untuk membuatnya sudah saya sampaikan. Lalu silakan tambahkan script berikut dibawahnya dengan prosedure Exit

Private Sub textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
HanyaAngka
End Sub
Untuk lebih jelas silakan tampilan gambar dan script seperti berikut ini
validasi data angka


Jika sudah selesai silakan jalankan program dengan cara menekan tombol F5 kemudian silakan ketikkan data selain angka maka akan keluar pesan peringatan "Data yang diinput harus berupa angka saja"




Berhasil, kita sudah bisa membuat script membatasi input hanya angka dengan validasi data angka pada textbox.
Selamat mencoba dan semoga berhasil.

anda bisa kembangkan untuk membuat aplikasi-aplikasi berbasis Excel.

Related

Macro Excel VBA 6488724609030032586

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item