Numeroitten poiminta päiväyksestä

Miten...?

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?

5

372

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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!

      • kunde
        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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. 20v on otettu kiinni

      Tulipalo oli sytytetty joten murhasiko ex omat lapsensa ja heidän Äidin. Tuskin sitä kukaan ohikulkijakaan sytytti.
      Savonlinna
      174
      10491

    2. Mitä meidän välillä

      Tapahtuu lopulta?
      Ikävä
      55
      2853

    3. IL - Auerin lapsia oli houkuteltu rahalla Annelin puolelle?

      16:12 Outoja väitteitä Sijaisäidin mukaan Auerin lapsia koetettiin houkutella nettipalstoilla muuttamaan kertomuksiaan
      Maailman menoa
      82
      2598

    4. Kerro naisen nimi jota kaipaat

      😍
      Ikävä
      86
      2432

    5. Savonlinan perhesurma, epäilty mies romani, äiti kantaväestöä

      https://www.is.fi/kotimaa/art-2000011676508.html Savonlinnan seudun romaniyhdistyksestä kerrottiin lauantaina IS:lle, e
      Maailman menoa
      149
      2162

    6. Savonlinnan murhapolttaja romani

      Ainakin IS kertoo. Arvasin heti ettei ole normi valkolainen suomalainen.
      Maailman menoa
      244
      2008

    7. Ei me taideta

      Pystyä kokonaan olemaan erossa.
      Ikävä
      45
      1431

    8. Kun aika on oikea niin

      Tupsahdat uudelleen tai löydän edes melkein yhtä ihanan ja joudun tyytymään... Suukko poskelles. 😘 Viattomasti vain.. �
      Ikävä
      13
      1415

    9. Muutama vuosi sitten oli pulaa hoitohenkilökunnasta

      Nyt heitä sanotaan irti. Tarve ei ole hävinnyt mihinkään, ei myöskään raha jolla ihmisten työnteosta maksettiin; raha va
      Maailman menoa
      121
      1235

    10. Ilouutinen: Osmo Peltola jo teini-iässä, silti yhdessä Peltsi-isän kanssa taas tv:ssä!

      Ihan paras parivaljakko: Peltsi-isä ja Osmo-poika. Tämä on kyllä sellaista hyvänmielen telkkariohjelmaa, josta kukaan ei
      Tv-sarjat
      34
      893
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt