Artikel ini memberikan jawaban atas pertanyaan Anda tentang cara menambahkan lembar dengan nama di Excel VBA Jika Anda mencari jenis trik unik seperti itu, Anda datang ke tempat yang tepat. Di sini, kita akan membahas 6 mudah & amp; cara yang terbukti untuk menambahkan lembar dengan nama di Excel VBA .

Unduh Buku Kerja Praktik

Anda dapat mengunduh buku kerja Excel berikut ini untuk pemahaman yang lebih baik dan mempraktikkannya sendiri.

Kode VBA untuk Menambahkan Sheet dengan Nama

Kita akan menggunakan Lembar objek untuk menambahkan lembar di Excel. VBA kode untuk menambahkan sheet dengan nama seperti di bawah ini.

Sebelum: Ini opsional. Ini menambahkan lembar baru sebelum lembar tertentu.

Setelah itu: Ini juga opsional. Ini menambahkan lembar baru setelah lembar tertentu.

Hitung: Ini juga merupakan parameter opsional, yang mengindikasikan jumlah lembar yang akan ditambahkan.

Jenis: Ini juga opsional. Ini menentukan jenis lembar. Di sini, nilai defaultnya adalah xlLLembar kerja .

6 Cara Berbeda untuk Menambahkan Lembar dengan Nama di Excel VBA

Di Excel, kita bisa menambahkan sheet baru dengan perintah add ⊕ Pernahkah Anda berpikir untuk mengotomatiskan tugas yang sama di Excel? Jangan pikirkan lagi, karena VBA telah Anda liput.

Di sini kita memiliki lembar kerja bernama Laporan Penjualan Ini berisi Laporan Penjualan Harian dari kafetaria tertentu. Dalam kolom B , C dan D , ada nama-nama Perwakilan Penjualan , Barang-barang dan Kuantitas masing-masing.

Di sini, kita akan menambahkan sheet lain dalam buku kerja ini dengan bantuan Makro VBA .

Di sini, kami telah menggunakan Microsoft Excel 365 Anda dapat menggunakan versi lain sesuai dengan kenyamanan Anda.

1. Menambahkan Lembar dengan Nama di Excel VBA

Dalam metode pertama kita, kita akan menambahkan sheet dengan nama dari masukan pengguna Jika Anda penasaran untuk belajar, ikuti langkah-langkah sederhana ini.

📌 Langkah-langkah:

• Pada awalnya, masuk ke Pengembang tab.
• Kedua, pilih Visual Basic pada Kode kelompok.
• Atau, tekan ALT + F11 untuk melakukan tugas yang sama.

Catatan: Pastikan untuk menekan tombol ALT di sebelah kiri tombol SPACEBAR Operasi tidak akan dieksekusi jika Anda menggunakan ALT kunci.

• Seketika itu juga Microsoft Visual Basic untuk Aplikasi jendela terbuka.
• Kemudian, pindah ke Sisipkan tab.
• Kemudian, pilih Modul dari opsi.

• Saat ini, ia membuka kode Modul .
• Setelah itu, tulis kode berikut ini di dalam Modul .

 Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Please enter sheet name ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub 

Perincian Kode

• Pertama, kita memanggil prosedur Sub sebagai Tambahkan_Lembar_dengan_Nama .
• Kemudian, kita mendefinisikan tipe-tipe variabel.
• Kemudian, kami menambahkan Pada Kesalahan Lanjutkan Berikutnya Ini akan mengabaikan kesalahan apa pun.
• Setelah itu, kami menggunakan Kotak Masukan untuk mendapatkan nama sheet dari pengguna. Selain itu, kami juga menyimpan string teks dari Kotak Masukan ke dalam sheet_name variabel.
• Selanjutnya, jika sheet_name kosong, maka kode tidak akan dilanjutkan.
• Akhirnya, kita menggunakan Tambah.Nama untuk menamai sheet yang baru dibuat. Di sini, nama akan sama dengan nama sheet_name variabel.

• Pada saat ini, tekan tombol Lari (⏵) Sebaliknya, Anda dapat menekan F5 pada keyboard Anda.

• Tiba-tiba, ia membuka kotak input.
• Di sini, masukkan nama sheet baru. Dalam kasus ini, kita menulis Keuntungan di dalam kotak.
• Kemudian, klik OK .

