Terbaru...!! Membuat Sheet Baru dengan Macro Excel

Yatna Supriyatna

Senin, 07 November 2016

Iklan Adsense

Gimana seh cara membuat worksheet baru dengan menggunakan macro? Kayaknya keren deh jika kita bisa membuat worksheet baru atau menambahkan worksheet baru menggunakan macro. Sebenarnya aku telah membahas gimana cara membuat worksheet baru menggunakan macro, namun aku akan mencoba dengan cara lain yaitu menggunakan tombol atau command button pada control.

Oke bro langsung aja aku kasih gambaran neh skrinshut tombol yang sudah aku buat pada worksheet "Sheet1"

Nah, maksudnya begini ketika sobat klik tombol "Buat Sheet" maka sheet baru akan dibuat diakhir worksheet yang ada. Misalnya aku buat worksheet baru dengan nama "WorksheetBaru" maka nama tersebut akan dibuat otomatis diakhir sheet yang ada. Berikut tampilan worksheet yang berhasil aku buat agar sobat mudah untuk memahaminya.

Setelah nama worksheet "Sheet1", "Sheet2", dan "Sheet3" maka paling kanan adalah "WorksheetBaru" sheet tersebut dibuat dengan hanya menekan tombol "Buat Worksheet" dan hal ini beda dengan cara membuat worksheet baru biasa yaitu dengan klik kanan pada worksheet kemudian pilih new.

Baca:
cara Menambahkan Sheet Baru dan Memberi Nama

Coding VBA untuk membuat worksheet Baru

Untuk bisa membuat worksheet baru dengan nama yang telah ditentukan oleh sobat maka sobat musti membuat sedikit coding dan fungsi dari coding ini akan memerintahkan pembuatan sheet baru. Lalu seperti apa coding buat sheet baru tersebut?

Berikut tampilannya

Sub Button1_Click()
BuatSheet
End Sub

Private Sub BuatSheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = "WorksheetBaru"
End Sub

Sub Button1_Click() merupakan fungsi dimana ketika sobat mengklik tombol Button1 yang telah diganti namanya menjadi "Buat Sheet" maka module sub "BuatSheet" akan dijalankan.

Berikut contoh macro lain untuk membuat sheet baru

Private Sub BuatSheetBaru()
    Dim ws As Worksheet
    With ThisWorkbook
        Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count))
        ws.Name = "WorksheetBaru"
    End With
End Sub

Setelah sobat membuat coding diatas maka silakan coba jalankan dengan mengklik tombol "Buat Sheet" maka secara otomatis nama sheet baru dengan nama "WorksheetBaru" akan dibuat pada sebelah kanan nama sheet yang lain.

Oke, aku kira itulah tulisan sedikit yang bisa aku tuliskan di blog macro excel ini, semoga bermanfaat dan selamat mencoba deh semoga ajah berhasil. Lalu gimana jika sobat tidak berhasil? silakan curat coret di kolom komentar paling bawah artikel ini.

Iklan Adsense

Labels: Worksheet

Thanks for reading Terbaru...!! Membuat Sheet Baru dengan Macro Excel. Please share...!