Cara Menangkap Data Dari UserForms ke dalam Lembaran Kerja Excel

Dengan Excel, anda boleh menggunakan Visual Basic untuk menambah pelbagai fungsi ke dalam lembaran kerja anda, termasuk UserForms. Melalui UserForms, anda dapat memaparkan borang input yang berasingan daripada lembaran kerja utama, yang sangat berguna untuk menangkap data daripada individu yang tidak biasa dengan spreadsheet. Dengan sedikit kod Visual Basic, anda boleh menambah semua data ini ke dalam lembaran kerja anda dalam baris baru.

Definisikan Kawasan Anda

Mulakan Excel dan buka tab Developer (jika tidak kelihatan, aktifkan melalui File > Options > Customize Ribbon). Klik Visual Basic untuk membuka tetingkap VBA. Pilih ikon A dari Toolbox dan letak label pertama pada UserForm1 di posisi yang anda mahu. Tukar sifat Caption label kepada nama medan yang lebih deskriptif, contohnya "Nama Depan". Ulang proses ini untuk setiap medan yang anda senaraikan pada baris pertama lembaran kerja anda.

Tambah Kotak Teks

Selepas menambah label, pilih ikon TextBox dalam Toolbox dan seret kotak teks di sebelah kanan label pertama. Jika hanya menggunakan beberapa medan, anda boleh biarkan sifat (Name) pada default "TextBox1". Namun, jika anda mempunyai banyak medan, lebih baik menamakan semula kotak teks mengikut nama label supaya lebih mudah diurus. Pastikan setiap label mempunyai kotak teks yang bersesuaian.

Tambah Butang Hantar

Pilih ikon Command Button (tombol Windows standard) dan letakkannya di bawah atau berhampiran kotak teks terakhir dalam UserForm1. Tukar sifat Caption kepada "Hantar Data" atau sebarang teks yang menunjukkan pengguna perlu klik butang ini untuk menghantar maklumat.

Tambahkan Kod Visual Basic

Dubel klik butang yang baru anda buat. Masukkan kod berikut antara Private Sub dan End Sub:

Private Sub CommandButton1_Click()
    Dim erow As Long
    erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    Sheet1.Cells(erow, 1).Value = TextBox1.Text
    Sheet1.Cells(erow, 2).Value = TextBox2.Text
    ' Ulang untuk setiap TextBox dengan menambah baris berikut
End Sub

Jika anda menamakan semula kotak teks, gantikan nama TextBox1, TextBox2, dsb. dengan nama yang telah ditetapkan. Selepas semua kod dimasukkan, klik butang Run (Play) di bahagian atas tetingkap VBA untuk mula mengumpul data.