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.

    Berlangganan update artikel terbaru via email:

    0 Response to "VBA Excel Pemula 9 : Cara Tambah, Mengubah, dan Menghapus Sheet Melalui UserForm"

    Post a Comment

    Komentar Anda Sangat Menentukan Kelangsungan Blog ini

    Iklan Atas Artikel

    Iklan Tengah Artikel 1

    Iklan Tengah Artikel 2

    Iklan Bawah Artikel