Solun tekstitiedosta laskeminen

Peettu

Solu sisältää tekstiä, joka koostuu etunimestä, sukunimestä ja syntymävuodesta. Samassa solussa voi olla kymmeniä nimiä syntymävuosineen. Välillä tiedot on eroteltu pilkulla, useimmiten on vain tyhjä väli. Syntymä vuosi on välillä ilmoitettu kokonaisena, välillä taas vain viimeiset kaksinumeroa.
Esim: Minna Marjanen 2001, Eveliina Erämetsä 1999,........
Esim: Minna Marjanen 2001 Eveliina Erämetsä 1999.....
Esim: Minna Marjanen -01 Eveliina Erämetsä -99....

Voiko jollain kaavalla laskea montako nimeä solu sisältää? Näitä soluja on niin hervottomasti ja rimpsut on pitkiä, että on vaikea yksittäin laskea.

5

106

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Tämmöinen

      Seuraava makrofunktio kasvattaa laskuria aina kun tulee uusi numero:

      Function lkm(s As String) As Integer                                                                           numero = False                                                                                                          n = 0                                                                                                                           For i = 0 to Len(s)                                                                                                         If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then                                                     If Not numero Then                                                                                                      n = n   1                                                                                                                     numero = True                                                                                                         End If                                                                                                                      Else                                                                                                                               numero = False                                                                                                       End If                                                                                                                      Next i                                                                                                                          lkm = n                                                                                                                    End Function

      • Tämmöinen

        Piti olla: For i = 1 to Len(s)


      • Peettu

        En osaa tuota käyttää. Mihin se laitetaan?
        Nyt tuli vielä uusi vaihtoehtokin niin, että onkin kolme nimeä ja sitten niillä yhteinen syntymä aika.


      • Tämmöinen
        Peettu kirjoitti:

        En osaa tuota käyttää. Mihin se laitetaan?
        Nyt tuli vielä uusi vaihtoehtokin niin, että onkin kolme nimeä ja sitten niillä yhteinen syntymä aika.

        Kopioi tekemäni funktio tuosta ylhäältä leikepöydälle. Paina Excelissä hiiren oikealla ruudun alaosassa sivunvalinnasta sivun nimeä (Sheet1) ja sieltä View Code. (Aukeaa VBA.) Valitse tuon ikkunan yläosasta Insert ja sieltä Module. (Syntyy uusi moduli Module1.) Liimaa funktio luomaasi siihen. Suomennetussa Excelissä nimet ovat jotain ihan muuta, mutta tuon mukaan selvinnet.

        Jos haluat tietää solussa A1 olevien nimien lukumäärän, kirjoita =lkm(A1)

        Makroja sisältävä tiedosto on talletettava muodossa *xlsm.

        Funktio lkm laskee solussa olevat syntymäajat (=luvut). Se ei tarkista niiden oikeellisuutta, onko sama nimi useampaan kertaan, tai onko lukujen välissä nimeä ensinkään.


      • Peettu

        Kiitos. Nythän se toimii. Ja helpottaa.


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

    Luetuimmat keskustelut

    1. Kotihoito suomussalmella

      Mitämieltä ootte suomussalmen kotihoidosta?
      Suomussalmi
      49
      6041
    2. Maataloustuet pois

      Jokainen maksakoon harrastuksensa itse. Eihän golfin peluutakaan maksa yhteiskunta.
      Maailman menoa
      263
      5947
    3. Australia, Britannia ja Kanada tunnustivat Palestiinan

      Aikooko Petteri Lapanen pysytellä persujen ja uskovaisten panttivankina ja jättää Suomen historian väärälle puolelle?
      Maailman menoa
      91
      5750
    4. Kohtalokas laukaus

      IL 20.9.25 "Ihminen kuoli baarin edustalla Kajaanissa Poliisi ei epäile tapauksessa rikosta." "Kajaanin keskustassa on k
      Kajaani
      37
      4938
    5. Joko alkaa menemään tajuntaan tämä yliluonnollinen yhteys?

      Varmaan pikkuhiljaa. Muista olla kiltisti ❤️
      Ikävä
      49
      4739
    6. Työeläkkeen saamiseksi olisi tehtävä töitä

      Meillä on Suomessa iso joukko ihmisiä, joilla olisi vielä työkykyä jäljellä, mutta joilta puuttuu arjesta mielekäs tekem
      Maailman menoa
      217
      4077
    7. Sählyhallitus 2023-2025, mailat heiluvat, mutta pallo karkaa kulmaan

      Salibandy on organisoitua. Sähly on taas sitä, kun joku tuo mailat ja palloja on ehkä yksi. Sitä tämä hallituskin on: pe
      Maailman menoa
      4
      3751
    8. Mitä juuri sinulle kuuluu?

      Tänään? Rehellisesti.
      Ikävä
      151
      3616
    9. Muistattekos kun Sannan aikana suomalaisten varallisuuteen lisättiin viidennes

      Köyhät voittivat eniten mutta rikkaimmat kuitenkin köyhtyi!
      Maailman menoa
      34
      3192
    10. Joulukinkku NYT

      Sian kankuista tulee vielä pula. Nyt on oikea aika hankkia joulukinkku.
      Maailman menoa
      25
      3137
    Aihe