Membuat Progress Bar Di Userform Ms. Excel (plus File Contoh)

Userform merupakan suatu interface yang dibuat untuk mempermudah pengguna/user dalam mengoperasikan sebuah aplikasi, pada aplikasi Ms. Excel sendiri kita membuat sebuah Userform dengan memanfaatkan fasilitas VBA (Visual Basic for Aplication) yang sudah dibekali didalam aplikasi Ms. Excel itu sendiri, untuk bisa membuat Userform pada Ms. Excel kita harus membuka lembar kerja VBA Project dengan cara menekan tombol kombinasi Alt+F11 pada keyboard.

Ada banyak cara yang bisa kita lakukan untuk membuat tampilan Userform agar terkesan profesional, salah satunya adalah dengan menambahkan sebuah efek Progress Bar didalamnya. Seperti yang sudah kita ketahui bersama bahwa Progress Bar merupakan sebuah tampilan dari sebuah permprosesan yang ditampilkan dalam sebuah animasi atau yang kita kenal dengan tampilan loading.

Untuk membuat efek Progress Bar pada Userform Ms. Excel berikut langkah-langkahnya :

1. Buat sebuah Userform 

2. Kemudian tambahkan  sebuah Command Button didalamnya (Command Button ini kita gunakan sebagi pemanggil efek Progress Bar tersebut), ubah Caption Command Button tersebut menjadi Proses (bebas), perhatikan gambar di bawah ini :

3. Tambahkan 3 (tiga) buah label, dan lakukan seperti berikut ini :

Label 1 = Ubah Nama/Namenya menjadi "latar", untuk captionnya kosongkan saja. Kemudian ubah efek backstyle menjadi transparan dan untuk panjang/lebarnya sesuaikan saja dengan keinginan masing-masing 😀... ubah special effectnya menjadi Sunken (bebas) , perhatikan gambar di bawah ini untuk lebih jelasnya :

Dan ini tampilan label pertama yang kita sisipkan :

Label 2 = Ubah Nama/Namenya menjadi "Jalan", ubah back color menjadi warna biru (bebas), backstylenya ubah jadi opaque, untuk captionnya kosongkan kemudian special effectnya ubah menjadi flat, dan untuk panjang dan lebarnya sesuaikan saja. Perhatikan gambar di bawah ini :

Dan ini tampilan lebel kedua yang kita sisipkan :

Label 3 = Ubah Nama/Namenya menjadi "hitung", backstyle ubah menjadi transparent, ubah special effectnya menjadi flat, kemudian ubah captionnya menjadi "0%" dengan warna font putih. Lihat juga gambat di bawah ini untuk lebih jelasnya :

Dan ini tampilan lebel ketiga yang kita sisipkan :

 

Untuk langkah pembuatan Userform selesai, lanjutkan untuk menambahkan kode Macro agar efek Progress Barnya bisa berjalan, dan berikut langkah-langkahnya :

1. Copy/salin Kode Macro di bawah ini :

Private Sub UserForm_Initialize()
With jalan
        .Top = latar.Top + 1
        .Left = latar.Left + 1
        .Height = latar.Height - 2
        .Width = 0
        hitung.Visible = False
    End With
End Sub

Sub ProgressBar(hitungjalan As Single)
Application.ScreenUpdating = False
   jalan.Width = hitungjalan * (latar.Width - 2)
    hitung.Visible = True
   hitung.Caption = Format(hitungjalan, "0%")
    DoEvents
 End Sub

Sub Jalankan()
Application.ScreenUpdating = False
Dim i, tot As Integer
tot = 5000
For i = 1 To tot
If i Mod 5 = 0 Then
ProgressBar i / tot
End If
Next i
jalan.Width = 0
hitung.Visible = False
End Sub

Kemudian paste/tempelkan kedalam Userform yang tadi kita sudah buat, dengan cara double click pada Userform tersebut.

2. Tuliskan "jalankan" tanpa tanda petik pada jendela kode pada Command Button1 (Proses) yang tadi telah kita buat, dengan cara double click pada Command Button1 (Proses) tersebut :

Dan silahkan lakukan pengujian dengan cara menekan tombol F5 pada keyboard, jika berhasil maka akan tampak seperti pada gambar animasi di bawah ini :

😀😀😀 Mantap kan??? Download File samplenya melalui link di bawah ini :

Download File Sample Progress Bar di  UserForm Ms. Excel - MediaFire

Mudah-mudahan apa yang Saya sampaikan pada kesempatan kali ini bisa dipahami oleh Sobat Blogger dan bisa bermanfaat untuk kita semua, sekian pembahasan mengenai  "Membuat Progress Bar Di Userform Ms. Excel (plus File Contoh)" terimakasih dan Salam Mas Operator!!!!

Share :