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
402
Vastaukset 5
- 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
Mikä on totta mikä ei?
Onko juoru vai ei että nimeltä mainitsematon henkilö on tehnyt naiselle/naisille jotain joka on väärin?231275Viesti sinulle
Tiedät että tunteet ja ajatukset ja meillä on vahva yhteys mistä molemmat tiedetään. Odotan sinua ☀️591150- 82911
Mitä sinulle on tapahtunut lapsena
Kun olet noin sairas päästäsi? Pikkupojalle ( Miehen kehossa)104873Haluan purkaa vielä tuntemuksia
Tykkään sinusta kovin paljon❤️ olen surullinen tilanteestasi ja siitä mitä me olemme yhdessä joutuneet kokemaan. Tämä ei21767- 120695
Persujen Puhoksen retki
Perussuomalaiset olivat tehneet turistibussimatkan Puhokseen. Tosin raukat olivat niin peloissaan, etteivät uskaltaneet232692Tunteiden käsittely kertoo ihmisestä.
Kun puhutaan "tavallisesta" ihmisestä, joka on suht tasapainoinen eläjä, niin puhutaan oikeastaan taitavasta tunteiden k210679- 62668
- 99592
Jopa poliisi nauraa paskaista pelkuripersuille
Puhoksessa jäi "isänmaantoivot" bussiin vapisemaan :-D https://www.is.fi/politiikka/art-2000012319632.html281552Just saying
Mies joka antaa naiselle turvallisen olon, on seksikäs. Ei kieroja kikkoja ja haluaa olla vain sen yhden naisen mies.104518- 8487
Pilkettä sunnuntain silmässä
😉 Jos tästä ketjusta löytyisi yksi ihminen, joka saisi sut hymyilemään tänään… Millainen hän olisi? Ei tarvitse kerto73471- 34455
- 39454
- 47440
Aika on tuonut järkeä
Sä et tiedä musta kaikkea. Jos tietäisit, ymmärtäisit, miksi me ei sovita yhteen. Öljy ja vesi. En mä ole valehdellut,42423Persut eivät uskaltaneet tulla ulos
Bussiin jäivät https://www.iltalehti.fi/politiikka/a/d7f9fc57-dca0-40b8-9cb1-156e5872dba9153411Päivän aivopieru Trumpilta
Trump julisti sodan hyttysiä vastaan. Myös punkit ovat Trumpin sodan kohteena. Eikö vieläkään USA:n kansa tajua tuon uko42409