09. september 2005 - 21:49Der er
5 kommentarer og 1 løsning
Datoformat i inputbox
Ved et specielt kriterie har jeg sat regnearket til via vba at der skal komme en inputbox hvor brugeren skal indtaste en dato.
Hvis brugeren indtaster 1-4-05, så bliver det den 4. januar og ikke 1. april. Hvordan løser jeg dette. koden :
If Target.Address = "$I$25" Then If Range("i25").Value > 14 Then ' Inputbox ved indtastning af mere end 14 uger med løn for mor If MsgBox("Afholdes de " & Range("i25").Value - 14 & " uger i forlængelse af de 14 uger ?", vbYesNo + vbQuestion, "Afholdelse") = vbNo Then svar = InputBox("Indtast startdato for de " & Range("i25").Value - 14 & " uger" & vbNewLine & " " & vbNewLine & "Dato skal indtastes som 1-4-05") Range("s26") = svar End If Else Range("s26").Value = "=u25 + 1" End If End If
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
Jeg tror at den her kode kan gøre det. svar = DateValue(InputBox("Indtast startdato for de " & Range("i25").Value - 14 & " uger" & vbNewLine & " " & vbNewLine & "Dato skal indtastes som 1-4-05"))
If Target.Address = "$I$25" Then If Range("i25").Value > 14 Then ' Inputbox ved indtastning af mere end 14 uger med løn for mor If MsgBox("Afholdes de " & Range("i25").Value - 14 & " uger i forlængelse af de 14 uger ?", vbYesNo + vbQuestion, "Afholdelse") = vbNo Then svar = InputBox("Indtast startdato for de " & Range("i25").Value - 14 & " uger" & vbNewLine & " " & vbNewLine & "Dato skal indtastes som 1-4-05") Range("s26") = DateValue(Day(svar) & "-" & Month(svar) & "-" & Year(svar)) End If Else Range("s26").Value = "=u25 + 1" End If End If
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.
