ProgressBar Birden Fazla İlerleme Durum Çubuğu

Bu dosya, tek bir UserForm üzerinde 12 ayrı ProgressBar denetiminin birlikte nasıl çalıştırılacağını gösteren makrolu bir örnektir. Her çubuk kendi döngüsünün ilerleyişini yüzde olarak gösterir; form açılışında ve işlem bitiminde saat bilgisi de yazılır.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com sayfası: B2:E10 aralığında formu açmak için kullanılan başlangıç sayfasıdır. Sayfada formül bulunmaz.
• Module1: form adlı makroyu içerir; bu makro UserForm1 formunu açar.
• UserForm1: 12 ProgressBar, her çubuğun yüzde değerini gösteren etiketler (Label1 - Label12), başlangıç ve bitiş saatini gösteren iki etiket (Label13, Label14) ve bir CommandButton1 düğmesi bulunur.

Makrolar​

• form: UserForm1 formunu görüntüler. Makro listesinden (Alt+F8) çalıştırılır veya sayfaya bir düğmeye atanabilir.
• UserForm_Initialize: Form açılırken her çubuğun alt değerini 1 yapar. Üst değerler ProgressBar1 için 12, ProgressBar2 için 11 olacak şekilde azalarak ProgressBar12 için 1 olarak ayarlanır.
• CommandButton1_Click: Düğmeye basıldığında Label13 içine başlangıç saatini (hh:mm:ss) yazar. Ardından 12 iç içe For döngüsü çalıştırılır. Her döngü kendi çubuğunun değerini artırır, ilgili etikete yüzde değerini yazar ve DoEvents ile formun ekranda güncellenmesini sağlar. Tüm döngüler bitince Label14 içine bitiş saati yazılır.
• Label2_Click, Label7_Click ve Label11_Click prosedürleri boştur, herhangi bir işlem yapmaz.
• Kodda dosya silme veya dışarıya bağlantı gibi işlemler yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile form makrosunu çalıştırın.
3. Açılan formda düğmeye basın.
4. Çubukların ve yüzde etiketlerinin ilerleyişini izleyin; işlem bitince başlangıç ve bitiş saatlerini karşılaştırın.
5. Kendi uygulamanızda kullanmak için döngü sınırlarını ve çubukların Max değerlerini işleminize göre değiştirin.