Miałem problem tego samego typu....
jak makro mieli dane ok 10 min to nigdy nie wiadomo czy już skończył czy już się zawiesił, a może w ogóle co inne.
Zrobiłem sobie takiego małego własnego statusbara z formy.
Jest tam pasek i pole TextBox gdzie wyświetlane są aktualne zadania.
Formy nie pokaże, ale procedury obsługujące wyglądają tak:
Sub AktualizujPostep(Tekst As String, Wartosc, Max)
Dim a As Integer
Static Postep As Byte
If Postep = CInt((Wartosc / Max) * 100) Then Exit Sub
Postep = CInt((Wartosc / Max) * 100)
With UFAkcja
.LPOpis.Caption = Tekst
.LPpostep.Width = 204 * (Wartosc / Max)
.LPProcenty.Caption = Postep & "%"
.Repaint
End With
End Sub
Sub DodajLog(Tekst)
With UFAkcja
TBPLogi.Text = TBPLogi & Tekst & Chr(13)
End With
End Sub
Dodatkowo jak ktoś inny kożysta z makr to widzi jak na dłoni co robi kod i ile już ma za sobą.
Sprawa naprawdę prostacka a niektórych laików ścina z nóg że excel takie żeczy potrafi....
Jak ktoś chce formatkę niech wyśle maila, jednak zachęcam do własnoręcznego ułożenia kontrolek...
Pozdrawiam |
wstecz 1 dalej
otwarty rozpoczął: mcgluszak
postów: 3
