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

Hugh West

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

Excel VBA adalah alat yang ampuh dan berguna untuk melakukan tugas dengan cukup cepat dalam jumlah massal. Anda dapat menerapkan beberapa kondisi dan mendapatkan hasil yang berbeda berdasarkan kondisi individu melalui VBA. Sekarang, terkadang, Anda mungkin ingin memeriksa apakah lembar tertentu ada di buku kerja Anda. Dan, jika tidak, Anda mungkin perlu membuat lembar itu. Pada artikel ini, saya akan menunjukkan kepada Anda semua langkah untuk tambahkan lembaran jika tidak ada, menggunakan Excel VBA.

Excel VBA: Tambahkan Sheet Jika Tidak Ada (Tampilan Cepat) 

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Sheet Mana Yang Anda Cari?", _ "Add Sheet If Not Exist", "Sheet5", , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & addSheetName & _ "'' sheet hastelah ditambahkan karena tidak ada.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "The ''" & addSheetName & _ "''sheet sudah ada di buku kerja ini.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub

Masukkan ke dalam modul baru untuk menerapkan kode di atas.

Unduh Buku Kerja Praktik

Anda bisa mengunduh buku kerja latihan kami dari sini secara gratis!

Tambahkan Sheet jika Tidak Ada.xlsm

Langkah-langkah Menerapkan Kode VBA untuk Menambahkan Lembar di Excel Jika Tidak Ada

Katakanlah, Anda memiliki buku kerja yang berisi 4 lembar kerja bernama Januari, Februari, Maret, dan April. Setiap lembar berisi laporan penjualan bulan berikutnya. Sekarang, Anda perlu menemukan beberapa lembar di buku kerja dan menambahkan lembar jika tidak ada. Anda dapat mengikuti panduan langkah demi langkah di bawah ini untuk menyelesaikannya.

📌 Langkah 1: Masukkan Modul Baru

Pertama, Anda perlu menyisipkan modul untuk menulis kode VBA.

  • Untuk melakukan ini, di awal, masuk ke bagian Pengembang tab>> Visual Basic alat.

  • Sebagai hasilnya, yang Microsoft Visual Basic untuk Aplikasi akan muncul.
  • Selanjutnya, buka Sisipkan tab>> Modul alat.

Dengan demikian, modul baru bernama Modul1 telah dibuat.

Baca selengkapnya: Cara Menambahkan Sheet dengan Nama di Excel VBA (6 Cara Mudah)

Bacaan Serupa

  • Buat Buku Kerja Baru dan Simpan Menggunakan VBA di Excel
  • Excel VBA: Buat Buku Kerja Baru dan Beri Nama (6 Contoh)
  • Cara Membuat Lembar Baru dari Template Menggunakan Makro di Excel

📌 Langkah 2: Tulis dan Simpan Kode VBA yang Diperlukan

Sekarang, Anda perlu menulis kode di dalam modul dan menyimpannya.

  • Untuk melakukan ini, klik pada Modul1 dan tulis kode berikut di jendela kode. 
 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Sheet Mana Yang Anda Cari?", _ "Add Sheet If Not Exist", "Sheet5", , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & addSheetName & _ "'' sheet hastelah ditambahkan karena tidak ada.", _ vbInformation, "Tambahkan Sheet Jika Tidak Ada" Else MsgBox "Sheet ''" & addSheetName & _ "''sheet sudah ada di buku kerja ini.", _ vbInformation, "Tambahkan Sheet Jika Tidak Ada" End If End If  Sub

  • Hasilnya, jendela kode akan terlihat seperti berikut ini.

🔎 Penjelasan Kode:

♣ Segmen 1: 

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String

Pada bagian ini, kita telah mendeklarasikan nama makro dan nama variabel.

