ProgressBar İlerleme Durum Çubuğu (Otomatik İlerleyen ve Kapanan)

Bu dosya, uzun süren makro işlemlerinde kullanılabilecek hazır bir ilerleme durum çubuğu içerir. Bir UserForm açılır, çubuk -5000 ile 5000 arasındaki değerlere göre dolar ve döngü tamamlandığında form kendiliğinden kapanır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com sayfası: B2:E11 aralığında yer alan karşılama sayfasıdır; formül veya veri doğrulama içermez.
• Module1: Çubuğu başlatan ProgressBar_Calistir makrosunu barındırır.
• UserForm1: Çubuğu, yüzde etiketini, durum metnini, geçen ve kalan zaman etiketlerini ve İptal düğmesini içeren formdur.

Makrolar​

• ProgressBar_Calistir: Formu oluşturur, başlık ve sınır değerlerini (-5000 ve 5000) ayarlayıp gösterir. Ardından her adımda çubuğu ilerletir, durum satırına "Zaman israf değildir..." metniyle o anki değeri yazar. İptal düğmesine basılmışsa döngüden çıkar, işlem bitince formu gizler.
• Configure: Form başlığını, durum metnini, alt-üst sınırı, İptal düğmesinin yazısını ve zaman göstergelerinin açık veya kapalı olmasını belirler; sayacı başlatır.
• SetValue: Değeri sınırlar içinde tutar, çubuk genişliğini orana göre ayarlar, yüzdeyi yazar. Geçen zamanı ve ilerlemeye göre tahmini kalan zamanı hesaplar.
• SetStatus: Durum metnini günceller.
• GetRunTime, GetFormattedRunTime, GetValue: Geçen süreyi ve çubuğun o anki değerini döndürür.
• CancelButton_Click: İptal işaretini kaldırmak yerine kurar ve durum satırına "Kullanıcı İptal Etti. Lütfen Bekleyin." yazar; cancelIsPressed bu bilgiyi döngüye iletir.

Makrolarda dosya silme veya dış bağlantı işlemi yoktur. Süre ölçümü için Windows'un GetTickCount fonksiyonu kullanılır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. ALT+F8 ile ProgressBar_Calistir makrosunu çalıştırın.
3. Form açılır; çubuk dolarken yüzde, geçen zaman ve kalan zaman izlenir.
4. İşlemi durdurmak için İptal düğmesine basın; aksi halde döngü bitince form kapanır.
5. Kendi işleminizde kullanmak için Module1 içindeki For döngüsüne işlem kodunuzu ekleyin, Configure satırındaki alt ve üst sınırı işlem adımı sayınıza göre değiştirin.