Avatar billede excelent Ekspert
15. januar 2006 - 15:28 Der er 13 kommentarer og
1 løsning

Pop-Up i 3-4 sek. som ikke kræver klik for at makro fortsætter ?

Hej experter
Kan man lave en popup som vises 3-4 sekunder "Vent...."
og som ikke kræver et klik for at køre videre?

Makro genererer herefter en journal, ud fra et ark med
233 linier, men skjuler alle tomme, så det tager lige
lidt tid. - 8-10 sek. inden der sker noget på skærmen.
Avatar billede kabbak Professor
15. januar 2006 - 15:58 #1
ja, en brugerdifineret

Lav en Userform, kald den Vent

skriv vent på formen

så i starten af din makro skriver du

Vent.Show

og sidst i koden

Vent.Hide

Husk at sætte formen ShowModal til False
Avatar billede excelent Ekspert
15. januar 2006 - 16:02 #2
hej kabbak, kan du gi et eksembel?
Avatar billede excelent Ekspert
15. januar 2006 - 16:12 #3
øhh skal jeg sætte en kommando knap ind i userformen?
Avatar billede excelent Ekspert
15. januar 2006 - 16:15 #4
nååe nu begynder det at dæmre
Avatar billede kabbak Professor
15. januar 2006 - 16:15 #5
Nej bare en labels, hvori du skriver de oplysninger du give brugeren
Avatar billede excelent Ekspert
15. januar 2006 - 16:20 #6
ShowModal til False  ???  hvor finder jeg den, eller skal den skrives hvor?
Avatar billede excelent Ekspert
15. januar 2006 - 16:22 #7
Sub vis()
Vent.Show
For i = 1 To 1000: Next ' pause hmm
Vent.Hide

End Sub

men den forsvinder ikke igen ???
Avatar billede excelent Ekspert
15. januar 2006 - 16:26 #8
nåe i propeties
Avatar billede excelent Ekspert
15. januar 2006 - 16:32 #9
hvis jeg sætter ShowModal til False
så kommer der kun en hvid userform frem uden tekst
før var den grå, med tekst, men den blev der så desværre
Avatar billede excelent Ekspert
15. januar 2006 - 16:44 #10
smid et svar kabbak, så prøver jeg om jeg kan få den til
at virke,. det lærer man også af :-) ellers opretter jeg et nyt ?
Avatar billede kabbak Professor
15. januar 2006 - 17:00 #11
Di giver den jo heller ikke tid til at opdatere, det kan den ikke, når du kører i løkke.

prøv denne

Sub vis()
Vent.Show
For i = 1 To 1000
DoEvents
Next ' pause hmm
Vent.Hide

End Sub
Avatar billede kabbak Professor
15. januar 2006 - 17:01 #12
og et svar ;-))
Avatar billede excelent Ekspert
15. januar 2006 - 17:15 #13
tak kabbak, jamen jeg er glad for at røde kinder klæder mig :-)
Avatar billede kabbak Professor
15. januar 2006 - 17:34 #14
tak for point
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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