Avatar billede sibben Nybegynder
08. december 2004 - 10:14 Der er 8 kommentarer og
1 løsning

Vba - messagebox - loadtid

Hej,

Jeg har et excelark med en makro som kører og som tager lang tid at køre. (ca. 2 min.).

Jeg vil gerne lave en messagebox som vises mens makroen kører, så brugeren kan se at makroen er igang med at hente og bearbejde data.

Kan det lade sig gøre??

vh
Sibbben
Avatar billede stewen Praktikant
08. december 2004 - 10:32 #1
Du er nok nød til at lave en userform.. bare en userform uden knapper hvor du kunne skrive: "Data behandles - vent venligst"

og så i din makro:

Sub dinmakro()

Load Navnet_på_din_userform
application.screenupdating = false

din kode...

application.screenupdating = true
Unload Navnet_på_din_userform

end sub
Avatar billede stewen Praktikant
08. december 2004 - 10:38 #2
Rettelse:

Sub dinmakro()

Load Navnet_på_din_userform
Navnet_på_din_form.Show
application.screenupdating = false

din kode...

application.screenupdating = true
Unload Navnet_på_din_userform

End sub
Avatar billede sibben Nybegynder
10. december 2004 - 08:52 #3
Jeg syntes ikke rigtig at det virker :-(

Den kører ikke videre når den kommer til
***.show -delen.
Avatar billede bak Forsker
10. december 2004 - 09:01 #4
I userformens properties prøv at sætte ShowModal til False
Avatar billede stewen Praktikant
10. december 2004 - 09:01 #5
nå ja selvfølgelig...

i dit module laver du følgende kode:

Sub dinmakro()

Load Navnet_på_din_userform
Navnet_på_din_userform.Show

End Sub

Marker din userform - højreklik og vælg "View Code" - her indsætter du følgende kode:

Private Sub UserForm_Activate()
Application.ScreenUpdating = False

MsgBox ("det virker"), vbOKOnly

Unload Private Sub UserForm_Activate()
Application.ScreenUpdating = True
End Sub
Avatar billede stewen Praktikant
10. december 2004 - 09:03 #6
ShowModal til False er endu nemmere
Avatar billede bak Forsker
10. december 2004 - 09:21 #7
du kan få lidt problemer med userformens visning
systemer kunne se sådan her ud

UserForm1.Show False  'sætter modal til falsk
DoEvents
Application.ScreenUpdating = False

'''din kode her

Unload UserForm1
Avatar billede sibben Nybegynder
05. januar 2005 - 10:28 #8
tak for svaret fordelingen giver 20/10
Avatar billede sibben Nybegynder
05. januar 2005 - 10:29 #9
Jeg giver pointene nu... skal bare lige finde hvor :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester