Tambah Beberapa Worksheet

VBA 39.jpg

Halo sahabat-sahabat berkreasi kali ini admin akan berbagi Bagaimana menambahkan beberapa worksheet atau banyak waktu secara cepat.

Misalkan kita mau bekerja dengan excel dengan menambahkan 50 worksheet maka dengan rumus ini kita akan dapat membuat 50 worksheet dalam hitungan tidak sampai 1 detik.

Kode ini akan sangat berguna bagi kita yang memang sering bekerja menggunakan banyak worksheet.

Berikut kode yang kita gunakan untuk membuat banyak worksheet sekaligus

Sub TambahBeberapaWorksheet()
    Dim i As Integer
    i = InputBox("Enter number of sheets to insert.", "Enter Multiple Sheets")
    Sheets.Add After:=ActiveSheet, Count:=i
End Sub

Download File Contoh

zip.png VBA 39 Tambah Beberapa Worksheet - OK.zip

 

Semoga bermanfaat,

Salam ALMaS.

 

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Pens Sky Venture - Sukolilo Surabaya

Karangrejo Tmur 17 Surabaya

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
                               Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
WA : 085 331 270 386 im3 (CS / Ali)

Pembayaran Via Transfer :

bni.jpg
Bank BNI
No.rek. 0865254338
Atas nama BERKREASI MULTITECH. CV

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH

TIM PENGEMBANG

Dr. Nugroho Eko Putro, M.Pd.
Iqbal F. Rakhmat, SE., MM., M.Kom, CPISM, MCE
Budi Prasetya, ST., MM.
Amien sawedi, S.Pd.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.
Ali Ishaq, M.Pd.