Borang Pengguna Excel VBA - Bagaimana Membuat Bentuk Pengguna Interaktif?

Isi kandungan

Borang Pengguna Excel VBA

Borang Pengguna Excel VBA

Bentuk pengguna dalam VBA adalah bentuk yang ditentukan pengguna yang disesuaikan yang dibuat untuk mengambil input dari pengguna dalam bentuk formulir , ia mempunyai set kawalan yang berbeza untuk ditambahkan seperti kotak teks, label kotak centang, dll untuk membimbing pengguna memasukkan nilai dan menyimpan nilai dalam lembaran kerja, setiap bahagian borang pengguna mempunyai kod yang unik dengannya.

Userform adalah objek dalam antara muka Excel, dan di dalam borang pengguna ini, kita dapat membuat kotak dialog khusus lain yang berguna untuk mendapatkan data dari pengguna. Semasa anda bekerja dengan fail makro yang dibuat oleh senior anda atau mungkin dimuat turun dari internet, anda pasti pernah melihat bentuk pengguna seperti ini.

Dalam artikel ini, kami akan menunjukkan kepada anda cara membuat borang pengguna yang serupa untuk menyimpan data dari pengguna.

Bagaimana Membuat Bentuk Pengguna?

Seperti bagaimana anda memasukkan modul baru dengan cara yang sama, anda perlu mengklik butang INSERT dalam Visual Basic Editor untuk memasukkan Userform.

Sebaik sahaja anda mengklik ini, borang pengguna juga akan dimasukkan.

Sebelum saya memberitahu anda cara memprogramkan ini, izinkan saya menunjukkan kepada anda cara memformat borang pengguna ini.

Memformat Bentuk Pengguna

Dengan memilih borang pengguna, tekan kekunci F4, ia akan menunjukkan tetingkap sifat kepada anda.

Dengan menggunakan tetingkap sifat ini, kita dapat memformat bentuk pengguna ini. Kita boleh menamakannya. Kami dapat mengubah warna, gaya sempadan, dll …

Seperti ini, cubalah sifat lain untuk melihat bentuk pengguna.

Sekarang untuk borang pengguna ini, masukkan Kotak Alat.

Sekarang kita akan melihat kotak alat seperti ini.

Pada masa ini, borang pengguna hanya dimasukkan, tidak diprogramkan. Untuk mengetahui cara kerjanya, klik pada butang jalankan. Kami akan melihat borang di lembaran kerja excel.

Kini menggunakan label draw ToolBox.

Masukkan Teks sebagai Nama Pekerja di dalam label.

Untuk label ini, jadi kita boleh memformat dengan menggunakan sifat. Sekarang kita memasukkan teks sebagai "Nama Karyawan:" sekarang kita dapat melihatnya di tetingkap sifat di bawah Kapsyen.

Masukkan satu lagi label. Untuk memasukkan satu label lagi, anda boleh mengklik pada kotak alat, atau anda boleh menyeret label semasa dengan menahan kekunci Ctrl . Anda akan mempunyai replika label semasa.

Sekarang kita akan mempunyai label yang sama.

Tukar nama menjadi ID Pekerja.

Sekarang juga masukkan satu label lagi dan namakan sebagai "Department."

Sekarang dari kotak alat, masukkan kotak teks.

Namakan kotak teks ini sebagai EmpName di tetingkap sifat.

Seperti ini, masukkan dua lagi kotak teks dari ID Kakitangan & Jabatan masing-masing. Namakan kotak teks tersebut mengikut tajuknya.

Begitu juga, lakukan untuk Jabatan.

Sekarang dari kotak alat, masukkan Butang Perintah.

Tukar Nama Butang Perintah menjadi "SubmitButton" dan ubah kapsyen menjadi "Kirim".

Insert one more button and call it “Cancel.”

Now just to see run, press the run button or use the F5 key and see how your userform looks like in Excel.

Now it is coming to the shape.

VBA Code

Now the user will enter data in this, so we need to program this to store the data entered by the user on this form.

Double click on the SUBMIT button, it will take you to the macro window with an auto-created macro like the below.

It says SubmitButton click, remember we had given a name for the SUBMIT button as SubmitButton.

So, whenever we want to call this button, we can call this by this name (submit button). Inside this macro, copy and paste the below code.

Code:

Private Sub SubmitButton_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(LR, 1).Value = EmpName.Value Cells(LR, 2).Value = EmpID.Value Cells(LR, 3).Value = Dept.Value EmpName.Value = "" EmpID.Value = "" Dept.Value = "" End Sub

EmpName.Value here EmpName is the text box name we had given while creating the employee name text box.
EmpID.Value here EmpID is the text box name of the Employee ID text box.
Dept.Value this is the department text box name.

So, on the click on the submit button, it will store the values in the mentioned cells.

Now double click on the Cancel button. This will also show you the auto macro name like this.

Copy the below code and paste.

Code:

Private Sub CancelButton_Click() MyUserForm.Hide End Sub

MyUserForm adalah nama yang telah kami berikan kepada pengguna. MyUserForm.Hide bermaksud pada klik pada butang BATAL ia akan menyembunyikan borang pengguna.

Ok, sekarang buat templat seperti ini di lembaran kerja.