VBA TextBox | Bagaimana Cara Menyisipkan & Menggunakan TextBox di VBA Userform?

Kotak Teks VBA Excel

Textbox adalah seperti kotak yang digunakan untuk mendapatkan input dari pengguna, kotak teks adalah bagian dari formulir pengguna dan di tab pengembang di lembar kerja excel mana pun, Jika kita ingin membuat kotak teks dalam formulir pengguna, kita dapat memilih opsi kotak teks dari kontrol formulir pengguna di VBA atau di lembar kerja kita dapat memilihnya dari tab desain.

VBA TextBox adalah salah satu kontrol dari banyak kontrol Formulir Pengguna. Dengan menampilkan kotak teks pada formulir pengguna kita dapat meminta mereka untuk memasukkan data ke dalam kotak teks dan data yang dimasukkan oleh pengguna dapat disimpan ke lembar kerja dengan kode-kode sederhana.

Formulir pengguna sangat menarik dalam pengkodean VBA. Ini sangat membantu kami terutama ketika kami perlu mendapatkan masukan dari pengguna. Dengan formulir pengguna, kami memiliki banyak kontrol dan untuk mendapatkan nilai input dari pengguna "Kotak Teks" adalah opsi ideal dalam formulir pengguna. Dengan meletakkan kotak teks pada formulir pengguna, kami sebenarnya dapat memberi tahu pengguna untuk memasukkan nilai yang diperlukan di kotak teks yang kami tampilkan. Jika Anda tidak tahu tentang kotak teks VBA, maka artikel ini akan membahas kotak teks VBA.

Bagaimana cara memasukkan TextBox di VBA UserForm?

Anda dapat mendownload Template Kotak Teks VBA ini di sini - Template Kotak Teks VBA

Untuk memasukkan kotak teks terlebih dahulu, kita perlu memasukkan formulir pengguna. Untuk memasukkan formulir pengguna, masuk ke Sisipkan> Formulir Pengguna.

Segera Anda mengklik Formulir Pengguna, kami akan membentuk Formulir Pengguna seperti modul lainnya.

Klik Formulir Pengguna untuk melihat Kontrol Formulir Pengguna.

Dari kotak alat Kontrol ini pilih "TextBox" dan seret pada Formulir Pengguna.

Dengan ini, kita bisa melihat banyak properti yang terkait dengan kotak teks ini.

Properti TextBox

Tekan tombol F4 untuk melihat Properti Kotak Teks.

Seperti yang bisa kita lihat kotak teks memiliki Nama, warna, Perbatasan seperti ini banyak. Sekarang berikan Nama yang Tepat agar kita dapat dengan mudah merujuk ke kotak teks ini saat membuat kode.

Contoh untuk menggunakan TextBox di Userform

Kami akan melakukan salah satu proyek dengan teks VBA. Kami akan membuat formulir pengguna entri data untuk menyimpan detail karyawan.

Langkah 1: Pada label gambar formulir pengguna.

Langkah 2: Ubah teks default label menjadi "Nama Karyawan".

Langkah 3: Di depan Label, gambar kotak teks.

Langkah 4: Beri nama yang tepat untuk kotak teks sebagai "EmpNameTextBox".

Langkah 5: Sekarang gambar satu Label lagi di bawah label pertama dan masukkan teks sebagai "ID Karyawan".

Langkah 6: Di depan label kedua gambar satu kotak teks lagi dan beri nama sebagai "EmpIDTextBox".

Langkah 7: Gambar satu label lagi dan masukkan teks sebagai "Gaji".

Langkah 8: Gambarlah satu kotak teks lagi di depan label "Gaji" dan beri nama sebagai "SalaryTextBox".

Langkah 9: Sekarang masukkan "Command Button" dari ToolBox.

Langkah 10: Ubah teks Tombol Perintah sebagai "Kirim".

Oke, kita selesai dengan bagian desain Formulir Pengguna. Sekarang kita perlu menulis kode untuk menyimpan data yang dimasukkan dalam formulir pengguna ini. Sekarang jalankan formulir pengguna dengan menekan tombol F5 kita akan melihat formulir pengguna seperti ini.

Langkah 11: Ubah Caption of the User Form di jendela Properties.

Langkah 12: Sekarang klik dua kali pada Submit Command Button. Segera setelah Anda klik dua kali, Anda akan melihat sub prosedur otomatis seperti di bawah ini.

Ini adalah saat Anda mengklik tombol Kirim apa yang akan terjadi. Kami perlu menyebutkan tugas dalam kode VBA. Dalam proyek ini, tujuan kami adalah menyimpan data yang dimasukkan ke dalam kotak teks segera setelah kami mengklik Tombol Kirim.

Untuk ini pertama-tama buat Templat seperti ini di lembar kerja bernama "Lembar Karyawan".

Langkah 13: Sekarang kembali ke editor visual basic. Di dalam subrutin klik tombol di VBA pertama-tama tentukan baris yang terakhir digunakan dengan menggunakan kode di bawah ini.

Kode:

 Private Sub CommandButton1_Click () Dim LR As Long LR = Worksheets ("Employee Sheet"). Cell (Rows.Count, 1) .End (xlUp) .Row + 1 End Sub

Langkah 14: Hal pertama di kolom pertama kita akan menyimpan Nama Karyawan. Jadi untuk ini, kita perlu mengakses kotak teks bernama "EmpNameTextBox".

Kode:

 Private Sub CommandButton1_Click () Dim LR As Long LR = Worksheets ("Employee Sheet"). Cell (Rows.Count, 1) .End (xlUp) .Row + 1 Ramge ("A" & LR) .Value = EmpNameTextBox.Value Akhiri Sub

Langkah 15: Di kolom kedua kita perlu menyimpan ID Karyawan. Jadi ini akan diperoleh dengan mengakses kotak teks bernama "EmpIDTextBox".

Kode:

 Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value End Sub

Step 16: At last we need to store the salary part, for this, we need to access to text box named “SalaryTextBox”.

Code:

 Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value Range("C" & LR).Value = SalaryTextBox.Value End Sub