Membuat Progress Bar VBA Excel

 Aplikasi Excelku. Progress Bar merupakan  sebuah komponen yang berguna untuk membuat gambaran kemajuan sebuah proses dari suatu kinerja, atau sering kita sebut dengan tampilan loading ataupun Splash Screen. Pada kesempatan ini Saya akan berbagi sebuah informasi sekaligus turorial mengenai Cara Membuat Progress Bar Di Ms. Excel. Dan berikut merupakan tampilan hasil akhir dari Progress Bar yang akan kita buat:

Membuat Progress Bar VBA Excel

Untuk membuat sebuah Progress Bar seperti gambar di atas, berikut ini langkah-langkahnya:

1. Buka lembar kerja Viusal Basic Ms. Excel, caranya tekan tombol kombinasi Alt+F11 (pada keyboar) atau juga bisa dengan klik pada tab menu Developer kemudian klik pada Visual Basic

2. Di dalam lembar kerja Visual Basic Ms. Excel kita sisipkan sebuah Userform caranya adalah klik pada menu insert kemudian klik pada Userform. Kemudian ubah Caption dari Userform tersebut menjadi Please Wait, perhatikan gambar di bawah ini:

3. Sisipkan sebuah Frame kedalam Userform tadi, kemudian hapus caption dari frame tersebut  dan ubah ukuran dari frame tersebut menjadi Height = 24 dan Width = 204, sehingga menjadi seperti pada gambar di bawah ini:

4. Sisipkan sebuah Label persis di dalam Frame1 tadi, kemudian ubah nama Label menjadi Bar, ubah Back Color menjadi berwarna (pada contoh ini Saya memberi warna hijau), kemudian hapus Caption dari Label tersebut, ubah juga ukuran dari Label tersebut menjadi Height = 24 dan Width = 24 . Perhatikan gambar di bawah ini:

5. Sisipkan lagi sebuah Label kemudian letakkan Label tersebut persis di atas Frame, kemudian ubah nama dari Label tadi menjadi Text kemudian ubah Back Style menjadi Transparent, kemudian ubah Caption dari Label tadi menjadi 0% Completed, perhatikan gambar di bawah ini:

Langkah selanjutnya adalah memberikan kode/Script macro ke dalam Userform, klik kanan pada Userform kemudian klik/pilih View Code lanjutkan dengan Copas kode/script macro di bawah ini :

Private Sub UserForm_Activate()

'https://aplikasiexcelku.blogspot.com
jalankan
End Sub

Sub jalankan()
Dim i As Integer, j As Integer, pctCompl As Single
Sheet1.Cells.Clear

'https://aplikasiexcelku.blogspot.com
For i = 1 To 100
    For j = 1 To 1000
        Cells(i, 1).Value = j
    Next j
    pctCompl = i
    progress pctCompl
Next i

'https://aplikasiexcelku.blogspot.com
End Sub

Sub progress(pctCompl As Single)

'https://aplikasiexcelku.blogspot.com
UserForm1.Text.Caption = pctCompl & "% Completed"
UserForm1.Bar.Width = pctCompl * 2
DoEvents
End Sub

Jika sudah, silahkan jalankan Userformnya dengan cara menekan tombol F5 pada keyboard atau klik pada tombol Run pada halaman Visual Basic. Maka akan seperti pada gambar animasi di atas. Demikian artikel mengenai Membuat Progress Bar VBA Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan kali ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih, dan Salam Belajar!!!.

Credits : https://www.excel-easy.com/vba/examples/progress-indicator.html

Share :