Bilah Kemajuan VBA | Buat Diagram Batang Kemajuan menggunakan Kode VBA

Bilah Kemajuan VBA Excel di Excel

Progress Bar adalah sesuatu yang menunjukkan kepada kita seberapa banyak proses yang telah dilakukan atau diselesaikan ketika kita menjalankan sekumpulan besar kode yang membutuhkan waktu lebih lama untuk mengeksekusinya, kita menggunakan bilah kemajuan di VBA untuk menunjukkan kepada pengguna tentang status proses, atau apakah kita memiliki beberapa proses yang berjalan dalam satu kode, kami menggunakan bilah kemajuan untuk menunjukkan proses mana yang telah berkembang seberapa banyak.

Bilah kemajuan menunjukkan persentase tugas yang diselesaikan saat tugas sebenarnya berjalan di belakang layar dengan serangkaian instruksi yang diberikan oleh kode.

Ketika kode VBA membutuhkan banyak waktu untuk dieksekusi, pengguna khawatir untuk mengetahui seberapa cepat kode tersebut dapat selesai. Secara default, kita perlu menunggu waktu penuh untuk menyelesaikan tugas tetapi dengan memasukkan bilah kemajuan kita mengetahui kemajuan kode VBA.

Di hampir semua perangkat lunak komputer kita melihat diagram batang kemajuan yang menunjukkan kemajuan tugas yang sedang kita lakukan seperti gambar di bawah ini.

Di excel kita dapat membuat Progress Bar dengan menggunakan pengkodean VBA. Jika Anda pernah bertanya-tanya bagaimana kami dapat membuat bilah kemajuan maka ini adalah artikel yang dibuat khusus untuk Anda.

Anda dapat mengunduh Template Progress Bar VBA ini di sini - Template Progress Bar VBA

Buat Bilah Kemajuan Anda Sendiri

Untuk membuat bilah kemajuan, kita perlu mengikuti beberapa langkah. Berikut adalah langkah-langkah yang harus dilibatkan saat membuat diagram batang kemajuan.

Langkah 1: Buat atau Sisipkan formulir Pengguna baru.

Segera setelah Anda mengklik opsi di atas, Anda akan melihat formulir pengguna seperti di bawah ini.

Langkah 2: Tekan tombol F4 untuk melihat jendela properti VBA.

Di tab properti ini, kita perlu mengubah properti formulir pengguna VBA yang telah kita masukkan.

Langkah 3: Ubah nama formulir pengguna menjadi UFProgressBar.

Sekarang kita bisa merujuk formulir pengguna ini dengan nama "UFProgressBar" saat melakukan pengkodean.

Langkah 4: Ubah Properti Tampilkan Model formulir pengguna ke FALSE.

Langkah 5: Sekarang sesuaikan perataan pengguna agar sesuai dengan kebutuhan Anda. Saya telah mengubah Tinggi formulir pengguna menjadi 120 dan lebar menjadi 300.

Langkah 6: Ubah Caption dari formulir pengguna menjadi "Progress Status Bar".

Langkah 7: Sekarang dari toolbox formulir pengguna masukkan LABEL ke formulir pengguna di bagian atas.

Dengan label ini, kita perlu mengatur properti label. Hapus caption dan kosongkan serta sesuaikan lebar label.

Langkah 8: Ubah Nama label menjadi "ProgessLabel".

Langkah 9: Sekarang dari toolbox ambil bingkai dan gambar tepat di bawah label yang telah kita sisipkan pada langkah sebelumnya. Pastikan bingkai berada di tengah formulir pengguna.

Langkah 10: Sekarang kita perlu mengubah beberapa properti Frame agar terlihat persis sama dengan formulir pengguna yang telah kita sisipkan.

Properti 1: Ubah Nama bingkai menjadi "ProgressFrame".

Properti 2: Hapus keterangan dan kosongkan.

Properti 3: Ubah Efek Khusus bingkai menjadi 6 - fmSpecialEffectBump.

Setelah semua perubahan ini, formulir pengguna kita akan terlihat seperti ini.

Langkah 11: Sekarang masukkan satu label lagi. Kali ini masukkan label tepat di dalam bingkai yang telah kita sisipkan.

Saat memasukkan label pastikan sisi kiri label benar-benar sesuai dengan bingkai yang telah kita sisipkan seperti yang ditunjukkan pada gambar di atas.

Langkah 12: Setelah memasukkan label, ubah properti label sebagai berikut.

Properti 1: Ubah nama label menjadi "MainProgressLabel".

Properti 2: Hapus keterangan.

Properti 3: Ubah warna latar belakang sesuai keinginan Anda.

Oke, sekarang kita selesai dengan proses menyiapkan bilah kemajuan dan pada titik ini, terlihat seperti ini.

Sekarang kita perlu memasukkan kode agar ini berfungsi dengan sempurna.

Langkah 13: Untuk membuat kerangka kerja tambahkan makro di bawah ini di excel.

Kode:

 Sub InitUFProgressBarBar () Dengan UFProgressBar .Bar.Width = 0 .Text.Caption = "0%". Show vbModeless End With

Catatan: "UFProgressBar" adalah nama yang diberikan ke Formulir Pengguna dan "Bar" adalah nama yang diberikan ke frame yang telah kita buat dan "Teks" adalah nama yang diberikan ke label di dalam Frame.

Sekarang jika Anda menjalankan kode ini secara manual atau melalui tombol F5, kita akan melihat bilah kemajuan seperti ini.

Step 14: Now we need to create a macro to perform our task. I am performing the task of inserting serial numbers from 1 to 5000. Along with this code, we need to configure the progress bar chart as well, below code is the tailor-made code for you.

Code:

 Sub ProgressBar_Chart() Dim i As Long Dim CurrentUFProgressBar As Double Dim UFProgressBarPercentage As Double Dim BarWidth As Long i = 1 Call InitUFProgressBarBar Do While i <= 5500 Cells(i, 1).Value = i CurrentUFProgressBar = i / 2500 BarWidth = UFProgressBar.Border.Width * CurrentUFProgressBar UFProgressBarPercentage = Round(CurrentUFProgressBar * 100, 0) UFProgressBar.Bar.Width = BarWidth UFProgressBar.Text.Caption = UFProgressBarPercentage & "% Complete" DoEvents i = i + 1 Loop Unload UFProgressBar End Sub