Excel, kellonaikojen poiminta solun tekstistä

Anonyymi-ap

Onkohan excelissä mahdollisuutta poimia tekstisolusta kellonaikaa? Solussa on esim. "12:00 - 14:30" tai tekstiä välissä tai perässä esim. "09:00 kahvi - 09:15" tai "13:00 - 13:00 lounas".

Haluaisin saada kellonajat omiin soluihinsa, josta sitten jatkojalostaa niitä esim 09:00 omaan ja 09:15 omaansa.

6

618

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Kyllähän kaavoilla saa rakennettua mitä vaan. Jos soluissa on aina vain kaksi kellon aikaa, eikä kaksoispisteitä muualla, niin silloin voi kaksoinpisteitä käyttää avuksi numeroiden poimintaan solusta.

      Ensimmäinen aika:
      =CONCATENATE(MID(A1;SEARCH(":";A1;1)-2;2);":";MID(A1;SEARCH(":";A1;1)+1;2))

      Toinen:
      =CONCATENATE(MID(A1;SEARCH(":";A1;SEARCH(":";A1;1)+1)-2;2);":";MID(A1;SEARCH(":";A1;SEARCH(":";A1;1)+1)+1;2))

      Nuo on sitten vielä tekstimuodossa, joilla ei voi suorittaa laskentaa.

      • Anonyymi

        Ja solu missä ajat sisältävä teksti on noissa kaavoissa solussa A1.


      • Anonyymi

        Kiitos! Nämä toimi hienosti :)


    • Anonyymi

      Selkeytän vielä eli jos solussa on teksti "09:00 kahvi - 09:15 sisään", niin miten saan ajat omiin soluihinsa? Tuo ensimmäinen on helppo (vasen tai poimi.teksti), mutta jälkimmäinen ei, koska selitetekstit saattava vaihdella.

      • Anonyymi

        Tämä funktio antaa annetusta merkkijonosta n:nännen ajan. Oletuksena on, että ajat on merkitty esittämälläsi tavalla.

        Function Aika(s As String, Optional ByVal n As Integer = 1)

        On Error GoTo Err:
            p0 = 1
              For i = 1 To n
                p = InStr(p0, s, ":")
                p0 = p + 1
            Next i

            Aika = CDate(Mid(s, p - 2, 5))
        Exit Function

        Err:
            Aika = "#N/A"
        End Function


    Ketjusta on poistettu 1 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      84
      1666
    2. Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

      Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.
      Maailman menoa
      269
      1571
    3. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      276
      1317
    4. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      169
      1282
    5. Avustikset peruttu.

      Aettokosken ampuraan rahat otettu poekkeen valtiolle.
      Suomussalmi
      57
      895
    6. 66
      864
    7. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      65
      853
    8. Miksi mies tuntee näin?

      Eli olen mies ja ihastuin naiseen. Tykkään hänestä ja koskaan hän ei ole ollut minulle ilkeä. Silti ajoittain tunnen kui
      Ikävä
      40
      841
    9. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      42
      838
    10. Se nainen näyttää hyvältä vaikka painaisi 150kg

      parempi vaan jos on vähän muhkeammassa kunnossa 🤤
      Ikävä
      44
      801
    Aihe