Belajar VBA Excel : Tombol Next Dan Previous Multipage

 MlatenMania.com - MultiPage adalah contoh lain dari kontrol wadah yang mengelompokkan atau menata antarmuka pengguna pada Userform ke dalam beberapa kategori. Penggunaan MultiPage ini akan sangat berguna sekali pada saat kita akan membuat sebuah form dimana di dalamnya terdapat banyak data yang masing-masing dibagi dalam beberapa kategori. Contohnya adalah data Siswa, yang mana ada banyak data dari siswa yang nantinya harus di-input-kan dan data-data siswa tersebut di bagi menjadi beberapa kategori seperti:

Identitas Siswa

• Nama
• Tempat Tanggal Lahir
• Jenis Kelamin
• Agama, dan lain sebagainya.

Data Ayah

• Nama Ayah
• NIK Ayah
• Pendidikan Ayah
• Pekerjaan Ayah, dan lain sebagainya.

Data Ibu

• Nama Ibu
• NIK Ibu
• Pendidikan Ibu
• Pekerjaan Ibu, dan lain sebagainya.

Dengan menggunakan kontrol MultiPage pastinya akan membuat ringkas tampilan dari Userform nantinya, seperti pada gambar di bawah ini:

MultiPage

Menyisipkan/membuat Multipage Di Excel

Untuk menyisipkan sebuah Multipage ke dalam Userform berikut langkah-langkahnya:

1. Buka lembar kerja Visual Basic dengan cara klik pada Menu Developer kemudian klik Visual Basic, atau bisa juga dengan menggunakan Shortcut Alt+F11 (pada keyboard).

2. Setelah masuk ke dalam lembar kerja Visual Basic kita klik pada Menu Insert kemudian pilih Userform. Silahkan tentukan panjang dan lebar dari Userform sesuai dengan keinginan/kebutuhan masing-masing.

3. Setelah Userform sudah ada, kita pilih MultiPage pada Toolbox, perhatikan gambar di bawah ini:

4. Kemudian Drag pada Userform yang sebelumnya sudah kita buat, sehingga seperti pada gambar di bawah ini:

Menambahkan Page Baru Di MultiPage Excel

Seperti yang ditampilkan gambar di atas, secara default disediakan 2 (dua) buah Page, dan jika ingin menambahkan Page lagi kita klik kanan di samping Page ke-2 dan pilih New Page:

Dan pada gambar di atas juga menunjukkan bahwa ada pilihan lain selain New Page, yaitu :

1. Delete Page;
2. Rename; dan
3. Move.

Membuat Tombol Next Dan Previous Untuk MultiPage Di Excel

Untuk mempermudah perpindahan dari Page satu ke yang lainnya alangkah baiknya jika kita juga membuat tombol yang berfungsi untuk berpindah antar Page pada MultiPage tersebut. Selian itu juga dengan tombol tersebut akan membuat Userform yang kita buat menjadi lebih menarik dan profesional. Berikut merupakan cara ataupun langkah-langkah dalam membuat tombol Next dan Previous Untuk MultiPage:

Untuk membuat tombolnya kita bisa menggunakan CommandButton, caranya sama seperti pada saat kita menyisipkan MultiPage, yaitu pada ToolBox. Masing-masing CommandButton tersebut kita ubah namanya menjadi CmdPrev dan CmdNext.

Selanjutnya Copy kode/script Macro di bawah ini dan Paste/tempel ke dalam Userform:

Kode/Script Macro untuk tombol Next dan Previous:

Untuk Tombol Next

Private Sub CmdNext_Click()
MultiPage1.Value = MultiPage1.Value + 1
End Sub

Untuk Tombol Previous

Private Sub CmdPrev_Click()
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

Untuk MultiPage

Private Sub MultiPage1_Change()
        If MultiPage1.Value = 0 Then
        CmdNext.Enabled = True
        CmdPrev.Enabled = False
    ElseIf MultiPage1.Value = (MultiPage1.Pages.Count - 1) Then
        CmdNext.Enabled = False
        CmdPrev.Enabled = True
    Else
        CmdNext.Enabled = True
        CmdPrev.Enabled = True
    End If
If Me.MultiPage1.Value = 0 Then
Me.TxtNaleng.SetFocus
End If
End Sub

Ingat ya, Paste-kan semua kode/Script Macro di atas ke dalam Userform.

Untuk melihat hasilnya silahkan jalankan.

Demikian artikel mengenai Belajar VBA Excel : Tombol Next Dan Previous Multipage, mudah-mudahan apa yang sudah Saya sampaikan ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih dan selamat mencoba.