Wednesday, September 28, 2016

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.

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


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

    Komentar Anda Sangat Menentukan Kelangsungan Blog ini
    EmoticonEmoticon