• Jadi, kode kita akan mengeksekusi, dan akan menambahkan sheet bernama Keuntungan .

Catatan: Kita belum menyebutkan tempat untuk sheet kita. Secara default, ia ditempatkan sebelum sheet aktif.

Baca selengkapnya: Excel VBA untuk Menambahkan Lembar ke Buku Kerja Lain (3 Contoh Praktis)

2. Menerapkan VBA Excel untuk Menambahkan Sheet dengan Nama Sebelum Sheet Tertentu

Dalam metode kedua kita, kita akan menambahkan sheet dengan nama sebelum sheet tertentu. Mari kita jelajahi prosesnya langkah demi langkah.

📌 Langkah-langkah:

• Pertama, memunculkan kode Modul jendela seperti yang ditunjukkan dalam Metode 1 .
• Kedua, tulis kode berikut ke dalam itu.

 Sub Tambah_Sheet_Sebelum_Lembar_Khusus() Lembar_Kerja("Laporan_Penjualan").Aktifkan Lembar_Kerja.Add(Sebelum:=Lembar_Kerja("Laba")).Name = "Neraca" End Sub 

Perincian Kode

• Pertama, kita memanggil prosedur Sub sebagai Tambahkan_Lembar_Sebelum_Lembar_Spesifik .
• Kemudian, kita mengaktifkan Laporan Penjualan Ini akan memastikan kode akan berjalan jika kita berada di sheet lain.
• Berikutnya, kita menggunakan Tambah.Nama untuk menamai sheet yang baru dibuat. Sheet ini akan dibuat sebelum sheet yang disebut Keuntungan dari buku kerja. Selain itu, kami telah menamai sheet sebagai Neraca .

• Setelah itu, jalankan kode seperti yang ditunjukkan dalam Metode 1 .
• Dengan demikian, ini akan menambahkan lembar baru Neraca sebelum lembar bernama Keuntungan .

Baca selengkapnya: Excel VBA untuk Menambahkan Sheet dengan Nama Variabel (5 Contoh Ideal)

3. Menggunakan Excel VBA untuk Menambahkan Sheet dengan Nama Setelah Sheet Tertentu

Dalam metode ini, kita akan menambahkan sheet setelah sheet bernama Keuntungan Mari kita lihat prosesnya secara detail.

📌 Langkah-langkah:

• Pada awalnya, memunculkan kode Modul jendela seperti yang ditunjukkan dalam Metode 1 .
• Setelah itu, tuliskan kode berikut ke dalamnya.

 Sub Tambah_Sheet_Setelah_Lembar_Khusus() Lembar_Kerja("Laba").Aktifkan Lembar_Kerja.Add(Setelah:=Lembar_Khusus).Nama = "Gudang" End Sub 

Kode ini hampir mirip dengan kode Metode 2 Hanya saja, di sini kita menggunakan parameter Setelah daripada Sebelum Karena kita ingin menambahkan sheet baru yang menggantikan sheet tertentu.

• Setelah itu, jalankan kode seperti yang ditunjukkan dalam Metode 1 .
• Dengan demikian, ini akan menambahkan lembar baru Gudang setelah lembar bernama Keuntungan .

Baca selengkapnya: Excel VBA untuk Menambahkan Lembar Jika Tidak Ada (dengan Langkah Cepat)

4. Menyisipkan Sheet dengan Nama di Awal Buku Kerja

Di bagian ini, kita akan menyisipkan lembar baru di awal buku kerja di Excel menggunakan VBA Jadi, tanpa penundaan lebih lanjut, mari kita lihat bagaimana kita melakukannya.

📌 Langkah-langkah:

• Awalnya, memunculkan kode Modul jendela seperti yang ditunjukkan dalam Metode 1 .
• Setelah itu, tulis kode berikut ke dalam kode tersebut.

 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Company Profile" End Sub 

Di sini, kita menambahkan lembar kerja baru sebelum lembar pertama buku kerja. Itu berarti di awal buku kerja. Hasilnya, ini adalah lembar pertama sekarang. Juga, kami menamai lembar tersebut Profil Perusahaan .

