ProgressBar İlerleme Durum Çubuğu

Bu dosya, bir UserForm üzerinde ProgressBar denetimiyle ilerleme durum çubuğu gösteren makrolu bir şablondur. Forma yerleştirilen düğmeye tıklandığında çubuk %0'dan %100'e kadar dolar, yüzde değeri ise çerçevenin başlığında görüntülenir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com: B2:E10 aralığında yer alan karşılama sayfasıdır. Sayfada formül veya veri doğrulama bulunmaz.
• UserForm1: ProgressBar1 denetimi, Frame1 çerçevesi, CommandButton1 düğmesi ve Label2 etiketini barındıran form.
• Module1: Formu açan tek bir makro içeren modül.

Makrolar​

• form (Module1): UserForm1 formunu açar. Çalıştırmak için Alt+F8 ile makro listesi açılır ve form seçilir.
• UserForm_Initialize: Form açılırken ProgressBar1 için en küçük değeri 0, en büyük değeri 100 yapar. Düğmenin arka plan ve yazı rengini Tag özelliğinde saklar.
• CommandButton1_Click: 1'den 9000'e kadar bir döngü çalıştırır. Her adımda çubuğun değerini hesaplar, Frame1 başlığına yüzdeyi yazar ve DoEvents ile formun güncellenmesini sağlar. Aynı döngüde düğme beyaz zemin ve mavi yazı rengine geçer, düğme yazısı "OK" olur.
• CommandButton1_MouseMove: Fare düğmenin üzerine geldiğinde düğmenin ve Label2 etiketinin rengini beyaz zemin, mavi yazı olarak değiştirir.
• UserForm_MouseMove: Fare form üzerinde hareket ettiğinde düğmenin renklerini Tag özelliğinde saklanan değere döndürür.
• Label2_Click: Boş bir olay yordamıdır, işlem yapmaz.

Kodda dosya silme, dışarıya bağlantı veya benzeri zararlı bir işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın, form makrosunu seçip çalıştırın.
3. Açılan formdaki düğmeye tıklayın; ilerleme çubuğunun dolmasını ve çerçeve başlığındaki yüzde değerini izleyin.
4. Fareyi düğmenin üzerine getirerek renk değişimini görün.
5. Kendi uzun işlemlerinizde kullanmak için döngü sınırını (9000) ve içindeki işlemleri VBA düzenleyicisinde (Alt+F11) kendi işleminize göre değiştirin.