Diskusi tentang Excel

Validasi Textbox Hanya Dapat Diisi Teks Bukan Angka

Pernah terbayangkan bagaimana entri data melalui textbox yang ditampilkan melalui userform, ada beberapa program aplikasi yang dibuat oleh programmer VBA misalnya saja mereka menyediakan fasilitas textbox yang hanya dapat diisi dengan tulisan huruf bukan angka.

Membuat program aplikasi dengan VBA memang tidak terbatas sepanjang logika pemahan program Anda jalan dengan sempurna tentunya dengan bahasa pemrograman VBA. Berikut ini saya akan memberikan contoh bagaimana cara membuat sebuah textbox yang hanya bisa dituliskan huruf bukan angka. Jadi jika user menuslikan angka di dalam textbox yang telah disediakan maka setelah berpindah textbox tidak akan bekerja atau bahkan Anda juga bisa memberikan sebuah pesan peringatan bahwa textbox tersebut tidak bisa diinput dengan data angka.

Tutorial berikut bisa kita pelajari sebagai salah satu contoh bagi Anda yang akan dan ingin belajar VBA lebih lanjut. Sesuai dengan judul artikelnya maka saya akan memberikan langkah cara membuat validasi textbox hanya dapat diisi dengan data teks bukan angka.
\
Tahapan membuatnya :
langkah pertama Anda harus memiliki UserForm, jelas dengan UserForm Anda bisa menempelkan sebuah textbox sebagai entri datanya. Untuk membuat UserForm dan textbox sepertinya sudah pernah saya bahas jika ingin mempelajari bagaimana cara membuat userform dan textbox silakan lihat di ujung kanan atas ada kolom pencarian artikel silakan klik kata kuncinya disana kemudian tekan enter maka di blog ini akan menghasilkan banyak sekali tulisan yang membahas bagaimana cara membuat textbox dan userform. Jika Anda malas untuk mencarinya saya sertakan link

Baca :
Cara Membuat Userform lengkap
Setelah Anda telah membuat Userform silakan buat satu buah textbox dengan menggunakan control toolbox bapa VBA Editor tersebut dan sisipkan pada userform. Belum tahu cara membuat textbox silakan baca dan simak tulisan saya di :

Cara Membuat Textbox pada UserForm
Ok, dua langkah tersebut sudah dibuat jangan lupa buat satu buah lagi textbox sehingga object terdiri dari 1 buah userform dan 2 buah textbox kira-kira hasilnya seperti berikut ini


Langkah berikutnya kita akan membuat coding dengan prosedur ketika textbox keluar (exit) bagaimana menuliskan coding tersebut? silakan copy pastekan saja codingnya dibawah ini

Private Sub CommandButton1_Click()
Dim Folder As Object
Set Folder = CreateObject("WScript.Shell").SpecialFolders
Sheets("Sheet1").Activate
With Sheets("Sheet1")
    .Range("B2").Value = "My Document Path adalah:-         " & Folder("mydocuments")
    .Range("B3").Value = "Desktop Path adalah:-             " & Folder("desktop")
    .Range("B4").Value = "All User Desktop Path adalah:-    " & Folder("allusersdesktop")
    .Range("B5").Value = "Recent Documents Path adalah:-    " & Folder("recent")
    .Range("B6").Value = "Favorites Document Path adalah:-  " & Folder("favorites")
    .Range("B7").Value = "Programs Path adalah:-            " & Folder("programs")
    .Range("B8").Value = "Start Menu Path adalah:-          " & Folder("StartMenu")
    .Range("B9").Value = "Send To Path adalah:-             " & Folder("SendTo")
End With
End Sub

Langkah terakhir untuk menguji apakah coding yang kita tuliskan benar, silakan jalankan dengan menekan icon RUN atau Anda bisa menekan tombol F5 kemudian silakan isikan angka pada textbox1 maka hasilnya akan muncul peringatan seperti berikut ini



Berhasil. lihatlah gambar diatas, coding yang kita tuliskan telah berhasil dan silakan Anda coba sebagai latihan ingat jika sudah berhasil jangan lupa untuk menyelesaikan dengan versi Anda sendiri sehingga Anda akan mahir dalam membuat program aplikasi menggunakan Ms. Excel.


Untuk memasukan dan membatasi hanya angka saja silakan simak
Cara Membuat Validasi Textbox Hanya Angka
Akhirnya, selamat mencoba. Jika Anda pertanyaan silakan tulis di kolom komentar.

Related

TextBox 5773087555558623969

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