Excel VBA untuk Membuat Tabel dari Range (6 Contoh)

Hugh West

16-10-2023 Makro &; Excel VBA
  • Bagikan Ini
Hugh West

Saat bekerja dengan Microsoft Excel Dan, mengubah rentang data tersebut ke dalam tabel adalah salah satu opsi terbaik. Tabel Excel memungkinkan kita untuk menyortir dan memfilter data dengan cepat, menambahkan catatan baru, dan langsung memperbarui bagan dan PivotTable. Excel VBA membantu pengguna untuk menyesuaikan aplikasi hanya dengan beberapa kode sederhana. Dalam artikel ini, kita akan melihat beberapa contoh dari Excel VBA untuk membuat tabel dari rentang.

Unduh Buku Kerja Praktik

Anda bisa mengunduh buku kerja dan berlatih dengan mereka.

Buat Tabel dari Range.xlsm

6 Contoh VBA Excel untuk Membuat Tabel dari Range

Tabel dimulai sebagai daftar dalam edisi menu Excel, tetapi fungsinya berkembang dalam varian pita. Mengubah rentang data ke tabel memperluas kemampuan, memungkinkan Anda bekerja lebih cepat dan mudah. mengkonversi rentang ke dalam tabel menggunakan VBA adalah cara termudah daripada menggunakan pita.

Misalkan, kita memiliki dataset sederhana yang berisi beberapa item dalam kolom B , kuantitas item-item tersebut dalam kolom C dan total penjualan untuk setiap item dalam kolom D Sekarang, kita ingin mengubah rentang data menjadi tabel. Mari kita tunjukkan contoh-contoh yang berbeda dan petunjuk langkah demi langkah untuk membuat tabel dari rentang B4:D9 dengan Excel VBA.

Gunakan ListObjects.Add untuk mengubah rentang menjadi tabel Excel. Objek Spreadsheet memiliki karakteristik DaftarObjek . DaftarObjek memiliki teknik yang disebut Tambahkan Kriteria untuk Tambahkan adalah sebagai berikut.

ekspresi .Add(SourceType, Sumber, LinkSource, HasHeaders, Tujuan)

Dan, gunakan SourceType xlSrcRange .

1. Excel VBA untuk Menghasilkan Tabel dari Range

Dengan Excel VBA pengguna dapat dengan mudah menggunakan kode yang berfungsi sebagai menu excel dari ribbon. Untuk menggunakan kode VBA untuk menghasilkan tabel dari range, mari kita ikuti prosedurnya.

LANGKAH-LANGKAH:

  • Pertama, buka Pengembang tab dari pita.
  • Kedua, dari Kode kategori, klik pada Visual Basic untuk membuka Editor Visual Basic . atau tekan Alt + F11 untuk membuka Editor Visual Basic .
  • Alih-alih melakukan ini, Anda bisa mengklik kanan pada lembar kerja Anda dan pergi ke Lihat Kode Ini juga akan membawa Anda ke Editor Visual Basic .

  • Ini akan muncul dalam Editor Visual Basic di mana kita menulis kode untuk membuat tabel dari range.
  • Ketiga, klik pada Modul dari Sisipkan bilah menu drop-down.

  • Ini akan menciptakan Modul dalam buku kerja Anda.
  • Dan, salin dan tempelkan VBA kode yang ditunjukkan di bawah ini.

Kode VBA: 

 Sub Create_Table() Sheet1.ListObjects.Add(xlSrcRange, Range("B4:D9"), , xlYes).Name = "Table1" End Sub
  • Setelah itu, jalankan kode dengan mengklik pada tombol RubSub atau menekan pintasan keyboard F5 .

Anda tidak perlu mengubah kodenya. Yang dapat Anda lakukan hanyalah mengubah rentang sesuai kebutuhan Anda.

  • Dan, akhirnya, mengikuti langkah-langkah akan membuat tabel dari range B4:D9 .

