pitäisi saada poimittua päiväyksestä, esim 2.7.2009, numerot erilleen kukin omaan soluunsa, mutta Excel käsittelee päivmäärät lukuina, esim. tuo 2.7.2009 = 39996, joten esim. poimi.teksti alkaa muodosta juuri tuota numerosarjaa.
Ja pitisi siis saada excel poimimaan päiväyksestä numerot tyyliin 0 9 0 7 0 2 , kukin numero siis omaan soluunsa - onko tämä edes mahdolista?
Numeroitten poiminta päiväyksestä
Miten...?
5
376
Vastaukset
- muuan mies
Jos A1 on em päiväys, niin
A2 = vuosi(A1)-2000
A3 = kuukausi(A1)
A4 = päivä(A1)
ja kaikkiin muotoiluksi 00- Kiitos avusta
Joo, kyllähän minä nuo funktiot tutkin, mutten älynnyt tuota -2000! Paljon kiitoksia ja hyvää kesän jatkoa!
- sittenkään....
Huomasitko että nyt menee 09 07 ja 02 samaan soluun? Jos tarkoituksesi oli saada vielä ne nollatkin omiin soluihinsa, niin ei se noin mene. (Valitettavasti vaan minä en osaa auttaa, mutta ehkä joku täällä....) Lykkyä tykö!
- ketjun aloittaja
Tarkoitus tosiaan oli hajottaa ne nollatkin omiin soluihinsa, mutta luulen keksineeni tähänkin lääkkeen: Pitää vaan jatkaa poimi.teksti funktiolla tyyliin
A1 on päiväys, b-d1 on vuosi (miinus 2000), kuukausi, päivä ja e-j1 "jossitellaan":
esim. =JOS(B19;POIMI.TEKSTI(B1;2;1);POIMI.TEKSTI(B1;1;1))
Samaa tyyliä jatketaan kuukauden ja päivän kanssa, ja toimii :=)
(tosin vain vuodesta 2000 alkaen ja vain vuoteen 2099 asti)
Että kiitos vielä teille kommentoijille! ketjun aloittaja kirjoitti:
Tarkoitus tosiaan oli hajottaa ne nollatkin omiin soluihinsa, mutta luulen keksineeni tähänkin lääkkeen: Pitää vaan jatkaa poimi.teksti funktiolla tyyliin
A1 on päiväys, b-d1 on vuosi (miinus 2000), kuukausi, päivä ja e-j1 "jossitellaan":
esim. =JOS(B19;POIMI.TEKSTI(B1;2;1);POIMI.TEKSTI(B1;1;1))
Samaa tyyliä jatketaan kuukauden ja päivän kanssa, ja toimii :=)
(tosin vain vuodesta 2000 alkaen ja vain vuoteen 2099 asti)
Että kiitos vielä teille kommentoijille!päiväykset sarakkeessa A ja purkaa ne sarakkeisiin B-G
taulukon moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim päiväys As Date
Dim päiväys2 As Variant
On Error GoTo virhe
Application.EnableEvents = False
If Not Intersect(Target, Range("A:A")) Is Nothing Then
päiväys = CDate(Target)
päiväys2 = Split(päiväys, ".")
If Len(päiväys2(2)) = 4 Then
Range("B1") = Mid(päiväys2(2), 3, 1)
Range("C1") = Right(päiväys2(2), 1)
Else
Range("B1") = 0
Range("C1") = Right(päiväys2(2), 1)
End If
If Len(päiväys2(1)) = 2 Then
Range("D1") = Left(päiväys2(1), 1)
Range("E1") = Right(päiväys2(1), 1)
Else
Range("D1") = 0
Range("E1") = Right(päiväys2(1), 1)
End If
If Len(päiväys2(0)) = 2 Then
Range("F1") = Left(päiväys2(0), 1)
Range("G1") = Right(päiväys2(0), 1)
Else
Range("F1") = 0
Range("G1") = Right(päiväys2(0), 1)
End If
End If
Application.EnableEvents = True
Exit Sub
virhe:
MsgBox "päiväys virheellinen"
Application.EnableEvents = True
End Sub
@Keep Excelling
Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suomen kansa haluaa Antti Lindtmanista pääministerin
Lindtman on miltei tuplasti suositumpi kuin etunimikaimansa Kaikkonen. Näin kertoo porvarimedian teettämä kysely. http2254117Vain 21% kannattaa Lindtmania pääministeriksi
se on selvästi vähemmän kuin puolueen kannatus, mites nyt noin?1112603Miten löydän sinut
Ja saan sanottua kaiken mitä haluan sinulle kertoa? Ja kuinka kuuntelisit minua sen hetken? Kuinka voin ilmaista sen mit382325Yöllinen autolla kaahari Heinolan seudulla
Asukkaita häiriköivän nuoren herran autokaahaus keskustelu poistettu, onko jokin hyvävelijärjestelmä käytössä ?811416Vaikea tilanne
Hieman kolkuttaa omatuntoa, kun on osoittanut kiinnostusta väärää naista kohtaan. En ymmärrä miten toinen on voinut te981327- 481159
- 751047
- 59923
- 45906
Emme koskaan keskustelleet kasvotusten syistä välirikollemme
Enkä voisi kertoa perimmäistä rehellistä syytä. Kerroin sinulle pintapuolisen ”paketin” ja otin tavallaan omalle vastuu58901