Progress bar eklemek

[cocoa35]

kadaşlar ;
Aşağıda eklemiş olduğum kendi hazırlamış olduğum programımın bir bölümü olan Döviz güncelleme userform ve kod'larını görmektesiniz. Benim yapmak istediğim UserForm üstündeki CommandButton'a tıkladığımda bir ProgressBar çıksın ve işlem bitinceye kadar hem şerit hemde % olarak göstersin.işlem tamamlandığında kaybolsun.
Bu konuda yardımcı olurmusunuz? Teşekkürler.

 

[cocoa35]

 

[hb3102]

Merhaba
http://www.excelgurusu.com/t-c-m-bden-gunluk-doviz-kurlari-ve-alt-yazi-bant/
yukarıdaki adresi google de aratırsan İdris Serdar Bey'in hazırladığı örnek dosya mevcut umarım işinize yarar.

 

[cocoa35]

https://www.dropbox.com/s/6u38rbly0c179vv/D%C3%96V%C4%B0Z%20KOD.png?dl=0

 

[cocoa35]

https://www.dropbox.com/s/620c9lhnqt85hou/D%C3%96V%C4%B0Z%20G%C3%9CNCELLEME.png?dl=0

 

[cems]

Dropbox üye olunması gereken bir alan ve indirilecek materyal bir resim . Bu şekilde bir çözüm önermek zor .

Dosyanızı ya da birebir bu kısma ait örneğini www.filebig.net ya da www.dosya.tc gibi bir yere yüklerseniz soru çözümü için üyelik açmaya gerek olmaz.

Altın üyesiniz , mesajlarınızdan birinde sağ altta gelişmiş mod tuşuna basarak sol altta dosya yükle tuşuna bastıktan sonra gelen formda , dosyanın yolunu gösterdikten sonra upload tuşuna bastığınızda yükleme tamamlanır ve yan formu kapatıp mesajı da sağ üstte olan tuşla kapatabilirsiniz.

http://www.excel.web.tr/f59/sorunun-devamynda-atac-eklemek-dosya-eklemek-t32554.html

 

[cems]

Userform açılış kodları

Private Sub UserForm_Initialize()
   ProgressBar1.Max = 100
  ProgressBar1.Min = 0.1
  ProgressBar1.Visible = False
  Label2.Visible = False
End Sub

Tamam tuşu altına ekleyeceğiniz kodlar

Private Sub CommandButton1_Click()

'Sayfa1.Range("A2").Value = TextBox1.Text
'Unload Me
'Sayfa14.Activate

  Dim i As Integer
 ProgressBar1.Visible = True
 Label2.Visible = True
  For i = 1 To 1000
    ProgressBar1.Value = (i / 1000) * 100
    Label2.Caption = Format(Int((i / 1000) * 100), "%0")
    DoEvents
  Next i
 ProgressBar1.Visible = False
 Label2.Visible = False
End Sub

Diğer kodlarınızdan bazıları bu işlevden sonra gelmeli . Tuşa bastığınızda progressbar ve yuzde etiketi çalışıyor, 100 e ulaşınca görünmezleşiyor.

Örnek dosyanız ekte.

Başka bir konu ise , profilinizde kullandığınız excelin versiyon ve dili olmalı. Zira eski ya da çok yeni versiyonlarda farklı uygulama olabiliyor ve versiyon çatışması yüzünden verilen bilgi işe yaramaz sanılabiliyor.

Excel Vers. ve Dili:
ileri düzey excel

Kısmını düzeltmeniz , alacağınız yardımda sizdeki ve eldeki olanak ve versiyona bakma açısından önemli....

 

[Zeki Gürsoy]

Office mimarisi 64 bit ise progressbar nesnesi çalışmayacaktır. 3 adet label ile gayet şık bir progresbar yapılabilir.

http://www.excel.web.tr/f144/class-orneoi-prosesbar-t76518.html

.

 

[cocoa35]

Zeki bey göndermiş olduğunuz örneği benim userform'a uyguladım. Userform'da Commandbuttona tıkladığımızda Progressbar çubuğu işliyor %100 'e kadar işlem yapıyor.Ancak bu işlem biraz görsel olmuş sadece benim makro ile uyumlu çalışmıyor.
Örneğin benim örnek userform'da Tarih girildiğinde Döviz değerleri ilgili sayfaya yazıyor ancak bu işlem yaklaşık 50-60 sn sürüyor bu süre içinde userform açık kalıyor ancak progressbar 10 sn'de bitiyor. yani anlıyacağınız bu düzelebilirmi? commandbutona tıkladığımda progressbar'çalışmaya başlasın işlem bittiğinde %100 'e ulaşsın? bu yapılabilirmi?

 

[Zeki Gürsoy]

Progressbar mantığını anlamaya çalışın.
"Max", işlemin toplamda kaç kez çalışacağını gösterir.
"Value", 0' dan "max" değerine kadar alacağı değeri gösterir ki, bu da barın durumunu gösterir.

Program akışınızı bilmiyoruz ama bir döngü çalışıyor olmalı. Döngünün sayacı ile "Value" i artırın.

 

[Believing]

Sanırım mesajımı farklı konuya yazdım. Bu mesajı dikkate almayınız lütfen.
Mümkünse mesajın silinmesini rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