Progressbar

[hakanbent]

Sayın hocalarım ve forum arkadaşlarım;

Excel'de öğrenmek ve uygulama geliştirme amaçlı olarak, adres defteri yapıyorum. Tabi VBA'yı daha tam olarak öğrenemediğim için bazı sorunlar ile karşılaşıyorum.

Sorum ise;

İki adet Userformum var. İlk Userformumda programı tanıtıcı bir yazı var. Programın güzel gözükmesi için altına bir tane progressbar koydum (Sanki program yükleniyormuş gibi gözüksün diye...). Progress bar dolduğunda userform2'ye geçsin istiyorum. Biraz komik kodlar yazdım.

Userform1'in kod bölümüne yazdığım kodlar.
Private Sub UserForm_Activate()
Dim i, j, asal As Boolean
ProgressBar1.Min = 0
ProgressBar1.Max = 100
For i = 0 To 100
ProgressBar1.Value = i
If ProgressBar1.Value = 100 Then
UserForm2.Show
UserForm1.Enabled = False
Exit Sub
End If
Next i
End Sub

Module yazdığım kodlar
Private Sub auto_open()
Application.Visible = False
UserForm1.Show
End Sub

Ancak bu kodlarda; progressbar çubuğu ilerlemiyor, iki tane açılan formda kapanmak bilmiyor. İstediğim. Progressbar çubuğu sona geldiğinde otomatik olarak userform2'ye geçsin ve Userform1 kapansın. Yardımlarınız için şimdiden teşekkür ederim.
Not: Bu program bitesiye kadar sevgili hocalarımın biraz başını ağırtacağım.

En derin saygı ve muhabetlerimle

 

[Levent Menteşoğlu]

Aşağıdaki kodu userform1 in kod sayfasına kopyalayın.

Private Sub UserForm_Activate()
ProgressBar1.Min = 0
ProgressBar1.Max = 10000
For i = 0 To 10000
DoEvents
ProgressBar1 = i
Next
UserForm2.Show
End Sub

Aşağıdaki koduda userform2 ye kopyalayın.

Private Sub UserForm_Initialize()
Unload UserForm1
End Sub

 

[hakanbent]

Sayın LeventM hocam;

Kodlar süper çalışıyor elinize emeğinize sağlık. Sayın hocam gönderdiğiniz kodlarda bir de sorum olacak "DoEvents" ve ""Private Sub UserForm_Initialize()" kodlarının görevleri nelerdir. Bunları açıklarsanız çok sevinirim.

En derin saygı ve muhabetlerimle.

 

[Levent Menteşoğlu]

Döngülerde işlem hızı çok yüksek olduğundan işlemin sonucu ekrana yansımaz, bu sebeple doevents komutu kullanılarak sonucun ekrana yansıması sağlanır. Başka bir açıklaması varsa lütfen bilen üyelerimiz gerekli ilaveyi yapsınlar.

Userform_initialize de userformun aktif olmadan önce istenilen kodların çalıştırılmasını sağlayan olayıdır. Özellikle combobox veya listbox gibi nesnelere veri yüklenecekse gerekli kodlar bu olaya (event) yazılırki userform açıldığında yüklemeler tamamlanmış olsun.

Örneğin yukarıdaki kodda önce userform2 görünmeden önce userform1 kapatılır.

Elbette bu olaya çok yüklü kodlar yazılması userformun açılmasını geciktirecektir.

 

[hakanbent]

Teşekkür

Sayın LeventM Hocam;

İlginiz ve açıklamalarınız için çok teşekkür ederim. İyiki varsınız:icelim:

En derin saygı ve muhabetlerimle.

 

[Zeki Gürsoy]

"DoEvents" in en önemli yanı döngü devam ederken diğer olay ya da prosedürün çalışmasına olanak tanır.