CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Butterfly Ekspert

30. august 2023 - 14:29 Der er 4 kommentarer og
1 løsning

Excel pop up for sjov

Hej
Kan man lave en pop up, evt. en UserForm der popper op efter hvilken dato det er?
Jeg vil gerne lave en pop up til mine kolleger, hvor der står, rolig - jeg er tilbage om 3 uger, og ugen efter skal der stå, nu er der kun 2 uger tilbage, og endelig efter endnu en uge skal der stå, ja, nu er der lys for enden af tunnelen, om kun 1 uge er jeg tilbage.
Det skal knyttes sammen med en eksisterende makro, men det har jeg styr på. Men hvordan styrer jeg den / de andre pop up?

Synes godt om

ebea Ekspert

30. august 2023 - 15:11 #1

I tilfælde af at bruge en Pop-up form, hvad skulle så styre den. Er det hver gang at et dokument åbnes, eller?

Du kan jo også blot lave en betinget formatering, med en tekst, som er styret efter datoer, indlagt i x celler.

Synes godt om

1 synes godt om dette

MaxZpaD Professor

31. august 2023 - 14:52 #2

Enig med ebea i, at man skal vide, hvad triggeren for pop-up er. En UserForm ligger defineret i VBA-projektet i en given Excel-fil, så det ville kun være, når netop denne fil startes.

Hvis triggeren skal være, at brugeren starter Excel, skal der på hver brugers pc være installeret f.eks. et Excel-tilføjelsesprogram (.XLAM-fil), som indeholder et Class Module, der kan opfange den "event", at Excel åbnes. Dette kan også ligge i brugerens personlige projektmappe (PERSONAL.XLSB), men den er lidt sværere at "skubbe ud"/opdatere for mange brugere ad gangen.

Synes godt om

Butterfly Ekspert

20. september 2023 - 14:13 #3

hej
undskyld det sene svar, men nu har jeg holdt ferie.
Styringen skal være hver gang filen åbnes.

Synes godt om

store-morten Ekspert

20. september 2023 - 21:37 #4

Prøv denne kode, lægges i: Denne_projektmappe

Private Sub Workbook_Open()

StartDag = "11-09-2023"

forskel = DateSerial(Year(Date), Month(Date), Day(Date)) - DateSerial(Year(StartDag), Month(StartDag), Day(StartDag))

Select Case forskel

Case 0 To 6

MsgBox "Rolig - jeg er tilbage om 3 uger."

Case 7 To 13

MsgBox "Nu er der kun 2 uger tilbage."

Case 14 To 20

MsgBox "Ja, nu er der lys for enden af tunnelen, om kun 1 uge er jeg tilbage."

End Select

End Sub

Synes godt om

1 synes godt om dette

Butterfly Ekspert

21. september 2023 - 10:37 #5

Mange tak store-morten, det virker perfekt

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Vise flere ark fra samme workbook Af Nanarsi i Excel	2	I dag 10:33	I dag 11:17
Makro: Hvis fundet flere, så.... Af EveryMA i Excel	1	I går 15:28	I dag 08:09
Dato opslag Af Klaus W i Excel	2	05/05/202416:17	05/05/202420:45
Slet automatisk indehol i felt så det blivet tomt Af gylling i Excel	1	05/05/202409:22	05/05/202417:02
Træk dato og måned ud af celle Af Klaus W i Excel	4	04/05/202413:46	04/05/202417:10

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS