Makro excel menambahkan data ke bagian bawah daftar

Makro Excel ini memfilter pilihan data untuk menampilkan hanya 10 item terbawah dalam daftar atau kumpulan data. Ini menggunakan metode autofilter di Excel

Untuk menggunakan makro ini, cukup pastikan bahwa referensi sel untuk rentang tersebut adalah awal dari tabel, daftar, atau kumpulan data yang ingin Anda filter. Ini adalah makro filter yang sangat mudah digunakan di Excel dan dapat membantu merampingkan kebutuhan pemrosesan data Anda di Excel

Dalam artikel ini, kami akan mengilustrasikan cara memasukkan data ke dalam tabel Excel menggunakan kode VBA. Dengan bantuan properti dan metode bawaan Excel, kami dapat memfasilitasi fungsionalitas menambahkan atau menimpa data ke dalam tabel dengan mudah. Mari selami contoh untuk mendapatkan pemahaman yang jelas tentang metode bersama dengan kode VBA

Daftar isi

Download Buku Latihan

Unduh buku latihan latihan ini untuk berolahraga saat Anda membaca artikel ini

Masukkan Data ke dalam Tabel. xlsm

4 Contoh Memasukkan Data ke Tabel Menggunakan VBA di Excel

Katakanlah, kita memiliki daftar penjualan toko dengan detail seperti tanggal pemesanan, nama produk, jumlah, harga satuan, dan harga total.

Cara Membuat Tabel di Excel
Untuk mengubah kumpulan data menjadi tabel Excel, lakukan hal berikut-

• Pilih seluruh kumpulan data
• Buka tab Sisipkan dari Pita Excel
• Klik pada opsi Tabel

• Terakhir, klik tombol OK di jendela Create Table

• Kami telah berhasil mengonversi kumpulan data menjadi tabel Excel

Untuk memasukkan data ke dalam tabel Excel, kami akan menggunakan beberapa fungsi dan properti VBA dalam kode kami. Bagian berikut menjelaskan cara membuka dan menulis kode di editor visual basic

Menulis Kode di Editor Visual Basic
Ikuti langkah-langkah untuk membuka editor visual basic dan menulis beberapa kode di sana.

• Buka tab Pengembang dari Pita Excel
• Klik opsi Visual Basic

• Di jendela Visual Basic for Applications, klik dropdown Sisipkan untuk memilih Modul Baru

Sekarang modul baru dibuka, tulis beberapa kode di sana dan tekan F5 untuk menjalankan

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

Dalam contoh ini, kami akan menggunakan kode VBA untuk menambahkan baris baru di bagian bawah tabel, lalu memasukkan data ke dalamnya. Di tabel kami, kami memiliki 4 baris data. Untuk menambahkan yang ke-5, salin dan tempel kode berikut ke 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 menjalankan kode

Kami telah memasukkan baris data baru di bagian bawah tabel yang ada

Penjelasan Kode

• Dalam kode kami, kami menggunakan objek ListObjects dari VBA Excel untuk mengambil tabel dengan namanya. Untuk informasi lebih lanjut, masing-masing objek ListObject adalah tabel di lembar kerja. Untuk mendapatkan nama tabel, klik tabel >> klik tab Desain Tabel di Pita Excel

• Kemudian, kami menggunakan ListRows. Tambahkan metode untuk menambahkan baris baru di tabel. Metode ini membutuhkan dua argumen. Posisikan dan Selalu Sisipkan

Dengan memasukkan bilangan bulat, kita dapat menentukan posisi relatif dari baris yang baru ditambahkan dalam tabel. Dalam contoh ini, kami mengosongkan argumen posisi, sebagai hasilnya, baris baru telah ditambahkan di bagian bawah tabel

• Terakhir, kami menetapkan data di setiap sel dari baris yang baru ditambahkan. Dalam hal ini, datanya adalah. Range(1) = “1/1/2022” sebagai TanggalPesanan,. Range(2) = “Apple” sebagai Produk,. Range(3) = 5 sebagai Kuantitas,. Rentang(4) = 1. 77 sebagai Harga Satuan

