Sziasztok!
Van egy munka lapom amire kb.: 10-12 internetes oldalról érkeznek rss hírek. Amikor belépek erre a lapra először mindig frissíti a híreket. Ez akár több perces folyamat is lehet. Már megoldottam azt, hogy ne a frissülő, vibráló, ugráló képernyőt kelljen nézni, betettem egy számomra tetszetős kékes árnyalatú a hír témába vágó képet. Ami ,remélem nem véletlen, az egész folyamat alatt látszik…. Kivéve, ha az Excel program nem válaszol. ( egyébként meg lehet oldani, hogy akkor is ez a kép látszódjon? Gondolom nem…. Már mag a kérdés is hülyeség, ugye???!!!!!)
No, de a lényeg….
A frissitési folyamat alatt a képen szeretnék futtatni egy valós folyamatot tükröző progress bart. Olyan progres bar-om van ami kamu, ezt is belehetne illeszteni valahogy a frissitési folyamat előre haladását mutatandó? Próbálkoztam vele, de valószínűleg rossz helyre illesztettem be, mutatta a %-ot meg a csík is mozgott, de iszonyú lassú lett tőle az egész folyamat. Talán egy óra is… 🙂
Tudna valaki ebben segíteni?
Private Sub Worksheet_Activate()
UserForm10.show
End Sub
Private Sub CommandButton1_Click()
Application.screenupdating = False
ThisWorkbook.RefreshAll
Application.screenupdating = True
Unload Me
Userform14.show
End Sub
Private Sub UserForm_Activate()
Dim i As Long, j As Long
For i = 2 To 100 Step 2
For j = 1 To 4000000: Next
DoEvents
Userform14.Caption = i & „% komplett”
Label1.Width = i * 2
Next
Unload Me
End Sub
Üdv.: Potus
.
