Userform med en ProgressBar

hej michael.
http://www.j-walk.com/ss/excel/tips/index.htm

klik på
'UserForm Tips'
se nærmere på linket
'Creating a "Splash Screen" for an Excel Workbook'

Tænkte om du kunne bruge noget her

er fra dette spørgsmål
http://www.eksperten.dk/spm/689035

der er flere interesante links jeg er ved at studere nærmere

http://www.j-walk.com/ss/excel/tips/tip34.htm

Hej excelent
ja nu har jeg fået den til at vise en userform i 5 sek
og lukke ned og starte en anden
men jeg vil gerne have ProgressBar til at køre
jeg ved i vb at man skal sidte en timer til noget line???

mvh

mvhansen

prøv se link fra kl 21:09:32

du kan downloade den, så må den kunne tilrettes dit behov

Ja men er det ikke label man bruger og ProgressBar

mvh

mvhansen

Undskyld jeg er en sprogspasser

Ja men er det ikke label man bruger og ikke en ProgressBar

mvh

mvhansen

ved ikke, de kalder det progressbar

Jeg prøver lige

Jeg syntes ikke jeg kan få det til at virke, jeg skal heller ikke have alle de tal den laver
der må da være en lille bitte kode for at få en progressbar til at kore i 5 sek

mvh

mvhansen

Private Sub UserForm_Activate()
    Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"
End Sub

"KillTheForm" skal udskiftes med navnet på din sub som
skjuler (unloader) din form

Ja det er til at lukke formen ned med ikke


mvh

mvhansen

jo som jeg forstår det, fandt det her:
http://www.j-walk.com/ss/excel/tips/tip39.htm

Hej excelent

Prøv at se her er en med label

http://www.michael.hansen7500.dk/excel/Progressbar.xls

mvh

mvhansen

ja den er næsten mage til den jeg henviste til

Jeg tror jeg bruger den kan du smide et svar

og tak for hjælpen

mvh

mvhansen

du må hellere lade spørgsmålet stå åben,
det var blot en henvisning til at komme videre :-)

hvad skal den pause (progressbar) bruges til?

Jeg ville bare prøve om jeg kunne lave en.
det næste bliver engang jeg får lavet noget der tager noget tid at load,
og få progressbar bunden til load tiden.
men lig et svar så kan vi dele point, så opretter jeg et nyt spørsmål
til den tid, hvis jeg ikke har fundet ud af det til den tid

mvh

mvhansen

ok

mvhansen -> jeg har også modificeret jwalk's til tid

http://www.tbdl.dk/excel/progress5sec.xls

Hej bak

Der er ikke den opgave du ikke kan løse,
har jeg på fornemmelsen
tak skal du have

mvh

mvhansen

Hej bak
kan du sige mig hvad jeg mangler for at få denne progressbar til at køre
http://www.michael.hansen7500.dk/excel/Mappe1.xls

mvh

mvhansen

Jeps
1. I userformens properties skal ShowModal = False
2. Jeg har modificeret koden ganske let, således at ikke hele userformen RePaintes, men kun Progressbarer..

Sub Main()
'  Inserts random numbers on the active worksheet
    Dim PctDone As Long
    Dim t As Single, x As Single, m As Long
    Dim Sec_2_Show As Long
    Sec_2_Show = 5
    UserForm1.Show
    DoEvents
    t = Timer
    While x < Sec_2_Show
        x = Timer - t
        PctDone = CLng((x * 100 / Sec_2_Show))
        Call UpdateProgress(PctDone / 100, x)
    Wend
    Beep
    Unload UserForm1
End Sub

Sub UpdateProgress(Pct, tid)
    With UserForm1
        .FrameProgress.Caption = Format(tid, "0.# sek.")
        .LabelProgress.Width = Pct * (.FrameProgress.Width - 10)
        .FrameProgress.Repaint
    End With
End Sub

Tak

mvh

mvhansen