Hej Är det ett måste att du använder VB? Hej Lizzu och tack för ditt snabba svar Hej!Datum i ExcelVB
Jag är lite novis i vb och har försökt att skapa en automatisering i excelVb. Tanken är att jag skriver Januari-03 i en cell och sedan skall det automatiskt komma upp veckodagen i en annan cell. Därefter auomatiskeras 30 dagar med följande veckodagar. Detta fungerar men jag kan inte få första datumet att stämma.
Någon som kan hjälpa.
Koden
Private Sub Workbook_Open()
Dim JanDate
Worksheets("Rooster").Range("C8").Activate
JanDate = Range("B2").Value '#1/1/2003# ' Assign a date.
Range("C8") = Weekday(JanDate)
If Month(JanDate) = 1 Or Month(JanDate) = 3 Or Month(JanDate) = 5 _
Or Month(JanDate) = 7 Or Month(JanDate) = 8 Or Month(JanDate) = 10 _
Or Month(JanDate) = 12 Then
For TheDay = 1 To 30
Cells(8, TheDay + 3).Value = JanDate + TheDay
Next TheDay
Range("AE9") = "29"
Range("AF9") = "30"
Range("AG9") = "31"
Else
If Month(JanDate) = 2 Then
For TheDay = 1 To 27
Cells(8, TheDay + 3).Value = JanDate + TheDay
Next TheDay
Range("AE8:AG9") = ""
Else
If Month(JanDate) = 4 Or Month(JanDate) = 9 Or Month(JanDate) = 11 Then
For TheDay = 1 To 29
Cells(8, TheDay + 3).Value = JanDate + TheDay
Next TheDay
Range("AG8:AG9") = ""
Range("AE9") = "29"
Range("AF9") = "30"
End If
End If
End If
End SubSv: Datum i ExcelVB
Excel erjbuder många smidiga funktioner utan kod. Som om detta skulle räcka är det nog enklare... ;-)
Skriv ett datum i t ex A2
I A3 skriver du = A2+1
Fyll denna formel neråt så långt du vill ha den
I B2 skriver du =A2
Formatera B2 till att visa veckdagen
Dubbeklicka i den lilla svarta punkten i B2 - och formeln är fylld så långt det finns värde i A-kolumnen...
Vet inte om det är ett alternativ...Sv: Datum i ExcelVB
Programmet jag gjort är ett schema över arbetade dagar och genom att fylla i B2 med datumet (ex January-03) så skall programmet automatiskt fylla i dagarna för den månaden. Fyller jag i Februari-03 så skall dagarna för denna visas. Jag har också gjort så att "rätt" antal dagar fylls i ( 28 för februari osv...) Så det ligger en viss automatik i det hela. Men jag löste lite av problemet tack vare ditt svar. Skriver jag Jan-03 blev svaret 2003-01-03, och det ville jag inte ha. Men skriver jag Jan-2003 så blev det rätt.
Som sagt, jag är en novis i programmering men det är tillfredsställande att lösa problem.
Tack än en gång
EjnarSv: Datum i ExcelVB
Kul att det kunde hjälpa dig! Det finns ju som sagt många sätt att lösa saker och ting - visst är det härligt att man aldrig blir fullärd! ;-)