Membuat Progress bar dengan Excel

Membuat Progress Bar Pada Excel

Progress bar adalah suatu proses yang dilakukan pada saat sebuah proses sedang berjalan sampai proses itu selesai. Progress bar bisa membantu kita mengetehui bahwa proses yang kita perintahkan apakah berjalan atau tidak atau sejauh mana proses itu berjalan. Inilah gambaran dari proses progress bar.

Animasi di atas merupakan animasi progress bar pada file excel. Mungkin akan timbul pertanyaan bagaimana cara membuat progress bar pada excel?

Maka pada postingan kali ini saya akan mencoba membahas cara Membuat Progress Bar dengan Excel.

Inilah langkah-langkah untuk Membuat Progress Bar pada Excel.

1.  Bukalah File Microsoft excel, dengan cara menekan tombol start kemudian all program , microsoft office dan carilah microsoft excel.
2. Kemudian cari menu tab developer kemudian pilih visual basic atau bila tidak ada cukup dengan menekan alt dan f11, sehingga tampil jendela visual basic seperti gambar di bawah ini.



3. Setelah tampil Jendela Visual basic seperti di atas maka langkah selanjutnya kita membuat sebuah userform dengan memilih menu insert pada jendela visual basic itu kemudian userform.
4. Setelah terbentuk jendela userform maka langkah selanjutnya membuat object progress bar dengan cara mengaktifkan userform kemudian Aktifkan jendela tool bar klik kanan pada jendela toolbar itu klik additional control sehingga tampil kotak dialog seperti ini



5. ceklis microsoft ProgressBar control kemudian klik ok. kemudian pada jendela toolbar gambarkan objek progress bar itu sepanjang mana kita akan membuatnya sesuaikan dengan ukuran userform agar tampilan progress bar itu menarik.
6. Langkah selanjutnya double klik progressbar itu kemudian masukan kode script berikut



Private Sub UserForm_Activate()  Set Ipa_Sheet = Sheets("Sheet1")     Set Ipa_Sheet = Range("a1:a1000")     i = 0         With userform1             .ProgressBar1.Min = 0             .ProgressBar1.Max = Ipa_Sheet.Cells.Count         End With         For Each rng In Ipa_Sheet.Cells             rng.Value = Application.WorksheetFunction.Clean(Application.WorksheetFunction.Trim(rng.Value))             i = i + 1             userform1.ProgressBar1.Value = i             userform1.Caption = VBA.Format(i / userform1.ProgressBar1.Max, "0%") & "  Complete"             DoEvents         Next         Unload Me         MsgBox "membuat Progress Bar Berhasil" End Sub

7. Lalu klik run, maka selesailah Pembuatan Progress bar pada excel.

Demikianlah cara membuat progress bar pada excel selamat mencoba!

• Tweet
• Share
• Share
• Share
• Share