Dalam artikel ini, kami akan mengilustrasikan cara sisipkan data menjadi sebuah Excel meja menggunakan VBA kode Dengan bantuan properti dan metode bawaan Excel, kita dapat memfasilitasi fungsionalitas penambahan atau penimpaan data ke dalam tabel dengan mudah. Mari selami contoh untuk mendapatkan pemahaman yang jelas tentang metode bersama dengan kode VBA.

Unduh Buku Kerja Praktik

Unduh buku kerja latihan ini untuk latihan saat Anda membaca artikel ini.

4 Contoh untuk Memasukkan Data ke dalam Tabel Menggunakan VBA di Excel

Katakanlah, kita memiliki daftar penjualan dari sebuah toko dengan rincian seperti tanggal pesanan, nama produk, kuantitas, harga satuan, dan harga total.

Cara Membuat Tabel di Excel

Untuk putar yang dataset menjadi sebuah Tabel Excel , lakukan hal berikut-

• Pilih yang seluruh dataset .
• Pergi ke Sisipkan tab dari Pita Excel .
• Klik pada Tabel pilihan.

• Terakhir, klik tombol Tombol OK di Jendela Create Table (Buat Tabel).

• Kami telah berhasil dikonversi yang dataset menjadi sebuah Tabel Excel .

Untuk menyisipkan data ke dalam tabel Excel, kita akan menggunakan beberapa Fungsi VBA dan properti dalam kode Bagian berikut ini menjelaskan cara terbuka dan menulis kode di editor visual basic.

Menulis Kode di Editor Visual Basic

Ikuti langkah-langkah untuk terbuka yang editor visual basic dan menulis beberapa kode di sana.

• Pergi ke Pengembang tab dari tab Pita Excel .
• Klik yang Opsi Visual Basic.

• Dalam Visual Basic untuk Aplikasi jendela, klik tombol Sisipkan dropdown untuk pilih yang Modul Baru

Sekarang itu modul baru adalah dibuka , tulis beberapa kode di sana dan tekan F5 untuk lari.

1. Sisipkan Data di Baris Terakhir Tabel Menggunakan VBA di Excel

Dalam contoh ini, kita akan menggunakan VBA kode untuk tambahkan a baris baru di bawah dari meja dan kemudian masukkan data ke dalam itu. Dalam tabel kami, kami memiliki 4 baris dari data Untuk menambahkan Yang ke-5 , salinan dan tempelkan kode berikut ke dalam editor visual basic.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = "1/1/2022" .Range(2) = "Apple" .Range(3) = 5 .Range(4) = 1.77 End With End Sub 

Tekan F5 untuk lari yang kode.

Kami sudah disisipkan a baris baru dari data di bawah dari tabel yang ada .

Penjelasan Kode:

• Dalam kode kami, kami menggunakan Objek ListObjects dari VBA Excel ke ambil yang meja dengan nama Untuk informasi lebih lanjut, masing-masing dari ListObject objek adalah meja pada lembar kerja Untuk mendapatkan nama tabel, klik pada meja >> klik pada Tab Desain Meja di Pita Excel.

• Kemudian, kami menggunakan DaftarBaris . Tambahkan metode untuk menambahkan baris baru di meja . ini metode mengambil dua argumen : Posisi dan SelaluMasukkan .

Dengan memasukkan bilangan bulat , kita bisa menentukan posisi relatif dari baris yang baru ditambahkan di meja Dalam contoh ini, kita dibiarkan kosong yang argumen posisi , sebagai hasilnya, a baris baru telah menambahkan di bawah dari meja .

• Akhirnya, kami menetapkan data dalam masing-masing dari sel dari yang baru menambahkan baris Dalam hal ini, data yang Rentang(1) = "1/1/2022" sebagai OrderDate, .Range(2) = "Apple" sebagai Produk, .Range(3) = 5 sebagai Kuantitas, .Range(4) = 1.77 sebagai Harga Satuan.

Baca selengkapnya: Nama Tabel Excel: Semua yang Perlu Anda Ketahui

2. Jalankan Kode VBA untuk Menyisipkan Data pada Baris Tertentu dari Tabel di Excel

Dalam ilustrasi ini, kita akan menambahkan deretan data di a baris tertentu relatif terhadap tabel menggunakan potongan kode yang sama dengan yang kita gunakan pada contoh di atas. Dalam hal ini, kita hanya perlu tentukan yang Argumen posisi dari Metode ListRows.Add dalam kode kita. Katakanlah kita ingin menambahkan data penjualan untuk Oranye dengan rincian dalam baris nomor 3 relatif ke tabel yang ada Agar hal ini terjadi, salinan dan tempelkan berikut ini kode ke dalam editor kode visual.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "Orange" .Range(3) = 3 .Range(4) = 2.14 End With End Sub 