Penjelasan Kode VBA 

 Sub Buat_Tabel()

Sub adalah bagian dari kode yang digunakan untuk menangani pekerjaan dalam kode tetapi tidak akan mengembalikan nilai apa pun. Ini juga dikenal sebagai subprosedur. Jadi kami menamai prosedur kami Create_Table() . 

 Sheet1.ListObjects.Add(xlSrcRange, Range("B4:D9"), , xlYes).Name = "Table1"

Ini adalah baris kode utama yang digunakan untuk mengubah rentang sebagai tabel. Seperti yang sudah kita ketahui bahwa ListObjects.Add untuk mengubah range menjadi tabel Excel. Dan kita menggunakan xlSrcRange sebagai tipe sumber. Juga, kita mendeklarasikan range kita Rentang ("B4:D9") Dan akhirnya, beri nama tabel kita sebagai Tabel1 . 

 Akhiri Sub

Ini akan mengakhiri prosedur.

Baca selengkapnya: Cara Memperbarui Rentang Tabel Pivot (5 Metode yang Sesuai)

2. Buat Tabel dari Range Menggunakan Excel VBA

Mari kita lihat contoh lain untuk membuat tabel dari rentang menggunakan Excel VBA.

LANGKAH-LANGKAH:

  • Pertama, pergi ke Mengembangkan r dari pita.
  • Kedua, klik pada Visual Basic untuk membuka Editor Visual Basic .
  • Cara lain untuk membuka Editor Visual Basic hanya dengan menekan Alt + F11 .
  • Atau, klik kanan pada sheet, lalu pilih Lihat Kode .
  • Selanjutnya, pergi ke Sisipkan dan pilih Modul dari menu drop-down.
  • Dan, ini akan membuka jendela visual basic.
  • Setelah itu, salin dan tempelkan Kode VBA di bawah ini.

Kode VBA: 

 Sub Generate_Table() Dim tb2 As Range Dim wsht As Worksheet Set tb2 = Range("B4").CurrentRegion Set wsht = ActiveSheet ws.ListObjects.Add(SourceType:=xlSrcRange, Source:=tb2).Name = "Table2" End Sub
  • Selanjutnya, tekan tombol Tombol F5 atau klik pada Jalankan Sub untuk menjalankan kode.

  • Dan, Anda akan mendapatkan hasil seperti yang ditunjukkan dalam Metode 1 .

Penjelasan Kode VBA 

 Dim tb2 Sebagai Range Dim wsht Sebagai Lembar Kerja

The DIM pernyataan dalam VBA mengacu pada " menyatakan, " dan harus digunakan untuk mendeklarasikan variabel. Jadi, kita mendeklarasikan range kita ke tb2 dan lembar kerja untuk ws . 

 Set tb2 = Range("B4").CurrentRegion Set wsht = ActiveSheet

VBA Set hanya memungkinkan kita untuk menghindari keharusan mengetikkan rentang yang perlu kita pilih berulang kali saat menjalankan kode. Jadi, kami mengatur rentang kami ke wilayah saat ini dan lembar kerja kami ke lembar kerja aktif. 

 wsht.ListObjects.Add(SourceType:=xlSrcRange, Source:=tb2).Name = "Table2"

Dengan baris kode ini, kita membuat tabel dari rentang dan menamai tabel kita Tabel2 .

Baca selengkapnya: Cara Menggunakan Tabel Excel dengan VBA (9 Kemungkinan Cara)

3. Buat Tabel dari Rentang dengan VBA di Excel

Mari kita lihat contoh lain dari penggunaan Excel VBA untuk membuat tabel dari suatu rentang.

