popup vindue

Kan du bruge statusbar

prøv at køre denne og se på statusbaren, nederste linje i excel


Public Sub Test()
Dim I
Application.StatusBar = "arbejder med hentning af data"
For I = 1 To 100000000: Next
Application.StatusBar = " arbejder med formatering af data"
For I = 1 To 100000000: Next
Application.StatusBar = " arbejder med aflevering af data"
For I = 1 To 100000000: Next
Application.StatusBar = " Færdig"
For I = 1 To 100000000: Next
Application.StatusBar = ""

End Sub


øverst i hver makro, kan du så vælge hvad der skal stå i statusbaren

Lige en oplysning hvis statusbaren ikke er synlig, får man den frem via VBA sådan her.

Application.DisplayStatusBar = True

hvis der ikke er andre forslag er dette dog en mulighed, jeg tænkte om man kunne få en boks midt på skærmen som popper op ved start og forsvinder når alle makroer er færdig!

Det kan du godt, så skal du lave en userform, skriv noget på den og få  den frem når første makro køres.
Bemærk. Userformen skal have tid til at komme frem, så du skal lave en løkke, med do events i, for at den dukker frem, med tekst i.

jeg laver lige et eksempel

Public Sub Start()
Vent.Show ' Vent er navnet på min Userform
For I = 1 To 10000 ' hvis vi ikke giver tid inden makroer køres, kommer userformen ikke frem
DoEvents
Next

' kald så dine makroer her
Vent.Hide
Unload Vent
End Sub

Husk at sætte userformen properties ShowModal til False

takker...

det er mig, der skal svare ;-))

et spørgsmål til Kabbak du skriver at hvis man vil havde statusbaren synlig
skal man indsætte denne( Application.DisplayStatusBar = True )men hvor skal den være i forhold til det andet du har skrevet.

anne-lise > Den skal bare være i starten af koden, inden du skriver hvad der skal stå i den.

Eksempel :

Public Sub Test()
    Dim I, Synlig As Boolean
    Synlig = False
    If Application.DisplayStatusBar Then Synlig = True    ' tjekker om baren er synlig
    If Not Synlig Then Application.DisplayStatusBar = True    ' hvis ikke gøres den synlig
    Application.StatusBar = "arbejder med hentning af data"
    For I = 1 To 100000000: Next
    Application.StatusBar = " arbejder med formatering af data"
    For I = 1 To 100000000: Next
    Application.StatusBar = " arbejder med aflevering af data"
    For I = 1 To 100000000: Next
    Application.StatusBar = " Færdig"
    For I = 1 To 100000000: Next
    Application.StatusBar = ""
    If Not Synlig Then Application.DisplayStatusBar = False    ' hvis den ikke var synlig ved start, lukkes den igen
End Sub

til Kabbak.:
1000 Tak for hjælpen