Bu dosya, VBA kodunda çalışan bir döngünün tamamlanma yüzdesini UserForm üzerinde çubuk ve metin olarak gösteren bir ProgressBar örneğidir. Uzun süren işlemlerde ilerleme takip edilebilir; örnekteki yapı kendi döngünüze uyarlanabilir.
Dosyanın içeriği
- Sayfa1: A1:A14 aralığında a1, a2, a3 gibi örnek veriler bulunur. Sayfada, kullanıcı formunu açan bir CommandButton1 düğmesi çalışır.
- UserForm1: metin adlı etiket ile Bar adlı çubuk nesnesini içerir.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar dosya silme veya dışarıya bağlantı gibi işlemler yapmaz.- CommandButton1_Click (Sayfa1): Düğmeye tıklandığında UserForm1 formunu açar.
- UserForm_Activate (UserForm1): Form açıldığında kodunuz prosedürünü çağırır.
- kodunuz (Module1): 1'den 10'a kadar çalışan örnek bir döngüdür. Her turda A sütunundaki son dolu satır bulunur, A sütunu kopyalanır ve B sütununa değer olarak yapıştırılır. Döngü içinde iki satır yer alır: önce yüzde değeri hesaplanır (döngü sayacı x 10), ardından progress prosedürü çağrılır.
- progress (Module1): Etiketi "% Tamamlandı" metniyle günceller, Bar nesnesinin genişliğini yüzde değerinin 2 katı olarak ayarlar ve DoEvents ile ekranın yenilenmesini sağlar. Yüzde 100 olduğunda "İşlem Tamamlandı" mesajı gösterilir ve form kapatılır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Sayfa1 üzerindeki düğmeye tıklayın; form açılır ve ilerleme çubuğu dolmaya başlar.
- Kendi işleminizde kullanmak için Module1 içindeki örnek döngüyü kendi döngünüzle değiştirin.
- Döngünüzün içine yüzde hesaplayan satırı ve progress yuzde satırını ekleyin. Yüzde, döngü sayısına göre hesaplanmalıdır; örnekte döngü 10 tur olduğu için sayaç 10 ile çarpılır.
- Çubuk genişliği yüzde x 2 olarak ayarlandığından, Bar nesnesinin tam genişliği 200 birim olacak şekilde tasarlanmıştır.
