Bagaimana cara membuat beberapa lembar kerja di excel vba?

Pada artikel ini saya akan menunjukkan cara membuat beberapa lembar dari satu lembar. Ini tentang mendekonstruksi satu sheet untuk membuat sheet baru dengan data yang terkait dengan sheet tersebut. Jika saya memiliki daftar nama dan saya ingin membuat lembar baru untuk setiap nama dan memiliki semua data yang berhubungan dengan nama itu di lembar, maka prosedur ini akan membuatnya

Pengkodeannya cukup sederhana, saya akan menggunakan beberapa pelajaran dari posting sebelumnya untuk menghasilkan daftar unik. Data dalam contoh ini akan didasarkan pada kolom M. Kode akan menggunakan filter lanjutan untuk melihat kolom M dan mengisolasi semua entri unik. Ini akan menerapkan entri-entri ini ke array kemudian mengulang melalui array untuk membuat lembar baru untuk setiap entri unik. Saya menggunakan teknik Evaluasi untuk menentukan apakah lembar itu ada. Jika tidak ada akan dibuatkan sheet baru dengan nama yang unik

Berikut adalah prosedur untuk membuat sheet baru dengan data yang berhubungan dengan sheet tersebut dari master worksheet.  

METODE 2. Sisipkan beberapa lembar kerja Excel setelah lembar tertentu menggunakan opsi lembar

UNGGUL

Pilih beberapa lembar, termasuk lembar di sebelah kanan lembar yang ingin Anda sisipkan lembar kerja baru > Klik kanan lembar di sebelah kanan lembar yang ingin Anda sisipkan lembar kerja baru > Sisipkan > Lembar Kerja > OK

METODE 1. Sisipkan beberapa lembar kerja Excel setelah lembar kerja tertentu menggunakan VBA

VBA

Sub Insert_Multiple_Worksheets_After_a_Specific_Worksheet()

'masukkan tiga lembar kerja baru setelah lembar kerja Data
Lembar kerja. Tambahkan Setelah. =Lembar Kerja("Data"), Hitung. =3
'3 di Hitungan. =3 mewakili jumlah lembar kerja baru yang akan disisipkan
'ganti nomor Hitungan dengan jumlah lembar kerja baru yang ingin Anda sisipkan

Akhir Sub

BENDA
Lembar kerja. Objek Lembar Kerja mewakili semua lembar kerja dalam buku kerja, tidak termasuk lembar bagan

PRASYARAT
Nama Lembar Kerja. Memiliki lembar kerja bernama Data

PARAMETER YANG DAPAT DISESUAIKAN
Jumlah Lembar Kerja Baru untuk Disisipkan. Pilih jumlah lembar kerja baru yang ingin Anda sisipkan, setelah lembar kerja tertentu, dengan mengganti nomor Hitungan. Dalam contoh ini kami memasukkan tiga lembar kerja baru, setelah lembar kerja Data, dan langsung memasukkan kode VBA jumlah lembar kerja baru yang akan dimasukkan
Seleksi Lembar Kerja. Pilih lembar kerja yang ingin Anda sisipkan lembar kerja baru dengan mengubah nama lembar kerja Data di kode VBA ke lembar kerja apa pun di buku kerja

METODE 2. Sisipkan beberapa lembar kerja Excel setelah lembar tertentu menggunakan VBA

VBA

Sub Insert_Multiple_Worksheets_After_a_Specific_Sheet()

'masukkan tiga lembar kerja baru setelah lembar Data
Seprai. Tambahkan Setelah. =Lembar("Data"), Hitung. =3
'3 di Hitungan. =3 mewakili jumlah lembar kerja baru yang akan disisipkan
'ganti nomor Hitungan dengan jumlah lembar kerja baru yang ingin Anda sisipkan

Akhir Sub

BENDA
Seprai. Objek Lembar mewakili semua lembar dalam buku kerja, termasuk lembar kerja dan lembar bagan

PRASYARAT
Nama Lembar. Memiliki lembar bernama Data

