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
370
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
- 262514
Ikuiset kaipaajat
Miksette vaan mene sen kaipauksen kohteen luokse ja puhu sille suoraan? Mitä järkeä on kaipailla jotain puolituttua vuo772296Persut rahoittavat velkarahalla rikkaiden ökyelämää
Minkä vuoksi persut eivät leikkaa rikkailta, joilla on maksukykyä? Tuskinpa tuo persujen käytös saa Suomen kansalta hyv582296Riikka ottaa miljardi euroa EU:n yhteisvelkaa Suomelle
Niin kääntyi irvipersun takki taas, vaikka vaalilupauksissa oli ettei yhteisvelkaa Suomi enää koskaan ota. No nyt otti m181993- 841749
En tiedä ymmärrätkö
Kuinka paljon merkitset mulle. Näet minut minuna etkä silti käännä selkääsi. Tökit jatkuvasti kepillä jäätä ja menit ehk71479Kun ei numeroa
niin en edes voi viestittää, et suunnitelmiin tuli muutos. Ikävä on, ja kasvaa vaan🤍301368Veronmaksajat kustantavat yrittäjien eläkkeitä jo yli 500 miljoonalla
Suomalaista yrittäjää ei kommunistista erota. Aktiivisen "yrittämisen" maksattaa yritystukina yhteiskunnalla, ja vieläpä141244- 41093
Se on siinä
Jami kun vielä loppuu niin Lappajärvellä ei oo yhtään mitään toimintaa.Purkamista piisaa kymmenen vuoden ajalle.Maakunna32937