Dengan Excel, Anda dapat menggunakan Visual Basic untuk menambahkan berbagai fitur berbeda ke spreadsheet Anda, termasuk "UserForms." Melalui UserForms, Anda dapat menampilkan formulir input kepada pengguna yang terpisah dari lembar kerja utama, yang berguna untuk menangkap data dari individu yang mungkin tidak terbiasa dengan spreadsheet. Dengan sedikit kode Visual Basic, Anda dapat menambahkan semua data ini ke spreadsheet Anda di baris baru.
Tentukan Bidang Anda
Luncurkan Excel. Masukkan nama semua bidang yang ingin Anda ambil di baris atas, mulai dari "A1" dan bekerja ke kanan. Klik "Pengembang," lalu klik "Visual Basic." Jendela Visual Basic akan muncul. Klik ikon "A" dari Toolbox, dan klik dan seret ke dalam jendela "UserForm1" di lokasi yang Anda inginkan untuk bidang formulir pertama Anda. Edit label dengan mengubah properti "Keterangan" menjadi sesuatu yang lebih deskriptif, seperti "Nama Depan", misalnya. Buat label untuk setiap bidang yang Anda masukkan di lembar kerja Anda.
Tambahkan Kotak Teks Anda
Pilih ikon "Kotak Teks" dari Kotak Alat, dan seret kotak teks tepat di sebelah kanan label pertama Anda. Jika Anda hanya akan menggunakan beberapa bidang, Anda dapat membiarkan properti "(Nama)" sebagai "TextBox1" default. Namun jika Anda membutuhkan banyak bidang, ini bisa membingungkan, jadi Anda harus mengeditnya agar sesuai dengan label yang telah Anda buat. Pastikan setiap label memiliki kotak teks yang sesuai.
Tambahkan Tombol Kirim
Klik ikon "Tombol Perintah" di Toolbox, yang terlihat seperti tombol gaya Windows standar. Klik dan seret ke ukuran dan lokasi yang Anda butuhkan di UserForm1. Biasanya, Anda akan menginginkan ini di bawah atau di dekat kotak teks terakhir di formulir Anda. Ubah properti "Keterangan" tombol menjadi "Kirim Data" atau yang serupa, yang menunjukkan kepada pengguna bahwa mereka harus mengklik tombol ini untuk mengirimkan data mereka.
Tambahkan Kode Visual Basic
Klik dua kali tombol. Masukkan kode berikut antara “Private Sub” dan “End Sub”:
eRow=Sheet1.Cells(Rows.Count,1).End(xlUp).Offset(1,0).Baris
Kemudian mulai baris baru di bawah ini dan kemudian masukkan yang berikut:
Sel(erow, 1) = TextBox1.Text
Jika Anda mengganti nama kotak teks Anda, ubah "TextBox1" menjadi nama yang Anda berikan pada kotak teks pertama. Lakukan ini untuk setiap kotak input yang Anda buat, memulai baris baru dan memasukkan nama kotak teks yang benar sebagaimana mestinya. Juga, untuk setiap baris baru, tambah angka dalam tanda kurung satu per satu. Misalnya, baris berikutnya mungkin terlihat seperti ini:
Sel(erow, 2) = TextBox2.Text
Klik tombol "Mainkan" di bagian atas jendela untuk mulai mengambil data.
