Søg
Avatar billede KenneyD71 Nybegynder
13. december 2012 - 15:16 Der er 3 kommentarer og
1 løsning

Messagebox hvis idag efter Jul men før nytår

Jeg har et userform.
jeg ønsker at der, når den åbner i et givent tidsrum i selve userformen, kommer med en besked.

fx.
Hvis dato i dag er mellem 24-12 og 31-12 så tekst "godt nytår".
Hvis dato i dag er mellem 22-12 og 24-12 så tekst "god jul"

How to do?
Avatar billede store-morten Ekspert
13. december 2012 - 19:16 #1
Prøv:
Private Sub UserForm_Initialize()
'Popup Boks
If Date > "22-12-2012" And Now < "24-12-2012" Then
MsgBox vbTab & "God" & vbCrLf & vbTab & vbTab & "Jul" & vbTab, , "En lille hilsen " & Date
End If
If Date > "24-12-2012" And Now < "31-12-2012" Then
MsgBox vbTab & "Godt" & vbCrLf & vbTab & vbTab & "Nytår" & vbTab, , "En lille hilsen " & Date
End If

'Oprettet Label på Userform, med navnet: Label1
Label1.Caption = ""
If Date > "22-12-2012" And Now < "24-12-2012" Then
Label1.Caption = "God Jul"
End If
If Date > "24-12-2012" And Now < "31-12-2012" Then
Label1.Caption = "Godt Nytår"
End If
End Sub
Avatar billede kabbak Professor
21. december 2012 - 08:57 #2
store-morten
jeg vil nok have lavet den sådan, så gælder den for alle år.

Private Sub UserForm_Initialize()
'Oprettet Label på Userform, med navnet: Label1
    Label1.Caption = ""
    If Month(Date) = 12 Then
   
      If Day(Date) >= 22 And Day(Date) <= 24 Then
        Label1.Caption = "God Jul"
      End If
     
      If Day(Date) >= 25 And Day(Date) <= 31 Then
        Label1.Caption = "Godt Nytår"
      End If
     
    End If
End Sub
Avatar billede KenneyD71 Nybegynder
04. januar 2013 - 15:48 #3
Tak for bidraget, Store Morten. Det var hjælpsomt.

Kabbak, din løsning var lige i øjet og præcis hvad jeg havde brug for.

Giv et "svar" og du får en håndfuld point.
Avatar billede kabbak Professor
05. januar 2013 - 21:30 #4
et svar
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 13:13 Batch OCR Af KurtG i Billedbehandling
I dag 10:42 AI integreret i Access Af per2edb i Access
04/0409:43 AI google.com Af Peter Olsen i Andre onlineløsninger
31/0310:22 Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel
30/0313:45 Kablet forbindelse mellem android telefon og windows 11 pc Af 1Dorte i Android
White papers
Flere white papers »