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 Guru

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

Excel kurser

Stort udvalg af Excel kurser til alle niveauer og jobfunktioner

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Konvertere 100/ til 60/ minutter (celleformatering) Af boro23 i Excel	3	I dag 10:27	51 minutter siden
Skabelon til excel Af Jordegern i Excel	5	01/02/202512:52	01/02/202521:54
Kombinere tekst og tal Af 1Dorte i Excel	3	31/01/202519:11	31/01/202523:01
Formel til opdeling Af Chortik1 i Excel	6	29/01/202508:25	30/01/202510:25
Anden mindste værdi i en række Af ABE15 i Excel	6	26/01/202516:26	27/01/202508:08

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