PARAMETER YANG DAPAT DISESUAIKAN
Jumlah Lembar Kerja Baru untuk Disisipkan. Pilih jumlah lembar kerja baru yang ingin Anda sisipkan, setelah lembar tertentu, dengan mengganti nomor Hitungan. Dalam contoh ini kami memasukkan tiga lembar kerja baru, setelah lembar kerja Data, dan langsung memasukkan kode VBA jumlah lembar kerja baru yang akan dimasukkan
Seleksi Lembar. Pilih lembar yang ingin Anda sisipkan lembar kerja baru dengan mengubah nama Lembar data di kode VBA ke lembar mana pun di buku kerja

METODE 3. Sisipkan beberapa lembar kerja Excel setelah lembar kerja tertentu dari daftar menggunakan VBA

VBA

Sub Insert_Multiple_Worksheets_After_a_Specific_Worksheet()

'tetapkan nama lembar kerja ke wsName yang akan mewakili lembar kerja setelah lembar kerja baru akan dimasukkan
Untuk Setiap wsName Dalam Lembar Kerja("Parameter"). Rentang("C2")

'masukkan tiga lembar kerja baru setelah lembar kerja yang ditugaskan ke wsName
Lembar kerja. Tambahkan Setelah. =Lembar Kerja(wsName. Nilai), Hitung. =3
'3 di Hitungan. =3 mewakili jumlah lembar kerja baru yang akan disisipkan
'ganti nomor Hitungan dengan jumlah lembar kerja baru yang ingin Anda sisipkan

Lanjut

Akhir Sub

BENDA
Lembar kerja. Objek Lembar Kerja mewakili semua lembar kerja dalam buku kerja, tidak termasuk lembar bagan
Jangkauan. Objek Rentang adalah representasi dari satu sel atau rentang sel dalam lembar kerja

PRASYARAT
Nama Lembar Kerja. Memiliki lembar kerja bernama Parameter
Seleksi Lembar Kerja. Sel C2 di lembar kerja Parameter perlu diisi dengan nama lembar kerja setelah itu Anda ingin memasukkan lembar kerja baru

PARAMETER YANG DAPAT DISESUAIKAN
Jumlah Lembar Kerja Baru untuk Disisipkan. Pilih jumlah lembar kerja baru yang ingin Anda sisipkan dengan mengganti nomor Hitungan
Seleksi Lembar Kerja. Pilih lembar kerja yang ingin Anda sisipkan lembar kerja baru dengan mengubah nama Lembar data di kode VBA ke lembar apa pun di buku kerja

CATATAN TAMBAHAN
Catatan 1. Objek Worksheets juga bisa diganti dengan objek Sheets yang serupa dengan yang ditampilkan di Metode 2

METODE 4. Sisipkan beberapa lembar kerja Excel setelah lembar tertentu dengan merujuk ke sel menggunakan VBA

VBA

Sub Insert_Multiple_Worksheets_After_a_Specific_Worksheet()

'deklarasikan variabel
Dim ws Sebagai Worksheet

Atur ws = Lembar Kerja("Parameter")

'masukkan lembar kerja baru setelah lembar menggunakan referensi sel yang menangkap nilai yang mewakili jumlah lembar kerja baru yang akan disisipkan
Lembar kerja. Tambahkan Setelah. =Lembar Kerja("Data"), Hitung. =ws. Rentang("A1"). Nilai
'contoh ini mengasumsikan bahwa sel ("A1") di lembar kerja Parameter memiliki nilai yang mewakili jumlah lembar kerja baru yang akan disisipkan

Lanjut

Akhir Sub

BENDA
Lembar kerja. Objek Lembar Kerja mewakili semua lembar kerja dalam buku kerja, tidak termasuk lembar bagan
Jangkauan. Objek Rentang adalah representasi dari satu sel atau rentang sel dalam lembar kerja

PRASYARAT
Nama Lembar Kerja. Memiliki dua lembar kerja bernama Parameter dan Data
Jumlah Lembar Kerja Minimal. Memiliki setidaknya dua lembar kerja, bernama Parameter dan Data
Jumlah Lembar Kerja Baru untuk Disisipkan. Miliki nilai yang mewakili jumlah lembar kerja baru yang akan disisipkan yang ditangkap dalam sel ("A1") di lembar kerja Parameter. Menggunakan metode ini akan memungkinkan cara yang lebih dinamis untuk mengubah jumlah lembar kerja baru yang akan disisipkan