♣ Segmen 2: 

 addSheetName = Application.InputBox("Sheet Mana yang Anda Cari?", _ "Add Sheet If Not Exist", "Sheet5", , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name

Pada bagian ini, kita telah membuat sebuah kotak input. Melalui kotak input ini, kita dapat mengambil input nama file yang ingin kita cari.

♣ Segmen 3: 

 If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "Sheet ''" & addSheetName & _ "''' telah ditambahkan karena tidak ada.", _ vbInformation, "Tambahkan Sheet Jika Tidak Ada"

Di bagian ini, kami memeriksa apakah lembar yang diperlukan ada di buku kerja. Jika tidak, itu akan membuat lembar yang diperlukan dan menunjukkan kepada kami pesan tentang perubahan ini.

♣ Segmen 4: 

 Else MsgBox "Lembar ''" & addSheetName & _ "''sheet sudah ada di buku kerja ini.", _ vbInformation, "Tambahkan Lembar Jika Tidak Ada" End If End Sub

Di bagian ini, kami telah bekerja dengan hasil jika lembar yang diperlukan sudah ada di buku kerja. Dalam skenario ini, kotak pesan lain akan muncul memberi tahu Anda bahwa lembar ini ada. Selanjutnya, di bagian ini, kami mengakhiri kode dengan benar.

  • Setelah itu, tekan Ctrl + S.

  • Selanjutnya, a Microsoft Excel akan muncul. Klik pada jendela Tidak tombol.

  • Sebagai hasilnya, yang Simpan sebagai akan muncul.
  • Setelah itu, pilih Simpan sebagai tipe: opsi sebagai .xlsm Selanjutnya, klik pada Simpan tombol.

Dengan demikian, Anda telah menulis dan menyimpan kode yang diperlukan.

Catatan:

Anda harus menyimpan buku kerja Excel di .xlsm Jika tidak, makro tidak akan diaktifkan dan kodenya tidak akan berfungsi.

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

📌 Langkah 3: Jalankan Kode

Sekarang, Anda perlu menjalankan kode dan memeriksa hasilnya.

  • Untuk melakukan ini, pertama dan terutama, klik pada Lari ikon di Microsoft Visual Basic untuk Aplikasi jendela.

  • Sebagai hasilnya, yang Makro akan muncul.
  • Selanjutnya, pilih AddSheetIfNotExist makro dan klik pada Lari tombol.

  • Pada saat ini, kotak pesan yang kita buat bernama Tambahkan Lembar Jika Tidak Ada Di sini, opsi otomatis akan muncul. Sheet5 .

  • Sekarang, untuk memeriksa, tulis "April" dalam kotak teks dan klik pada tombol Baiklah tombol.

  • Selanjutnya, Anda akan melihat bahwa kotak pesan lain akan muncul dan memberi tahu Anda bahwa sheet sudah ada.
  • Klik pada Baiklah tombol.

  • Setelah itu, jalankan kode lagi dan tulis "Mei" dalam kotak teks dari kotak pesan yang dibuat. Selanjutnya, klik pada tombol OK tombol.

  • Akibatnya, Anda akan melihat kotak pesan lain yang akan muncul menginformasikan bahwa "Mei" sheet tidak ada dan karenanya menciptakan sheet ini.
  • Setelah itu, klik pada OK tombol.

Akhirnya, Anda dapat melihat bahwa Anda telah menambahkan sheet yang sebelumnya tidak ada. Dan, workbook akan terlihat seperti ini sekarang.

Baca selengkapnya: Excel VBA: Tambahkan Lembar Setelah Terakhir (3 Contoh Ideal)

Kesimpulan

Jadi, dalam artikel ini, saya telah menunjukkan kepada Anda semua langkah untuk menambahkan lembar jika tidak ada dengan Excel VBA. Bacalah artikel lengkapnya dengan cermat untuk memahaminya dengan lebih baik dan mencapai hasil yang Anda inginkan. Saya harap artikel ini bermanfaat dan informatif bagi Anda. Jika Anda memiliki pertanyaan atau rekomendasi lebih lanjut, jangan ragu untuk menghubungi saya.

Dan, kunjungi ExcelWIKI untuk lebih banyak artikel seperti ini. Terima kasih!

Postingan sebelumnya LOOKUP vs VLOOKUP Excel: Dengan 3 Contoh
Postingan berikutnya Tidak Dapat Menyalin Sel yang Digabungkan di Excel (4 Solusi)

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.