Cara membuat formulir dengan Excel

Buka buku di Excel. Jika Anda tahu di buku mana Anda ingin formulir Anda, maka sekarang adalah waktu untuk membukanya. Gunakan menu File untuk mengakses buku.

Klik pada menu "Tools", pilih "Makro" dan klik "Visual Basic Editor".

Klik "Insert" dan kemudian pilih "UserForm."

Seret tombol perintah ke formulir. Anda membutuhkan setidaknya tiga dari ini untuk contoh ini.

Beri nama pada tombol dan label perintah. Klik pada "View" dan "Properties window". Klik salah satu tombol perintah yang Anda tempatkan pada formulir.

Beri nama tombol perintah yang akan membaca "OK" dengan mengklik pada pengaturan nama di jendela Properties dan mengetik "cmdOK". Klik pada pengaturan "Legenda" di jendela Properties dan ketik "OK".

Klik pada tombol perintah lain. Masukkan nama "cmdCancel" dan atur judul untuk membaca "Batal" di jendela Properties.

Klik pada tombol perintah ketiga dan beri nama "cmdClearForm" dan ubah pengaturan judul untuk membaca "Hapus Formulir"

Tekan tombol "F7" pada keyboard Anda untuk memunculkan jendela kode.

Klik pada daftar drop-down di bagian atas jendela kode. Klik pada daftar di kiri atas untuk membuka subprocedure yang disebut "Formulir Pengguna" dan klik pada daftar drop-down lainnya untuk memilih "Mulai".

Hapus subprocedure tersebut yang berbunyi: UserForm_Click () prosedur.

Tulis kode berikut di jendela kode (jangan menulis pada teks biru, tambahkan saja teks hitam): Private Sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" Dengan cboDepartment .AddItem "Karyawan ".AddItem" Manajer "Akhiri Dengan YourCourse.Value =" "optIntroduction = True chkWork = ChkVacation palsu = TxtNxt palsu.SetFocus End Sub

Masukkan kode pada tombol Batal. Klik dua kali pada tombol Batal untuk membuka jendela kode. Masukkan kode Anda sehingga jendela kode terbaca: Sub Pribadi cmdCancel_Click () Batalkan Akhir Sub

Buka jendela kode untuk tombol Delete Form. Ingat untuk klik dua kali pada "Hapus Formulir".

Masukkan kode Anda di jendela kode untuk membaca: Sub Pribadi cmdClearForm_Click () Panggil UserForm_Initialize End Sub

Klik dua kali pada tombol "Terima" untuk menambahkan kode berikut di jendela kode: Private Sub cmdOK_Click () ActiveWorkbook.Sheets ("YourWork"). Aktifkan Rentang ("A1"). Pilih Do If IsEmpty (ActiveCell) = FalseThen ActiveCell.Offset (1, 0). Pilih Akhir Jika Loop Sampai IsEmpty (ActiveCell) = True ActiveCell.Value = txtName.Value ActiveCell.Offset (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDepartment .Value ActiveCell.Offset (0, 3) = cboCourse.Value Jika optIntroduction = True Kemudian ActiveCell.Offset (0, 4) .Value = "Enter" ElseIf optIntermediate = True Then ActiveCell.Offset (0, 4) .Value = " Intermed "Else ActiveCell.Offset (0, 4) .Value =" Adv "End Jika Jika chkLunch = True Kemudian ActiveCell.Offset (0, 5) .Value =" Ya "Else ActiveCell.Offset (0, 5) .Value = "No" End If Jika chkWork = True Then ActiveCell.Offset (0, 6) .Value = "Ya" Else Jika chkVacation = Salah Kemudian ActiveCell.Offset (0, 6) .Value = "" Else ActiveCell.Offset (0, 6) .Value = "No" End If End If Range ("A1"). Pilih End Sub