PARAMETER YANG DAPAT DISESUAIKAN
Jumlah Lembar Kerja Baru untuk Disisipkan. Pilih jumlah lembar kerja baru yang ingin Anda sisipkan dengan mengubah angka di sel ("A1") di lembar kerja Parameter. Anda juga dapat mengubah referensi sel dan lembar kerja dalam kode VBA ke sel dan lembar kerja apa pun dalam buku kerja yang tidak bertentangan dengan kode VBA
Seleksi Lembar Kerja. Pilih lembar kerja tempat Anda memegang nama lembar setelah itu Anda ingin memasukkan lembar kerja baru dengan mengubah nama lembar kerja Data dalam kode VBA

CATATAN TAMBAHAN
Catatan 1. Metodologi referensi ke sel yang menangkap nilai yang mewakili jumlah lembar kerja baru untuk disisipkan juga dapat diterapkan terhadap Metode 1 dan 3

Sisipkan beberapa lembar kerja setelah lembar tertentu menggunakan Pintasan

JALAN PINTAS

PINTASAN WINDOWS

Menggeser

F11

CATATAN
Untuk menyisipkan beberapa lembar kerja setelah lembar tertentu menggunakan pintasan ini, Anda harus memilih jumlah lembar kerja baru yang ingin Anda sisipkan setelah lembar yang ingin Anda sisipkan lembar kerja baru dan kemudian melakukan pintasan
Metode ini tidak akan berfungsi jika tidak ada cukup lembar kerja setelah lembar yang ingin Anda sisipkan lembar kerja baru. Misalnya, jika buku kerja memiliki jumlah total tiga lembar kerja dan Anda ingin menyisipkan empat lembar kerja baru setelah lembar kerja kedua, Anda tidak akan dapat melakukannya karena hanya ada satu lembar kerja yang dapat Anda pilih setelah lembar kerja kedua. Oleh karena itu, Anda hanya dapat menyisipkan satu lembar kerja setelah lembar kerja kedua dengan menggunakan metode ini

Penjelasan tentang cara menyisipkan beberapa lembar kerja setelah lembar tertentu

PENJELASAN

PENJELASAN
Tutorial ini menjelaskan dan memberikan petunjuk langkah demi langkah tentang cara menyisipkan beberapa lembar kerja setelah lembar tertentu menggunakan metode Excel, VBA, dan Pintasan

Metode Excel. Menggunakan Excel, Anda dapat menyisipkan beberapa lembar kerja setelah lembar tertentu dengan opsi pita atau lembar

Metode VBA. Menggunakan VBA Anda bisa menyisipkan beberapa lembar kerja setelah lembar tertentu dengan merujuk ke objek Lembar Kerja atau Lembar

Anda juga dapat memasukkan nama lembar, setelah itu Anda ingin memasukkan lembar kerja baru, langsung ke kode VBA atau referensi ke sel yang berisi nama lembar, setelah itu Anda ingin memasukkan lembar kerja baru.

Selain itu, Anda juga dapat langsung memasukkan kode VBA jumlah lembar kerja yang ingin Anda sisipkan atau merujuk ke sel yang berisi nilai yang mewakili jumlah lembar kerja baru yang ingin Anda sisipkan.

Ini adalah preferensi kami untuk menerapkan metode selanjutnya (referensi sel) karena menawarkan kemampuan untuk mengubah jumlah lembar kerja yang akan disisipkan hanya dengan mengubah nilai yang ada di sel yang direferensikan dalam kode VBA, daripada harus langsung

Metode Pintasan. Menggunakan Pintasan Anda dapat menyisipkan beberapa lembar kerja setelah lembar tertentu dengan memilih jumlah lembar kerja baru yang ingin Anda sisipkan setelah lembar yang ingin Anda sisipkan lembar kerja baru dan menjalankan pintasan

CATATAN TAMBAHAN
Catatan 1. Menggunakan opsi pita atau lembar, lembar kerja baru akan disisipkan di depan lembar aktif

Bagaimana cara membuat banyak lembar di Excel VBA?

Bagaimana cara membuat beberapa lembar Excel sekaligus?

Bagaimana cara membuat beberapa lembar kerja?

Bagaimana cara membuat lembar kerja baru di makro VBA?