VBA Excel Pemula 9 : Cara Tambah, Mengubah, dan Menghapus Sheet Melalui UserForm

VBA Excel Pemula 9 : Cara Tambah, Mengubah, dan Menghapus Sheet - Perhatikan gambar gif dibawah..!!

Terlihat Sheet ditambahkan ketika tombol Add Sheet diklik, setelah Sheet ditambahkan berikutnya Sheet dapat di Rename dengan nama baru melalui InputBox yang muncul setelah tombol Rename Sheet diklik, dan selanjut Sheet juga dapat dihapus dengan tombol Delete Sheet.

Cara Tambah, Mengubah, dan Menghapus Sheet

Caranya cukup mudah...!! anda hanya tinggal mengikuti tutorial pada posting ini dan mengcopy semua kode-kode yang disajikan.

Ikuti langkah-langkah yang admin sajikan pada artikel ini selangkah demi selangkah. Admin sangat menyarankan membuat file contoh penerapan kode yang sedang dipelajari.

Dengan membuat file contoh penerapana akan lebih cepat dapat memahami dan mengetahui fungsi serta alur kerja kode yang digunakan.

Cara Tambah, Mengubah, dan Menghapus Sheet Melalui UserForm :

Buka excel dan Pilih Tab Developer selanjutnya klik Visual Basic atau dengan jalan pintas keyboard tekan secara bersamaan tombol Alt+F11

Pada Jendela Visual Basic Tambahkan UserForm dengan Caption "Aplikasi Pemula 9" dan tambahkan CommandButton1 dengan Caption "Add Sheet", CommandButton2 dengan Caption "Rename Sheet", dan CommandButton3 dengan Caption "Delete Sheet"

Klik kanan pada CommandButton1 Caption "Add Sheet", Pilih View Code dan masukkan Kode berikut :

Private Sub CommandButton1_Click()
'VBA Excel Pemula 9 : Cara Tambah, Mengubah, dan Menghapus Sheet
'Kode ini untuk menambahkan Sheet
Sheets.Add
End Sub

Klik kanan pada CommandButton2 Caption "Rename Sheet", Pilih View Code dan masukkan Kode berikut :

Private Sub CommandButton2_Click()
'Kode untuk mengubah nama Sheet dengan InputBox
Snama = InputBox("Masukkan Nama Baru Sheet", "Sheet Name")
If Snama = "" Then
MsgBox "Tidak terjadi perubahan pada Nama Sheet", vbCritical, "Sheet Name"
Exit Sub
Else
ActiveSheet.Name = Snama
End If
End Sub

Klik kanan pada CommandButton3 Caption "Delete Sheet", Pilih View Code dan masukkan Kode berikut :

Private Sub CommandButton3_Click()
'Kode ini untuk menghapus Sheet yang sedang aktif
ActiveSheet.Delete
End Sub

Selesai..!! Uji aplikasi yang anda bikin dengan cara klik Run atau dengan menekan tombol F5 untuk menjalankan aplikasinya.

Download : Aplikasi Pemula 9

Demikian posting VBA Excel Pemula 9 : Cara Tambah, Mengubah, dan Menghapus Sheet Melalui UserForm. Semoga dapat dikembangkan dengan keinginan dan kebutuhan aplikasi yang sedang dirancang.

Bila posting bermanfaat mohon dapat dishare dengan mengklik tombol bagikan ke media sosial. Semoga menjadi referensi bagi anda yang sedang mempelari Vba Excel

Jika ada pertanyaan, saran dan kritikan untuk admin mohon dapat disampaikan dengan bijaksana pada kolom komentar yang tersedia bawah artikel ini.