Belajar VBA Excel : Cara Menyisipkan TextBox Di Dalam Userform

 MlatenMania.com - Hallo Sobat Blogger semuanya, selamat datang kembali di blog sederhana Saya ini. Terimakasih Saya ucapkan kepada Anda semua yang sudah mengunjungi blog sederhana Saya ini. Pada kesempatan ini kembali Saya akan berbagi sebuah tutorial mengenai VBA Excel, dan sesuai dengan judul artikel ini, yang akan Saya bahas adalah Textbox. Berikut pembahasan lengkapnya.

Apa Itu TextBox?

Textbox Merupakan objek control yang dapat diberikan input dan juga menjadi output pada saat program dijalankan.

Menyisipkan Textbox Ke Dalam Userform

Untuk menyisipkan textbox ke dalam userform kita bisa klik pada toolbox yang muncul pada saat kita bekerja di sebuah Userform, berikut gambarnya:

Kemudian kita drag pada userform sesuai dengan kebutuhan kita, berikut contoh hasilnya:

Mengubah Atau Memberi Nama TextBox

Secara default Textbox yang kita sisipkan ke dalam userform memiliki nama Textbox1 dan seterusnya, dan untuk mengubah nama dari Textbox tersebut adalah sebegai berikut:

1. Klik pada Textbox
2. Pada jendela Properties, kita nama Textbox-nya pada baris Name, perhatikan gambar di bawah ini:

Pada contoh di atas Saya mengubah nama TextBox menjadi TxtNama. 

Adapun tujuan mengubah nama TextBox adalah agar nantinya mempermudah kita pada saat kita melakukan permprograman di lembar kerja VBA Excel.

Mengubah Warna TextBox

Untuk mengubah warna TextBox hampir sama dengan cara di atas, yaitu klik pada TextBox, kemudian pada jendela Properties kita klik pada pilihan BackColor:

Seperti yang ditampilkan pada gambar di atas, terdapat 2 (dua) pilihan untuk mengubah warna TextBox, yaitu:

• Pallete; dan
• System.

Silahkan sesuaikan dengan kebutuhan masing-masing.

Validasi Isian Pada TextBox

Berikut merupakan beberapa contoh validasi isian pada TextBox VBA:

1. Agar TextBox hanya bisa diisi dengan angka saja

Agar TextBox hanya bisa diisi dengan angka saja, kita harus menyisipkan code Macro berikut ini ke dalam TextBox tersebut:

Private Sub TxtNama_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Else
        KeyAscii = 0
End Select
End Sub

Klik dua kali (double click) pada TextBox tersebut, kemudian Copy dan Paste code Macro di atas.

Catatan:
Sesuai pada teks TxtNama dengan nama TextBox kita masing-masing ya

2. Agar teks yang ada di TextBox menjadi huruf kapital (otomatis)

Agar teks yang di-input-kan ke dalam TextBox secara otomatis menjadi huruf kapital, kita bisa menggunakan code Macro di bawah ini:

Private Sub TxtNama_Change()
TxtNama = UCase(TxtNama)
End Sub

Untuk menyisipkan code Macro tersebut sama dengan di atas.

Sebenarnya masih banyak lagi contoh-contoh Validasi Isian TextBox, namun yang Saya berikan pada kesempatan ini hanya 2 (dua) saja. Karena kedua validasi isian tersebut merupakan yang paling populer.

Demikian pembahasan mengenai Belajar VBA Excel : Cara Menyisipkan TextBox Di Dalam Userform, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat untuk kita semuanya. Sekian dan terimakasih.