VBA Excel Cara Menambah Sheet Otomatis

Cara Membuat Sheet Baru Secara Otomatis Menggunakan VBA Excel

Lakukan langkah-langkah dibawah ini :

1. Buka excel Anda
2. Simpan dengan nama Menambah Sheet Baru Secara Otomatis
3. Pilih type Excel Binary Workbook (.xlsb)
4. Buatlah 1 buah Commandbutton ActiveX Control
5. Klik 2x Tombol ActiveX Control tersebut maka Anda akan dibawa ke jendela VBA Editor excel
6. Masukan Kode Macro diabwah ini

Dim buatsheet As Integer, sheetbaru As Integer
buatsheet = InputBox( _
"Mau berapa banyak?", _
"Tambah Sheet Baru")
For sheetbaru = 1 To buatsheet
Worksheets.Add
Next sheetbaru

7. Kembali ke workbook excel
8. Klik Design Mode supaya Tombol ActiveX Control bisa di klik
9. Sekarang klik Tombol ActiveX Control maka akan tampil Kotak Dialog seperti dibawah ini

10. Isi dengan angka 1, kemudian klik (OK) maka Sheet akan bertambah sesuai dengan angka yang Anda inputkan pada kotak dialog tersebut
11. Selesai

Penjelasan VBA Excel Menambah Sheet Otomatis Di Excel

Menentukan Variabel

Dim buatsheet As Integer, sheetbaru As Integer

Buat Variabel Menjadi Kotak Dialog

buatsheet = InputBox( _

Banyaknya Sheet Yang Ingin Di Tambahkan

"Mau berapa banyak?", _
"Tambah Sheet Baru")

Gunakan metode For

For sheetbaru = 1 To buatsheet

Masukkan perintah yang akan diulangi

Worksheets.Add
Next sheetbaru

File Penerapan

Kami juga memikirkan pemahaman dari semua pengunjung, sehingga selain artikel, kami juga memberikan file penerapan untuk pemahaman mendalam.

Nama File	VBA Excel Cara Menambah Sheet Otomatis Di Excel
Extensi	.xlsb
Size	18 kb
Berkas

Terimakasih sudah berkunjung :)

Bantu kami meningkatkan kualitas blog ini dengan mengisi survei 1 menit.

©2017| dolananexcel

Share :