Tervehdys.
Onnistuuko sellainen homma että syötän soluun A1 viikon esim. 25, excel laskisi automaattisesti päivämäärän soluun A2 (tässä tapauksessa 19.6-25.6.2006)?
Onnistuuko sellainen homma että syötän soluun A1 viikon esim. 25, excel laskisi automaattisesti päivämäärän soluun A2 (tässä tapauksessa 19.6-25.6.2006)?
Vastaukset 3
Vanhimmat
moduuliin
Function Viikkopäiväys(Solu As Range) As String
Dim Viikonpäivä As Integer
Dim Uusivuosi As Date
Dim Vuosi As Integer
Dim Päiväys As Date
Vuosi = Format(Date, "yyyy")
Uusivuosi = DateSerial(Vuosi, 1, 1)
Viikonpäivä = (Uusivuosi - 2) Mod 7
If Viikonpäivä < 4 Then
Päiväys = Uusivuosi - Viikonpäivä
Else
Päiväys = Uusivuosi - Viikonpäivä 7
End If
Viikkopäiväys = Päiväys (Solu - 1) * 7 & " - " & Päiväys (Solu * 7) - 1
End Function
ja soluun A2 =Viikkopäiväys(A1)
Ensiksi kiitokset vaivannäöstä Kundelle.
Ei toimi, kopioin tekstin moduuliin sekä soluun A2 tekstin "=Viikkopäiväys(A1)" vastaukseksi antaa Nimi ei kelpaa virhettä
luultavasti olet kopioinut koodin ThisWorkbook moduuliin etkä moduuliin kuten mainitsin vastauksessani(ovat 2 eri asiaa)
moduuliin...
tarkoittaa, että lisää uusi moduuli Insert/module