Cara menambahkan sheet baru di excel menggunakan vba

Anda bisa menggunakan metode berikut di VBA untuk menambahkan lembar baru ke buku kerja Excel:

Metode 1: Tambahkan lembar baru

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

Makro ini akan menambahkan lembar baru ke buku kerja dengan nama yang dibuat secara otomatis yang menjelaskan nomor lembar yang diwakilinya di buku kerja.

Misalnya, jika ada tiga lembar dalam buku kerja dan Anda menjalankan makro ini, lembar baru dengan nama Sheet4 akan dibuat.

Catatan : Secara default, VBA akan menambahkan sheet baru tepat sebelum sheet yang sedang aktif.

Metode 2: Tambahkan beberapa lembar baru

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

Makro ini akan menambahkan tiga lembar baru ke buku kerja.

Metode 3: Tambahkan lembar baru dengan nama

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

Makro ini akan menambahkan lembar baru ke buku kerja dengan nama MyNewSheet .

Metode 4: Tambahkan lembar baru dengan nama sebelum lembar tertentu

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

Makro ini akan menambahkan lembar baru ke buku kerja dengan nama MyNewSheet tepat sebelum lembar yang sudah ada bernama Teams .

Metode 5: Tambahkan lembar baru dengan nama setelah lembar tertentu

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

Makro ini akan menambahkan sheet baru ke buku kerja dengan nama MyNewSheet langsung setelah sheet yang sudah ada bernama Teams .

Metode 6: Tambahkan lembar baru dengan nama di akhir buku kerja

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

Makro ini akan menambahkan sheet baru ke buku kerja dengan nama MyNewSheet di bagian paling akhir buku kerja.

Metode 7: Tambahkan lembar baru dengan nama di awal buku kerja

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

Makro ini akan menambahkan sheet baru ke buku kerja dengan nama MyNewSheet di awal buku kerja.

Contoh berikut memperlihatkan cara menggunakan masing-masing metode dalam praktik dengan buku kerja Excel berikut dengan tiga lembar yang sudah ada:

Contoh 1: Tambahkan lembar baru

Kita bisa membuat makro berikut untuk menambahkan lembar baru ke buku kerja dengan nama yang dibuat secara otomatis:

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

Saat kita menjalankan makro ini, lembar baru ditambahkan ke buku kerja dengan nama Sheet4 tepat sebelum lembar Teams , yang telah kita pilih saat menjalankan makro:

Contoh 2: Tambahkan beberapa lembar baru

Kita bisa membuat makro berikut untuk menambahkan tiga lembar baru ke buku kerja dengan nama yang dibuat secara otomatis:

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

Saat kita menjalankan makro ini, tiga lembar baru ditambahkan ke buku kerja tepat sebelum lembar Teams , yang telah kita pilih saat menjalankan makro:

Contoh 3: Tambahkan sheet baru dengan nama

Kita bisa membuat makro berikut untuk menambahkan lembar baru ke buku kerja dengan nama tertentu:

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

Saat kita menjalankan makro ini, lembar baru bernama MyNewSheet ditambahkan ke buku kerja tepat sebelum lembar Teams , yang telah kita pilih saat menjalankan makro:

Contoh 4: Tambahkan sheet baru dengan nama sebelum sheet tertentu

Kita bisa membuat makro berikut untuk menambahkan lembar baru ke buku kerja langsung sebelum lembar tertentu yang sudah ada:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

Saat kita menjalankan makro ini, lembar baru bernama MyNewSheet ditambahkan ke buku kerja tepat sebelum lembar Teams :

Contoh 5: Tambahkan sheet baru dengan nama sheet tertentu

Kita bisa membuat makro berikut untuk menambahkan lembar baru ke buku kerja langsung setelah lembar tertentu yang sudah ada:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

Saat kita menjalankan makro ini, lembar baru bernama MyNewSheet ditambahkan ke buku kerja langsung setelah lembar Teams :

Contoh 6: Tambahkan lembar baru dengan nama di akhir buku kerja

Kita bisa membuat makro berikut untuk menambahkan lembar baru di bagian paling akhir buku kerja:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

Saat kita menjalankan makro ini, lembar baru bernama MyNewSheet ditambahkan di akhir buku kerja:

Contoh 7: Tambahkan lembar baru dengan nama di awal buku kerja

Kita bisa membuat makro berikut untuk menambahkan lembar baru di awal buku kerja:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

Saat kita menjalankan makro ini, lembar baru bernama MyNewSheet ditambahkan di awal buku kerja:

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode Sheets.Add di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menemukan baris yang terakhir digunakan
VBA: Cara menemukan kolom yang terakhir digunakan
VBA: Cara menghitung jumlah lembar dalam buku kerja