LANGKAH-LANGKAH:

  • Untuk memulai, pilih seluruh rentang yang ingin Anda ubah menjadi tabel.
  • Kedua, klik tombol Pengembang tab pada pita.
  • Ketiga, luncurkan Editor Visual Basic dengan mengklik Visual Basic .
  • Atau, Anda dapat mengakses Editor Visual Basic dengan menekan Alt + F11 .
  • Atau, klik kanan pada lembar dan pilih Lihat Kode dari menu.
  • Berikutnya, pilih Modul dari kotak drop-down di bawah Sisipkan .
  • Dan jendela visual basic akan muncul.
  • Tulis kode di sana.

Kode VBA: 

 Sub Create_Table3() Dim r As Range Dim wsht As Worksheet Dim tb3 As ListObject Set r = Selection.CurrentRegion Set wsht = ActiveSheet Set tb3 = wsht.ListObjects.Add(SourceType:=xlSrcRange, Source:=r, XlListObjecthasheaders:=x1Yes) End Sub
  • Terakhir, tekan tombol Tombol F5 untuk menjalankan kode.

  • Dan, ini akan membuat tabel dari rentang data seperti yang kita dapatkan di Metode 1 .

Baca selengkapnya: Cara Membuat Tabel di Excel (Dengan Kustomisasi)

Bacaan Serupa

  • Jumlah Bidang yang Dihitung Dibagi dengan Hitungan dalam Tabel Pivot
  • Bagaimana Mengilustrasikan Distribusi Frekuensi Relatif di Excel
  • Kelompok Tabel Pivot Excel berdasarkan Minggu (3 Contoh yang Sesuai)
  • [Perbaiki] Tidak Bisa Mengelompokkan Tanggal dalam Tabel Pivot: 4 Kemungkinan Solusi
  • Cara Membuat Tabel Amortisasi di Excel (4 Metode)

4. Terapkan VBA untuk Membuat Tabel Dinamis dari Range

Mari kita lihat sekilas cara lain untuk membuat tabel dari rentang menggunakan Excel VBA.

LANGKAH-LANGKAH:

  • Untuk memulai, buka ribbon dan pilih Pengembang pilihan.
  • Kemudian, untuk mengakses Editor Visual Basic , klik pada Visual Basic .
  • Menekan Alt + F11 juga akan memunculkan Editor Visual Basic .
  • Atau, sebagai alternatif, klik kanan lembar dan pilih Lihat Kode dari menu yang muncul.
  • Sekarang, dari Sisipkan opsi drop-down, pilih Modul .
  • Kemudian salin dan tempelkan VBA kode yang mengikuti.

Kode VBA: 

 Sub Create_Dynamic_Table1() Dim tbOb As ListObject Dim TblRng As Range With Sheets("Example4") lLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row lLastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column Set TblRng = .Range("A1", .Cells(lLastRow, lLastColumn)) Set tbOb = .ListObjects.Add(xlSrcRange, TblRng, , xlYes) tbOb.Name = "DynamicTable1" tbOb.TableStyle = "TableStyleMedium14" End With EndSub
  • Jalankan kode dengan menekan tombol F5 kunci.

  • Seperti yang diilustrasikan dalam Metode 1 ilustrasi, tabel akan dibangun dari kisaran.

Penjelasan Kode VBA 

 Sub Buat_Tabel_Dinamis_Tabel1()

Baris ini mengindikasikan nama subprosedur. 

 Dim tbOb Sebagai ListObject Dim TblRng Sebagai Range

Dua baris ini digunakan untuk deklarasi variabel. 

 Dengan Sheets ("Contoh4")

The Dengan pernyataan memungkinkan Anda untuk membuat urutan pernyataan pada satu objek tanpa harus mengkualifikasi ulang nama objek tersebut. Dengan pernyataan dengan nama sheet. 

 lLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row lLastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column

Itu masing-masing untuk menemukan baris terakhir dan kolom terakhir. 

 Set TblRng = .Range("A1", .Cells(lLastRow, lLastColumn))

Rentang untuk membuat tabel. 

 Set tbOb = .ListObjects.Add(xlSrcRange, TblRng, , xlYes)

