Aplikasi Excelku. Pada kesempatan ini kembali Saya akan berbagi turoial mengenai VBA Excel, dan sesuai dengan judul artikel/postingan ini yang akan Saya sampaikan/bagikan adalah mengenai MultiPage Control. Seperti namanya MultiPage komponen ini bisa gunakan untuk menampilkan banyak informasi yang dapat diurutkan ke bebrapa kategori. MultiPage Control ini terdiri beberapa halaman, dimana dimasing-masing halaman tersebut kita bisa menyisipkan perintah-perintah atau pun kontrol-kontrol sesuai dengan kebutuhan/keinginan kita. Dan berikut ini merupakan tampilan dari MultiPage Control VBA Excel :
Seperti yang ditampilkan pada gambar di atas, terdapat 2 (dua) halaman (page) pada MultiPage, dan masing-masing dari halaman (page) tersebut kita bisa menyisipkan kontrol-kontrol lainnya sesuai dengan kebutuhan kita nantinya. Dan tutorial kali ini adalah tutorial tentang cara Membuat Tombol Back Dan Next. Tombol back dan next ini nantinya akan kita fungsikan sebagai tombol untuk berpindah antar halaman (page) di MultiPage yang kita sisipkan nantinya, meskipun tampa adanya tombol tersebut kita bisa berpindah antara halaman (page) dengan cara klik pada judul (tab) dari halaman (page) tersebut.
Baiklah, saatnya Saya lanjutkan mengenai bagaimana cara membuat tombol back dan next sebagai kontrol untuk berpindah antar halaman (page) di MultiPage Userform VBA Excel :
A. Membuat/Menyisipkan Userform
Syarat utama untuk bisa menggunakan MultiPage adalah Userform, karena Userform itu sendiri merupakan media utama dalam kita bekerja menggunakan VBA. Bisa diartikan sebagai lembar kerjanya.
Buka halaman Visual Basic Ms. Excel, dengan cara klik pada menu Developer, kemudian klik lagi pada Visual Basic, atau bisa juga dengan menggunakan tombol kombinasi ALT+F11 pada keyboard. Kemudian klik pada menu Insert kemudian klik lagi pada Userform :
B. Membuat/Menyisipkan MultiPage
Untuk membuat/menyisipkan MultiPage kedalam Userform, kita cari dan klik pada toolbox pada pilihan MultiPage :
Kemudian klik di area Userfom yang kita buat tadi, kemudian silahkan atur ukuran sesuai dengan kebutuhan, dan contoh hasilnya seperti ini :
Secara default pada saat pertama kita menyisipkan sebuah MultiPage ada 2 (dua) buah halaman (page), dan jika menginginkan ada lebih dari 2 (dua) halaman (page) kita bisa menambahkannya, caranya adalah klik kanan di area kosong disamping Page2 kemudian pilih New Page :
Maka akan menjadi seperti pada gambar di bawah ini :
Ada halaman (page) baru dangan nama Page3, dan berikutnya adalah kita ubah caption dari masing-masing halaman (page) tersebut disesuaikan dengan kebutuhan/keinginan kita masing-masing. Pada contoh ini Saya akan membuat sebuah form Input Data Siswa, dan pada form tersebut akan Saya bagi menjadi 3 (tiga) kelompok data. Yaitu :
- Data Siswa;
- Data Orang Tua; dan
- Data Wali.
Untuk mengubah caption dari masing-masing halaman (page) caranya adalah seperti berikut ini :
Klik pada tab halaman (page) yang ingin kita ubah captionnya (pada contoh ini Saya akan mengubah caption dari halaman (Page1). Kemudian pada properties Page1 silahkan ganti, yang tadinya tertulis Page1 kita ubah menjadi teks yang kita inginnkan (pada contoh ini Saya mengubahnya menjadi Data Siswa) pada pilihan Caption :
Dan hasil akhirnya adalah seperti pada gambar di bawah ini :
Untuk Proses Pembuatan Userform dan MultiPage selesai, lanjut ke langkah/tahap berikutnya :
C. Membuat/Menyisipkan Tombol Back dan Next
Untuk membuat tombol Back dan Next menggunakan CommandButton, dan berikut langkah-langkahnya :
Cari dan klik pada Toolbox (seperti menyisipkan MultiPage) opsi Command Button kemudian klik pada area Userform tepatnya di bawah MultiPage, kemudian copy CommandButton tersebut sehingga menjadi 2 (dua), perhatikan gambar di bawah ini :
Selain mengubah Caption dari masing-masing CommandButton kita ubah juga pada Name dari masing-masing CommandButton tersebut melalui Properties, ubah dari CommandButton1 menjadi CmdBack, kemudian ubah dari CommandButton2 menjadi CmdNext, perhatikan gambar di bawah ini :
Private Sub UserForm_Initialize()'https://aplikasiexcelku.blogspot.com
With MultiPage1
.Pages(1).Enabled = False
.Pages(2).Enabled = False
.Value = 0
End With
CmdBack.Enabled = False
End SubPrivate Sub CmdBack_Click()'https://aplikasiexcelku.blogspot.com
Select Case MultiPage1.Value
Case 1
With MultiPage1
.Pages(0).Enabled = True
.Value = MultiPage1.Value - 1
.Pages(1).Enabled = False
End With
CmdBack.Enabled = False
Case 2
With MultiPage1
.Pages(1).Enabled = True
.Value = MultiPage1.Value - 1
.Pages(2).Enabled = False
End With
End Select
End SubPrivate Sub CmdNext_Click()
'https://aplikasiexcelku.blogspot.com
Select Case MultiPage1.Value
Case 0
With MultiPage1
.Value = MultiPage1.Value + 1
.Pages(1).Enabled = True
.Pages(0).Enabled = False
End With
CmdBack.Enabled = True
Case 1
With MultiPage1
.Value = MultiPage1.Value + 1
.Pages(2).Enabled = True
.Pages(1).Enabled = False
End With
Case 2
MsgBox "Ini adalah Form Terakhir!"
End Select
End Sub
Mau tanya klo kita pilih dari userform pilih multipage lain gmn ya
ReplyDeletemaksudnya?
Delete