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

126

    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. Persujen vaalilupaus oli euron bensa

      Nyt puhutaan jo kolmen euron bensasta. Kyseessä on Suomen historian törkein vaalipetos.
      Maailman menoa
      121
      2243
    2. Vain vasemmistohallitus saa minut menemään töihin

      Änkyräkapitalistien sortaessa kansaa en laita rikkaakaan ristiin. Elän mielummin Kelan tuilla, ja jos niitä leikataan, n
      Maailman menoa
      58
      2187
    3. Maataloustuet perittävä korkojen kera takaisin

      Yrittäjiltä jotka ovat myyneet tuotantoaan ulkomaille. Veronmaksajan kustantama tuki on tarkoitettu elintarvikkeiden hi
      Maataloustuki
      50
      1865
    4. EK: Suomi tarvitsee vuosittain 45 000 maahanmuuttajaa

      Senpä takia Riikkakin laulaa sen lauluja kenen leipää syö. Viime vuonnahan Suomeen muutti 50 tuhatta ulkomaalaista. htt
      Maailman menoa
      8
      1417
    5. Topi osti Askon

      Hieno mies. Pelastaa työpaikkoja. Kiitokset myös emännälleen, joka pitää isännän virkeänä. https://www.is.fi/taloussan
      Maailman menoa
      80
      1408
    6. Mitä kirjainta kaipaat?

      Pitkästä aikaa tämmöistä. Onko kirjain muuttunut edellisestä. ☺️
      Ikävä
      94
      1377
    7. Kastaa ja upottaa on eri sanat

      Kastaa ja upottaa on eri sanat ja niillä on eri merkitys. Eikä Jeesusta haudattu upottamalla maahan kaivettuun kuoppaan
      Kaste
      219
      1161
    8. Uskomatonta touhua!

      Ei olis uskonut että kateus yrittäjää kohtaan menee noin pitkälle. TTP:ssa irrotettu sähköjohto jäätelöaltaasta. Kaikki
      Haapavesi
      31
      1150
    9. Oliko se oikeasti epäselvää

      sinulle että olin ihastunut sinuun? (Ymmärrän että siitä on aikaa, eikä voi olettaa että kaikkea muistaisi tai että men
      Ikävä
      62
      1133
    10. Miten hän sinua katsoi?

      😊😊😊😊😊😊
      Ikävä
      69
      1000
    Aihe