Excel'de Excel VBA İlerleme Çubuğu
İlerleme Çubuğu , yürütmek için daha uzun süre gerektiren büyük kod kümeleri çalıştırdığımızda bir işlemin ne kadarının yapıldığını veya bitirildiğini gösteren bir şeydir, kullanıcıya işlemin durumunu göstermek için VBA'daki ilerleme çubuğunu kullanırız veya tek bir kodda çalışan birden çok işlem var, hangi sürecin ne kadar ilerlediğini göstermek için ilerleme çubuğunu kullanıyoruz.
İlerleme çubuğu, gerçek görev, kod tarafından verilen bir dizi talimatla ekranın arkasında çalışırken tamamlanan görevlerin yüzdesini gösterir.
VBA kodunun yürütülmesi önemli miktarda zaman aldığında, kullanıcının ne kadar çabuk bitirebileceğini bilmek kullanıcının endişesidir. Varsayılan olarak, görevi tamamlamak için tam zamanı beklememiz gerekir, ancak ilerleme çubuğunu ekleyerek VBA kodunun ilerlemesini öğreniriz.
Hemen hemen tüm bilgisayar yazılımlarında, aşağıdaki görüntüdeki gibi gerçekleştirdiğimiz görevin ilerleyişini gösteren bir ilerleme çubuk grafiği görüyoruz.
Excel'de VBA kodlamasını kullanarak İlerleme Çubuğu oluşturabiliriz. Nasıl bir ilerleme çubuğu oluşturabileceğimizi hiç merak ettiyseniz, o zaman bu makale tam size göre.
Kendi İlerleme Çubuğunuzu Oluşturun
Bir ilerleme çubuğu oluşturmak için birkaç adım izlememiz gerekir. İlerleme çubuğu grafiği oluştururken dahil edilecek adımlar aşağıda verilmiştir.
Adım 1: Yeni bir Kullanıcı formu oluşturun veya ekleyin.
Yukarıdaki seçeneğe tıkladığınız anda aşağıdaki gibi bir kullanıcı formu göreceksiniz.
Adım 2: VBA özellikleri penceresini görmek için F4 tuşuna basın .
Bu özellikler sekmesinde, eklediğimiz VBA Kullanıcı Formunun özelliklerini değiştirmemiz gerekiyor.
Adım 3: Kullanıcı formunun adını UFProgressBar olarak değiştirin.
Artık bu kullanıcı formuna kodlama sırasında “UFProgressBar” adıyla başvurabiliriz.
Adım 4: Kullanıcı formunun Model Göster Özelliğini FALSE olarak değiştirin.
Adım 5: Şimdi, ihtiyaçlarınıza uyacak şekilde kullanıcının hizalamasını ayarlayın. Kullanıcı formunun Yüksekliğini 120 ve genişliğini 300 olarak değiştirdim.
6. Adım: Kullanıcı formunun Başlığını "İlerleme Durum Çubuğu" olarak değiştirin.
Adım 7: Şimdi, kullanıcı formunun araç kutusundan en üstteki kullanıcı formuna LABEL ekleyin.
Bu etiket ile etiketin özelliklerini ayarlamamız gerekiyor. Başlığı silin ve boş bırakın ve etiketin genişliğini ayarlayın.
8. Adım: Etiketin Adını "ProgessLabel" olarak değiştirin.
Adım 9: Şimdi, araç kutusundan çerçeveyi alın ve önceki adımlarda yerleştirdiğimiz etiketin hemen altına çizin. Çerçevenin kullanıcı formunun ortasında olduğundan emin olun.
Adım 10: Şimdi, eklediğimiz kullanıcı formuyla tamamen aynı görünmesi için Frame'in bazı özelliklerini değiştirmemiz gerekiyor.
Özellik 1: Çerçevenin Adını "ProgressFrame" olarak değiştirin.
Özellik 2: Başlığı silin ve boş bırakın.
Özellik 3: Çerçevenin Özel Efektini 6 - fmSpecialEffectBump olarak değiştirin.
Tüm bu değişikliklerden sonra kullanıcı formumuz böyle görünmelidir.
Adım 11: Şimdi bir etiket daha ekleyin. Bu sefer etiketi yerleştirdiğimiz çerçevenin hemen içine yerleştirin.
Etiketi yerleştirirken, yukarıdaki resimde gösterildiği gibi, etiketin sol tarafının yerleştirdiğimiz çerçeveye tam olarak uyduğundan emin olun.
Adım 12: Etiketi yerleştirdikten sonra etiketin özelliklerini aşağıdaki gibi değiştirin.
Özellik 1: Etiketin adını "MainProgressLabel" olarak değiştirin.
Özellik 2: Başlığı silin.
Özellik 3: Arka plan rengini isteğinize göre değiştirin.
Tamam, şimdi ilerleme çubuğunu kurma sürecini bitirdik ve bu noktada, şuna benziyor.
Şimdi bunun mükemmel çalışmasını sağlamak için kodları girmemiz gerekiyor.
Adım 13: Framework'ü yapmak için aşağıdaki makroyu excel'e ekleyin.
Kod:
Alt InitUFProgressBarBar () UFProgressBar ile .Bar.Width = 0 .Text.Caption = "0%". VbModeless End With Göster
Şimdi, bu kodu manuel olarak veya F5 tuşuyla çalıştırırsanız, bunun gibi ilerleme çubuğunu görmeliyiz.
Adım 14: Şimdi, görevimizi gerçekleştirmek için bir makro oluşturmamız gerekiyor. 1'den 5000'e kadar seri numaraları ekleme görevini yerine getiriyorum. Bu kodun yanı sıra, ilerleme çubuk grafiğini de yapılandırmamız gerekiyor. Yeni kod, sizin için özel olarak hazırlanmış koddur.
Kod:
Sub ProgressBar_Chart () Dim i As Long Dim CurrentUFProgressBar As Double Dim UFProgressBarPercentage As Long i = 1 Call InitUFProgressBarBar Do I <= 5500 Cells (i, 1) .Value = i CurrentUFProgressBar = i / 2500 BarWidth = UFProgress. Border.Width * CurrentUFProgressBar UFProgressBarPercentage = Round (CurrentUFProgressBar * 100, 0) UFProgressBar.Bar.Width = BarWidth UFProgressBar.Text.Caption = UFProgressBarPercentage & "% Complete" DoEvents i = i + 1 Loop EndFProgress
