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

371

Ää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. Nainen kokki autossa kammottavan kuoleman sähköauto-Teslan syttyessä tuleen.

      https://www.is.fi/autot/art-2000011652873.html Näin vaarallisia sähköautopalot voivat olla.
      Maailman menoa
      90
      5459

    2. Persuja ei aluevaltuustoissa näy

      Ei tunnu persuja paljon paikalliset asiat kiinnostavan, vaan ainoastaan ulkomaalaiset, joku Israel ja Trumpin fanitus.
      Maailman menoa
      49
      3625

    3. Päivän Riikka: Uudenkaupungin autotehdas hiljeni

      Näin ne 100 000 uutta pysyvää ei-tempputyötä yksityiselle sektorille tämän hallituksen ansiosta syntyy. Työntekijöille j
      Maailman menoa
      61
      2995

    4. Riikka vie Suomen kohta ykköseksi työttömyyskisassa

      Espanja: 10,5 % Suomi: 10,3 % Ruotsi: 9,3 % Kisa on tiukkaa, mutta Riikalla hyvä draivi päällä. Vasemmistolaisen päämin
      Maailman menoa
      46
      2201

    5. Kerro kaivattusi nimi tai nimikirjaimet

      🌠 Tähdenlento! Kirjoittamalla kaivattusi nimen tai nimikirjaimet tähän, saattaa toiveesi toteutua.
      Ikävä
      61
      1966

    6. Alkuvuodesta poistuu työttömyyskorvaus kaikilta joilla on säästössä rahaa

      Tippuu korvaukselta iso määrä työttömiä.
      Maailman menoa
      296
      1856

    7. Miksi pitäisit enemmän

      Minusta kuin siitä toisesta?
      Ikävä
      47
      1616

    8. Mitä meidän välillä

      Tulee tapahtumaan vai tuleeko mitään?
      Ikävä
      96
      1501

    9. Tämmönen höpsö

      Höpönassu mä olen. En mikään erikoinen…hölötän välillä ihan levottomia. Tykkäisit varmasti jos olisin siellä sun vieress
      Suhteet
      45
      1395

    10. Mikä ihme teitä savolaisia tuossa

      p*rs*reiässä niin kiinnostelee? Että siitä pitää päntönnään huutaa.
      Tuusniemi
      9
      1353
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt