Kotak Teks VBA - Bagaimana Memasukkan & Menggunakan TextBox dalam Borang Pengguna VBA?

Isi kandungan

Kotak Teks Excel VBA

Kotak Teks Excel VBA

Teks adalah semata-mata seperti kotak yang digunakan untuk mendapatkan input daripada pengguna, kotak teks adalah sebahagian daripada bentuk pengguna dan dalam tab pemaju dalam mana-mana lembaran excel, Jika kita ingin kotak teks dalam bentuk pengguna yang kami boleh pilih pilihan kotak teks dari kawalan borang pengguna di VBA atau dalam lembaran kerja kita boleh memilihnya dari tab reka bentuk.

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

Bentuk pengguna sangat menarik dalam pengekodan VBA. Ini sangat membantu kita, terutamanya apabila kita perlu mendapatkan input daripada pengguna. Dengan bentuk pengguna, kami memiliki banyak kawalan, dan untuk mendapatkan nilai input dari pengguna, "Kotak Teks" adalah pilihan yang ideal dalam bentuk pengguna. Dengan meletakkan kotak teks pada formulir pengguna, kita sebenarnya dapat memberitahu pengguna untuk memasukkan nilai yang diperlukan dalam kotak teks yang kita paparkan. Sekiranya anda tidak mempunyai idea tentang kotak teks VBA, maka artikel ini akan meninjau kotak teks VBA.

Bagaimana Memasukkan TextBox dalam VBA UserForm?

Untuk memasukkan kotak teks terlebih dahulu, kita perlu memasukkan borang pengguna. Untuk memasukkan borang pengguna, pergi ke Sisipkan> Borang Pengguna.

Sebaik sahaja anda mengklik Borang Pengguna, kami akan Borang Pengguna seperti modul lain.

Klik pada Borang Pengguna untuk melihat Kawalan Borang Pengguna.

Dari kotak alat Kawalan ini, pilih "TextBox" dan seret pada Borang Pengguna.

Dengan ini, kita dapat melihat banyak sifat yang berkaitan dengan kotak teks ini.

Properties TextBox

Tekan kekunci F4 untuk melihat Sifat Kotak Teks.

Seperti yang kita lihat, kotak teks mempunyai Nama, warna, Batas seperti ini. Sekarang beri Nama yang Betul supaya kita dapat merujuk kotak teks ini dengan mudah semasa membuat pengekodan.

Contoh penggunaan TextBox dalam Userform

Kami akan menjalankan salah satu projek dengan teks VBA. Kami akan membuat borang pengguna kemasukan data untuk menyimpan maklumat pekerja.

Langkah 1: Pada borang pengguna, lukis Label.

Langkah 2: Tukar teks lalai label menjadi "Nama Pekerja".

Langkah 3: Di hadapan Label, lukis kotak teks.

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

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

Langkah 6: Di hadapan label kedua, lukis satu lagi kotak teks dan namakan sebagai "EmpIDTextBox."

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

Langkah 8: Lukis satu lagi kotak teks di hadapan label "Gaji" dan namakan sebagai "SalaryTextBox."

Langkah 9: Sekarang masukkan "Butang Perintah" dari Kotak Alat.

Langkah 10: Tukar teks Butang Perintah sebagai "Kirim".

Ok, kita selesai dengan bahagian reka bentuk Borang Pengguna. Sekarang kita perlu menulis kod untuk menyimpan data yang dimasukkan dalam borang pengguna ini. Mulai sekarang, jalankan borang pengguna dengan menekan kekunci F5. Kita mesti melihat borang pengguna seperti ini.

Langkah 11: Tukar Kapsyen Borang Pengguna di tetingkap Properties.

Langkah 12: Sekarang klik dua kali pada Butang Hantar Perintah. Sebaik sahaja anda mengklik dua kali, anda akan melihat sub prosedur automatik seperti di bawah.

Ini adalah apabila anda mengklik butang Kirim, apa yang seharusnya berlaku. Kita perlu menyebutkan tugas dalam kod VBA. Dalam projek ini, tujuan kami adalah untuk menyimpan data yang dimasukkan ke dalam kotak teks sebaik sahaja kami mengklik Butang Kirim.

Untuk ini, pertama, buat Templat seperti ini di lembaran kerja bernama "Lembaran Pekerja."

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