Cara Menambah Sheet Secara Otomatis dengan Macro VBA


Saat kita Membuka File Excel, biasanya sudah disediakan dengan 3 buah worksheet sheet 1, sheet 2 dan Sheet 3. Jika dirasa masih kurang, kit juga bisa menambah sheet sebanyak yang kita mau dengan cara klik kanan pada Tabs Sheet dan pilih Add Sheet. Untuk menambah satu atau dua sheet mungkin hal ini tidak akan menjadi masalah karena masih bisa kita lakukan dengan cara diatas. Pertanyaanya adalah, bagaimana jika kita ingin menambah sheet yang sangat banyak secara sekaligus.

Untuk menambah sheet secara otomatis atau menambah sheet yang banyak secara sekaligus, kita tidak menggunakan klik kanan dan addsheet, karena pastinya tangan kita akan pegal dan juga membutuhkan waktu. Alternatifnya adalah kita bisa menggunakan macro, dan biarkan Macro yang menangani semuanya.

Menambah Sheet secara Otomatis dengan Macro

Untuk menambah sheet dengan jumlah yang bisa kita tentukan dengan macro, tentunya kita membutuhkan tombol untuk mengeksekusi aksi ini. Jadi pada tahap pertama, siapkan tombol bisa menggunakan Button yang ada di Menu developer atau juga bisa menggunakan Shapes. Jika menggunakan Shapes, klik kanan pada Shapes dan pilih Assign Macro

Setelah Jendela Assign Macro terbuka, klik New. Dan setelah klik New Visual Basic Editor Akan Terbuka.

Di Visual Basic Editor biasanya sudah digenerate Nama Sub dengan Nama Shape nya seperti ini

Sub RoundedRectangle1_Click()

End Sub

Untuk Menambkan script untuk menambah sheet secara otomatis buat script Menjadi Seperti ini

Sub RoundedRectangle1_Click()
Dim I As Integer, JmlSheet As Integer

JmlSheet = InputBox("Berapa Jumlah Sheet yang ingin dibuat?", "Tambah Sheet")
For I = 1 To JmlSheet
    Worksheets.Add
Next I
End Sub

Penjelasan Kode :

Dim I As Integer, JmlSheet As Integer

Deklarasikan Variable I dan juga JmlSheet sebagai Integer (Bilangan Bulat) yang nantinya akan kita gunakan subrutine ini

JmlSheet = InputBox("Berapa Jumlah Sheet yang ingin dibuat?", "Tambah Sheet")

Isi JmlSheet dengan InputBox, Inputbox adalah Popup box yang muncul dan meminta user untuk menginput Jml Sheet yang ingin ditambah

For I = 1 To JmlSheet
     
Next I

Ini adalah Pengulangan dari 1 sampai degan JmlSheet yang diinputkan oleh User pada InputBox

Worksheets.Add

Perintah Untuk menambahkan Sheet

Jadi perintah diatas bisa kita simpulkan, user melakukan input dengan Inputbox untuk Jumlah Sheet yang akan ditambahkan kemudian dari jumlah tersebut dilakukan pengulangan sebanyak jumlah sheet dengan isi kode dalam pengulangan adalah Worksheets.Add .

Jika dirasa Artikel ini kurang membantu, artikel ini juga bisa dilihat melalui Video di YouTube di Channel ExcelNoob.

Comments

Leave a Reply

Your email address will not be published. Required fields are marked *