Tombol Back Dan Next Multipage Userform VBA Excel (Versi 2)

Aplikasi Excelku. Hallo Sobat Blogger semuaya, selamat datang di Blog Sederhana Saya ini : Aplikasi Excelku (Berbagi Tutorial Dan Aplikasi Excel). Terimakasih Saya ucapkan kepada Anda semuanya karena sudah mengunjungi Blog Sederhana Saya ini. Masih mengenai Macro VBA Excel, pada kesempatan ini kembali Saya akan berbagi sebuah tutorial sederhana menganai MultiPage Control, sebelumnya Saya sudah memposting artikel dengan tema dan judul yang sama, dan kali ini merupakan versi lain dari artikel tersebut. Bagi Sobat Blogger yang belum sempat membaca artikel Saya sebelumnya tersebut bisa membacanya dengan cara KLIK DISINI.

Tombol Back Dan Next Multipage Userform VBA Excel (Versi 2)

Seperti yang sudah Saya jelaskan di atas, dan sesuai juga dengan judul artikel/postingan ini, Saya kembali akan berbagi tutorial mengenai membuat Tombol Back Dan Next Multipage Userform VBA Excel "(Versi 2)" dan berikut ini langkah-langkahnya :

1. Buka lembar kerja Aplikasi Excel kita, kemudian kita buka lagi halaman Visual Basic dengan cara klik pada menu Developer kemudian klik lagi pada Visual Basic :

Catatan : Jika dilembar kerja Excel Sobat Blogger tidak ada menu (tab) Developer bisa membacanya pada artikel Saya sebelumnya mengenai Cara Memunculkan Tab Developer Di Excel, atau bisa juga dengan menggunakan kombinasi tombol ALT+F11 pada keyboard.

2. Kemudian didalam halaman Visual Basic kita sisipkan sebuah Userform terlebih dahulu, caranya : klik pada menu Insert kemudian klik lagi pada Userform. Silahkan tentukan sendiri ukuran dari Userform sesuai dengan kebutuhan kita :

Dan contohnya seperti berikut ini :

3. Kita Sisipkan sebuah komponen/kontrol yaitu MultiPage, caranya : klik MultiPage pada ToolBox kemudian arahkan ke area Userform yang sudah kita buat/sisipkan tadi :

Dan hasilnya adalah seperti berikut ini :

Seperti yang ditampilkan pada gambar di atas, bahwa secara default akan ada 2 (dua) buah page (halaman) yang sudah tersedia pada saat kita menyisipkan MultiPage, dan untuk menambah page (halaman) lagi kita tinggl klik kanan persis di samping page2 dan pilih New Page :

Kemudian untuk merubah caption pada masing-masing page (halaman) kita tinggal klik kanan pada page (halaman) tersbut kemudian pilih Rename. Kemudian di kotak Rename silahkan tuliskan nama Page (halaman) sesuai dengan keingin kita masing-masing :

Pada contoh ini Saya mengubahnya menjadi Halaman 1, Halaman 2, dan Halaman 3 seperti pada gambar di bawah ini :

4. Langkah berikutnya adalah kita sisipkan 2 (dua) buah tombol yang akan kita jadikan sebagai Tombol Back dan Tombol Next. Caranya : klik CommandButton pada Toolbox kemudian arahkan ke area Userform tepatnya dibawah MultiPage yang sudah kita sisipkan tadi :

Selanjutnya copy atau gandakan CommandButton tersebut kemudian letakkan berjejer seperti pada gambar di bawah ini :

Ubah caption dari CommandButton tersebut dengan cara klik pada masing-masing CommandButton kemudian ubah captionnya melalui Properties, silahkan ubah menjadi : Back dan Next seperti pada gambar di bawah ini :

Hasil akhir :

5. Langkah selanjutnya adalah copy kode/script Macro di bawah ini :

Private Sub MultiPage1_Change()
'https://aplikasiexcelku.blogspot.com
        If MultiPage1.Value = 0 Then
        CommandButton2.Enabled = True
        CommandButton1.Enabled = False
    ElseIf MultiPage1.Value = (MultiPage1.Pages.Count - 1) Then
        CommandButton2.Enabled = False
        CommandButton1.Enabled = True
    Else
        CommandButton2.Enabled = True
        CommandButton1.Enabled = True
    End If
End Sub
Private Sub CommandButton1_Click()
'https://aplikasiexcelku.blogspot.com
Dim intPage As Integer
    intPage = MultiPage1.Value
    Do
        intPage = intPage - 1
        If intPage = 0 Then Exit Do
    Loop While Not MultiPage1.Pages(intPage).Enabled
    MultiPage1.Value = intPage
End Sub
Private Sub CommandButton2_Click()
'https://aplikasiexcelku.blogspot.com
MultiPage1.Value = MultiPage1.Value + 1
End Sub

Jika sudah silahkan klik kanan pada area Userform kemudian klik View Code, selanjutnya paste kode/script Macro di atas kedalamnya, sehingga menjadi seperti berikut ini :

Untuk melihat hasilnya, silahkan klik pada tombol Run atau juga dengan menekan tombol F5 pada keyboard. Maka hasilnya akan seperti pada gambar animasi di bawah ini :

Perbedaan antara Tombol Back dan Next versi ini adalah tombol back dan next akan secara otomatis tidak aktif (disable) pada saat kita membuka halaman (page) terakhir dari MultiPage tersebut. Sedangkan pada versi 1 akan muncul sebuah peringatan pada saat kita berada pada halaman (page) yang terakhir.

Demikian pembahasan pada kesempatan ini, mudah-mudahan apa yang sudah Saya sampaikan pada kesmepatan kali ini bisa bermanfaat untuk kita semuanya. Bagi Sobat Blogger yang ingin mempeljarinya secara langsung di bawah ini Saya sudah menyediakan file sample yang bisa Sobat Blogger unduh/download untuk dipelajari. Sekian, terimakasih, dan selamat mencoba.

Tombol Back Dan Next Multipage Userform VBA Excel (Versi 2)

Tombol Back Dan Next Multipage Userform VBA Excel (Versi 2)

Post a Comment for "Tombol Back Dan Next Multipage Userform VBA Excel (Versi 2)"