Bilah Kemajuan VBA Excel di Excel
Progress Bar adalah sesuatu yang menunjukkan kepada kita berapa 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.
Buat Bilah Kemajuan Anda Sendiri
Untuk membuat bilah kemajuan, kita perlu mengikuti beberapa langkah. Berikut adalah langkah-langkah yang harus dilakukan 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 VBA Userform yang telah kita sisipkan.
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 menjadi 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 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 keterangan dan kosongkan, dan 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 sama persis 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 saat 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
Sekarang, jika Anda menjalankan kode ini secara manual atau melalui tombol F5, kita akan melihat bilah kemajuan seperti ini.
Langkah 14: Sekarang, kita perlu membuat makro untuk melakukan tugas kita. Saya melakukan tugas memasukkan nomor seri dari 1 sampai 5000. Bersama dengan kode ini, kita perlu mengkonfigurasi diagram batang kemajuan juga, file. Kode baru adalah kode yang dibuat khusus untuk Anda.
Kode:
Sub ProgressBar_Chart () Dim i As Long Redup Saat IniUFProgressBar 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 = i / 2500 BarWidth = UFProgressBar = i / 2500 BarWidth = UFProgressBar. Border.Width * CurrentUFProgressBar UFProgressBarPercentage = Round (CurrentUFProgressBar * 100, 0) UFProgressBar.Bar.Width = BarWidth UFProgressBar.Text.Caption = UFProgressBarPercentage & "% Selesai" DoEgressBar UFP i = i + 1 Loop Unload UFP