Menjalankan kode dengan menekan F5 yang dimasukkan yang data penjualan untuk Jeruk di Baris ke-3 relatif terhadap tabel .

Baca selengkapnya: Kode VBA Excel untuk Setiap Baris dalam Tabel (Tambah, Timpa, Hapus, dll.)

Bacaan Serupa

• Jumlah Bidang yang Dihitung Dibagi dengan Hitungan dalam Tabel Pivot
• Bagaimana Mengilustrasikan Distribusi Frekuensi Relatif di Excel
• [Perbaiki] Tidak Bisa Mengelompokkan Tanggal dalam Tabel Pivot: 4 Kemungkinan Solusi
• Cara Menghitung Distribusi Frekuensi Persen di Excel (2 Metode)
• Tabel Pivot Tidak Menyegarkan (5 Masalah &; Solusi)

3. Sisipkan dan Timpa Data ke dalam Tabel Menggunakan VBA di Excel

Di sini kami akan mengilustrasikan cara menimpa yang data yang ada dalam tabel sebagai gantinya dari menyisipkan a baris baru dari data Untuk melakukan itu, kita perlu menggunakan ListObject.ListRows properti dari Excel sebagai gantinya dari Properti ListRows.Add kami menggunakan sebelumnya . ListObject.ListRows properti juga mengambil nomor baris ( Bilangan bulat nilai ) sebagai argumen Katakanlah, kita ingin perubahan yang harga satuan dari Oranye dari 2,14 hingga 2,35 bahwa kita disisipkan di contoh sebelumnya . Salinan dan tempelkan kode berikut di bawah ini di editor visual basic.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "Orange" .Range(3) = 3 .Range(4) = 2.35 End With End Sub 

Dalam kode kami, kami set yang argumen untuk ListObject.ListRows properti sebagai 3 di mana data untuk Oranye milik . lari yang kode dengan menekan F5 dan melihat perbedaan .

Kode tersebut memiliki berubah hanya harga satuan dari data di baris nomor 3 relatif ke meja .

Baca selengkapnya: Cara Menyisipkan atau Menghapus Baris dan Kolom dari Tabel Excel

4. Jalankan Kode VBA untuk Memasukkan Data ke dalam Tabel Excel Berdasarkan Input Pengguna

Dalam contoh ini, kita akan sisipkan yang nama tabel dan rincian penjualan dari produk sebagai masukan pengguna daripada kode keras itu di Kode VBA setiap kali Ikuti instruksi di bawah ini untuk melakukannya.

• Salinan dan tempelkan kode berikut ini ke dalam editor kode visual.

 Sub InsertDataIntoTable() Dim nama_tabel As ListObject Dim A, B, C, D, tNama As String tNama = Application.InputBox(Prompt:="Nama Tabel: ", Type:=2) A = Application.InputBox(Prompt:="Tanggal Pemesanan: ", Type:=2) B = Application.InputBox(Prompt:="Nama Produk: ", Type:=2) C = Application.InputBox(Prompt:="Jumlah: ", Type:=2) D = Application.InputBox(Prompt:="Harga Satuan: ",Type:=2) Set tableName = ActiveSheet.ListObjects(tName) Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = A .Range(2) = B .Range(3) = C .Range(4) = D End With End Sub 

• Tekan F5 untuk lari kode.
• Taruh yang nama dari meja di kotak masukan ( Tabel1 dalam contoh ini) dan tekan BAIKLAH.

• Lalu, letakkan nilai untuk Tanggal Pesanan, Nama Produk, Kuantitas, dan Harga Satuan di kotak masukan bahwa muncul secara berurutan Dalam contoh ini, nilai yang kita gunakan adalah 1/1/2022, Oranye, 3, dan 35.

• Sebagai hasilnya, kami memiliki baris baru dengan data yang dimasukkan di bawah dari meja .

Baca selengkapnya: Tips Memformat Tabel Excel - Mengubah Tampilan Tabel

Catatan

Ketika kita menambahkan a baris baru dengan data menggunakan kode VBA, kode format dan rumus dapatkan dilakukan ke baris baru secara otomatis Dalam contoh kita, yang TotalHarga kolom keluaran yang produk dari kolom-kolom Kuantitas dan Harga Satuan Kami hanya hanya disisipkan yang Kuantitas dan Nilai Harga Satuan ; yang baris baru adalah disisipkan dengan produk dari ini dua nilai di Kolom Total Harga.

Kesimpulan

Sekarang, kita sudah tahu cara memasukkan data ke dalam tabel Excel menggunakan kode VBA. Semoga bisa membantu Anda untuk menggunakan metode ini dengan lebih percaya diri. Jika ada pertanyaan atau saran, jangan lupa untuk memasukkannya ke dalam kotak komentar di bawah ini.