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?
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 "Kotak Teks" dan seret Formulir Pengguna.
Dengan ini, kita dapat 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 Name, color, Border seperti ini banyak. Sekarang berikan Nama yang Tepat agar kita dapat dengan mudah merujuk ke kotak teks ini saat membuat kode.
Contoh penggunaan 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 formulir pengguna, gambar Label.
Langkah 2: Ubah teks default label menjadi "Nama Karyawan".
Langkah 3: Di depan Label, gambar kotak teks.
Langkah 4: Berikan nama yang tepat ke 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 "EmpIDTextBox".
Langkah 7: Gambar satu label lagi dan masukkan teks sebagai "Gaji".
Langkah 8: Gambar 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".
Ok, kita selesai dengan bagian desain Formulir Pengguna. Sekarang kita perlu menulis kode untuk menyimpan data yang dimasukkan dalam formulir pengguna ini. Mulai sekarang, jalankan formulir pengguna dengan menekan tombol F5. Kita harus 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, buat Templat seperti ini di lembar kerja bernama "Lembar Karyawan."
Step 13: Now come back to the visual basic editor. Inside the button, click subroutine in VBA first to determine the last used row by using the below code.
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 End Sub
Step 14: First thing is in the first column we will store Employee Name. So for this, we need to access the text box named “EmpNameTextBox.”
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 End Sub
Step 15: In the second column, we need to store Employee ID. So this will be obtained by accessing the text box named “EmpIDTextBox.”
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 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
Ok, we are done with the coding part as well. Now run the code using the F5 key. We should see a User Form like the below.
Sampai sekarang, semua kotak kosong.
Isi detailnya dulu.
Sekarang klik tombol "Kirim". Ini akan menyimpan data pada lembar kerja.
Seperti ini, Anda dapat terus memasukkan data dan menekan tombol kirim. Ini adalah formulir pengguna entri data sederhana dengan kotak teks.
