Bagaimana menciptakan sheet gres memakai VBA? Seperti apa juga Script VBA yang harus dituliskan untuk menciptakan sheet baru? Kali ini aku akan banyak sekali goresan pena cara menciptakan sheet gres dengan memakai tombol CommandButton.
TAHAP 1
Langkah pertama ialah silakan buat sebuah Worksheet baru, aku yakin Anda sudah tahu caranya. Kemudian silakan buat satu buah CommandButton dengan cara klik hidangan Developer kemudian pilih Insert
TAHAP 2
Setelah CommandButton dibentuk silakan ganti teks "CommandButton1" menjadi goresan pena "Buat Sheet" Jika terjadi muncul jendela View Macro abaikan saja. Kemudian untuk menulis script VBA buat sheet silakan masuk ke VBA editor dengan cara menekan tombol combinasi ALT+F11 kemudian buat satu buah module
TAHAP 3
Setelah modul dibentuk silakan ketikan script VBA dibawah ini pada Module1
Sub BuatSheetBaru()
Dim ws As Worksheet
Dim NamaSheetBaru As String
NamaSheetBaru = "SheetBaru" 'Nama sheet baru
For Each ws In Worksheets
If ws.Name = NamaSheetBaru Or NamaSheetBaru = "" Or _
IsNumeric(NamaSheetBaru) Then
MsgBox "Sheet '" & NamaSheetBaru & "' Sudah ada", vbInformation
Exit Sub
End If
Next
Sheets.Add Type:="Worksheet"
With ActiveSheet 'Berpindah ke sheet terakhir
.Move After:=Worksheets(Worksheets.Count)
.Name = NamaSheetBaru
End With
End Sub
TAHAP 5
Langkah ke-5 silakan masuk kembali ke jendela Worksheet kemudian klik kanan pada tombol Buat Sheet kemudian silakan pilih Asign Macro Anda akan melihat sebuah jendela Asign Macro kemudian pilih BuatSheetBaru
TAHAP 6
Tahap 6 ini merupakan tahap terakhir untuk menguji apakah VBA yang diketikan sudah benar dan berhasil? Jika berhasil maka apabila di klik tombol "Buat Sheet" maka sheet gres akan muncul dengan nama SheetBaru pada selesai Sheet.
Berhasil.
Sebuah sheet gres telah berhasil dibentuk dengan ditunjukan oleh anak panah warna hijau pada gambar diatas. Jika tidak berhasil silakan komentar dibawah.
Selamat mencoba...! Sumber http://www.excel-id.com/