Buat tabel dalam kisaran yang ditentukan di atas. 

 tbOb.Name = "DynamicTable1"

Menentukan nama tabel 

 tbOb.TableStyle = "TableStyleMedium14"

Menentukan gaya tabel.

Baca selengkapnya: Buat Tabel di Excel Menggunakan Pintasan (8 Metode)

5. Membuat Tabel Dinamis dari Rentang

Sekarang, lihat metode VBA Excel lainnya untuk membuat tabel dari suatu rentang.

LANGKAH-LANGKAH:

  • Untuk memulai, buka pita dan pilih Pengembang dari menu drop-down.
  • Kemudian pilih Visual Basic untuk membuka Editor Visual Basic .
  • The Editor Visual Basic juga dapat diakses dengan menekan Alt + F11 .
  • Atau, Anda dapat klik kanan lembar dan pilih Lihat Kode dari menu pop-up.
  • Setelah itu, pilih Modul dari Sisipkan menu drop-down.
  • Kemudian salin dan tempel kode VBA berikut.

Kode VBA: 

 Sub Create_Dynamic_Table2() Dim tbObj As ListObject Dim TblRng As Range With Spreadsheet("Example5") .Range("A1").Select Selection.CurrentRegion.Select Set tbObj = .ListObjects.Add(xlSrcRange, Selection, , xlYes) tbObj.Name = "DynamicTable2" tbObj.TableStyle = "TableStyleMedium15" End With End Sub
  • Terakhir, jalankan kode dengan menekan F5 pada keyboard Anda dan Anda melihat hasilnya di lembar kerja Anda.

  • Dan, seperti yang ditunjukkan dalam Metode 1 ilustrasi, tabel akan dibuat dari range.

Baca selengkapnya: Cara Membuat Tabel Excel Terlihat Bagus (8 Tips Efektif)

6. Gunakan Excel VBA untuk Membuat Tabel Dinamis

Mari kita jelajahi cara VBA Excel lainnya untuk membuat tabel dari rentang.

LANGKAH-LANGKAH:

  • Pada awalnya, pergi ke Pengembang tab> Visual Basic > Sisipkan > Modul .
  • Atau, klik kanan pada lembar kerja akan membuka sebuah jendela. Dari sana pergi ke Lihat Kode .
  • Dan, ini akan membawa Anda ke Editor Visual Basic di mana kita bisa menulis VBA Macro.
  • Di sisi lain, menekan Alt + F11 juga akan membuka Editor Visual Basic .
  • Setelah itu, ketik VBA kode.

Kode VBA: 

 Sub Create_Dynamic_Table3() Dim tableObj As ListObject Dim TblRng As Range With Spreadsheet("Example6") lLastRow = .UsedRange.Rows.Count lLastColumn = .UsedRange.Columns.Count Set TblRng = .Range("A1", .Cells(lLastRow, lLastColumn)) Set tableObj = .ListObjects.Add(xlSrcRange, TblRng, , xlYes) tableObj.Name = "DynamicTable3" tableObj.TableStyle = "TableStyleMedium16" End With End Sub
  • Dan, jalankan kode untuk melihat hasilnya dengan menekan tombol Tombol F5 .

  • Dan, tabel akan dibuat dari range seperti yang ditunjukkan dalam gambar Metode 1 .

Baca selengkapnya: Cara Membuat Tabel di Excel dengan Data (5 Cara)

Kesimpulan

Metode di atas akan membantu Anda membuat tabel dari rentang di Excel. Semoga ini akan membantu Anda! Jika Anda memiliki pertanyaan, saran, atau umpan balik, beri tahu kami di bagian komentar. Atau Anda dapat melihat sekilas artikel kami yang lain di ExcelWIKI.com blog!

Postingan sebelumnya Cara Mencetak ke PDF di Excel VBA: Dengan Contoh dan Ilustrasi
Postingan berikutnya Cara Menggunakan Alamat Tidak Langsung di Excel (4 Contoh)

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.