Hesaplama Anında ProgresBar Çalışması

[halilibo33]

Merhaba arkadaşlar

Ekteki örnekte 2 adet checkbox var. burada yapmaya çalıştığım checkboxlara tıkladığımda userform açılsın progresbar çalışsın ve hesaplama bittiğinde kapansın gibi birşeyler istiyorum. Normal çalışmam çok yüklü bir dosya olduğu için buraya sadece bir taslak ekledim. Normal çalışmamda hesaplama süresi yaklaşık 60 - 80 saniye arasında değişiyor kullanıcılar hesaplama yapıldığını zandediyor mause ile hücreye tıkladığında veya klavyeden müdahale ettiğinde hesaplama sona eriyor ve bu şekilde doğru veriyi göremiyor bunu engellemek için böyle bir çalıma gerekiyor elinizde buna benzer örnekler varsa paylaşırsanız sevinirim.

iyi çalışmalar kolay gelsin.

 

[halilibo33]

Merhaba Arkadaşlar Böyle Bi Çözüm Buldum Ama Hesaplama Yaparken Sürekli Yeniliyor Ve Yeniden hesaplamaya Başlıyor. Normalde 1 Dakikada hesaplanan Birşey 10 Dakka Gibi Bir Süre Sürüyor..

Yardımlarınızı Bekliyorum...

Private Sub UserForm_Activate()
For X = 1 To 100
    ProgressBar1.Value = (X / 100) * 10
    Application.Calculate
    Label2.Caption = Format(ProgressBar1.Value, "% 00")
    DoEvents
    Next X
    Unload Me
End Sub