Baca Selengkapnya. Nama Tabel Excel. Yang Perlu Anda Ketahui

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

Dalam ilustrasi ini, kita akan menambahkan baris data pada baris tertentu relatif terhadap tabel menggunakan potongan kode yang sama yang kita gunakan pada contoh di atas. Dalam hal ini, kita hanya perlu menentukan argumen Posisi ListRows. Tambahkan metode dalam kode kita. Katakanlah kita ingin menambahkan data penjualan Orange dengan detail pada baris nomor 3 relatif terhadap tabel yang ada. Agar ini terjadi, salin dan tempel kode berikut 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 memasukkan data penjualan Orange 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 Terhitung Dibagi dengan Hitungan dalam Tabel Pivot
• Bagaimana Menggambarkan Distribusi Frekuensi Relatif di Excel
• [Perbaikan] Tidak Dapat Mengelompokkan Tanggal di 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 data yang ada di tabel alih-alih menyisipkan baris data baru. Untuk melakukan itu, kita perlu menggunakan ListObject. properti ListRows Excel, bukan ListRows. Tambahkan properti yang kita gunakan sebelumnya. ListObject. Properti ListRows juga menggunakan nomor baris (nilai bilangan bulat) sebagai argumennya. Misalkan, kita ingin mengubah harga satuan Jeruk dari 2. 14 sampai 2. 35  yang kami sisipkan pada contoh sebelumnya. Salin dan tempel 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 menetapkan argumen untuk ListObject. Properti ListRows sebagai 3 tempat data untuk Orange berada. Jalankan kodenya dengan menekan F5 dan lihat perbedaannya

Kode hanya mengubah harga satuan data pada baris nomor 3 relatif terhadap tabel

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, kami akan menyisipkan nama tabel dan detail penjualan suatu produk sebagai input pengguna daripada meng-hardcode-nya dalam kode VBA setiap kali. Ikuti petunjuk di bawah ini untuk melakukannya

• Salin dan tempel kode berikut ke editor kode visual

Sub InsertDataIntoTable()
Dim tableName As ListObject
Dim A, B, C, D, tName  As String
    tName = Application.InputBox(Prompt:="Name of the Table: ", Type:=2)
    A = Application.InputBox(Prompt:="Order Date: ", Type:=2)
    B = Application.InputBox(Prompt:="Product Name: ", Type:=2)
    C = Application.InputBox(Prompt:="Quantity: ", Type:=2)
    D = Application.InputBox(Prompt:="Unit Price: ", 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 menjalankan kode
• Letakkan nama tabel di kotak input (Tabel1, dalam contoh ini) dan tekan OK

• Kemudian isikan nilai Order Date, Product Name, Quantity, dan Unit Price pada kotak input yang muncul berurutan. Dalam contoh ini, nilai yang kami gunakan adalah 1/1/2022, Oranye, 3, dan 35

• Hasilnya, kami mendapatkan baris baru dengan data yang disisipkan di bagian bawah tabel

Baca Selengkapnya. Tips Pemformatan Tabel Excel – Mengubah Tampilan Tabel

Catatan

Saat kami menambahkan baris baru dengan data menggunakan kode VBA, format, dan rumus dibawa ke baris baru secara otomatis. Dalam contoh kita, kolom TotalHarga menghasilkan produk dari kolom Kuantitas, dan Harga Satuan. Kami hanya memasukkan nilai Kuantitas dan Harga Satuan;

Kesimpulan

Sekarang, kita tahu cara memasukkan data ke dalam tabel Excel menggunakan kode VBA. Mudah-mudahan, ini akan membantu Anda menggunakan metode ini dengan lebih percaya diri. Setiap pertanyaan atau saran jangan lupa untuk memasukkannya ke dalam kotak komentar di bawah ini

Bagaimana cara menambahkan data ke baris terakhir di Excel VBA?

Bagaimana Anda membuat daftar drop-down di makro?

Bagaimana cara menambahkan daftar drop-down di Excel VBA?

Bagaimana cara menambahkan data ke makro di Excel?