• Kemudian, jalankan kode seperti yang ditunjukkan dalam Metode 1 .
• Oleh karena itu, ia akan menambahkan sheet baru Profil Perusahaan di awal buku kerja.

Baca selengkapnya: Makro Excel: Membuat Sheet Baru dan Mengganti Nama (3 Contoh Ideal)

5. Memanfaatkan VBA Excel untuk Menambahkan Sheet di Akhir Buku Kerja

Pada bagian ini, kita akan menambahkan lembar setelah lembar terakhir buku kerja Izinkan saya mendemonstrasikan proses di bawah ini.

📌 Langkah-langkah:

• Terutama, buka kode Modul jendela seperti yang ditunjukkan dalam Metode 1 .
• Kedua, tempelkan kode berikut ke dalam itu.

 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Income Statement" End Sub 

Perincian Kode

• Pertama, kita memanggil prosedur Sub sebagai Sheet_End_Workbook.
• Berikutnya, kita menggunakan Tambah.Nama untuk menamai sheet yang baru dibuat. Kita akan membuat sheet ini setelah sheet terakhir dari workbook. Kita bisa mendapatkan nomor sheet terakhir dari Spreadsheet.Count Selain itu, kita telah menamai sheet Laporan Laba Rugi .

• Setelah itu, jalankan kode seperti yang ditunjukkan dalam Metode 1 .
• Oleh karena itu, ia akan menambahkan sheet baru Laporan Laba Rugi di akhir buku kerja.

Baca selengkapnya: Buat Buku Kerja Baru dan Simpan Menggunakan VBA di Excel

6. Memperkenalkan Beberapa Lembar Menggunakan Nilai Sel dengan Excel VBA

Untuk metode terakhir, kami akan menambahkan beberapa lembar di buku kerja dengan nama dari rentang sel menggunakan Excel VBA Selain itu, kita akan meminta input range kepada pengguna untuk mengambil nama. Jadi, mari kita lihat langkah-langkah di bawah ini.

📌 Langkah-langkah:

• Pertama-tama, buka kode Modul jendela seperti yang ditunjukkan dalam Metode 1 .
• Setelah itu, salin kode berikut dan tempelkan ke dalamnya.

 Sub Add_Multiple_Sheets_Using_Cell_Value() Dim rng As Range Dim cc As Range Set rng = Application.InputBox("Select Cell Range" _ & " to Insert Sheets", "ExcelWIKI", Type:=8) Application.ScreenUpdating = False Worksheets("Sales Report").Activate For Each cc In rng Sheets.Add(After:=ActiveSheet).Name = cc.Value Next cc Application.ScreenUpdating = True End Sub 

Perincian Kode

• Pertama, kita memanggil prosedur Sub sebagai Add_Multiple_Sheets_Using_Cell_Value.
• Kemudian, kita mendefinisikan tipe-tipe variabel.
• Setelah itu, kami menggunakan Kotak Masukan untuk mendapatkan rentang data dari pengguna.
• Keempat, kita mengaktifkan lembar Laporan Penjualan .
• Kemudian, kita menggunakan Untuk Setiap Berikutnya loop untuk menelusuri rentang sel yang dipilih satu per satu.
• Berikutnya, kita menggunakan Tambah.Nama untuk menamai sheet yang baru dibuat. Kita akan membuat sheet ini setelah sheet aktif Laporan Penjualan dari buku kerja.

• Sekarang, jalankan kode seperti yang ditunjukkan dalam Metode 1 .
• Seketika itu juga Exceldemy kotak input terbuka.
• Kemudian, berikan sel-sel dalam B5:B9 kisaran di dalam kotak.
• Terakhir, klik OK .

• Akhirnya, ia akan menyisipkan lima lembar yang dinamai sesuai dengan nilai sel dalam B5:B9 kisaran. Mereka semua setelah lembar Laporan Penjualan .

Kesimpulan

Artikel ini memberikan solusi mudah dan singkat untuk menambahkan lembar dengan nama oleh Excel VBA Jangan lupa untuk mengunduh Praktek Terima kasih telah membaca artikel ini, kami harap ini bermanfaat. Harap beri tahu kami di bagian komentar jika Anda memiliki pertanyaan atau saran. Silakan kunjungi situs web kami Exceldemy untuk menjelajahi lebih jauh.