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

69

    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. Olen tosi outo....

      Päättelen palstajuttujen perusteella mitä mieltä minun kaipauksen kohde minusta on. Joskus kuvittelen tänne selkeitä tap
      Ikävä
      16
      2128
    2. Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornosta

      https://www.kymensanomat.fi/paikalliset/8081054 Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornon hallussapi
      Kotka
      84
      2068
    3. Oletko sä luovuttanut

      Mun suhteeni
      Ikävä
      101
      1367
    4. Hommaatko kinkkua jouluksi?

      Itse tein pakastimeen n. 3Kg:n murekkeen sienillä ja juustokuorrutuksella. Voihan se olla, että jonkun pienen, valmiin k
      Sinkut
      145
      1170
    5. Vanhalle ukon rähjälle

      Satutit mua niin paljon kun erottiin. Oletko todella niin itsekäs että kuvittelet että huolisin sut kaiken tapahtuneen
      Ikävä
      10
      1166
    6. Maisa on SALAKUVATTU huumepoliisinsa kanssa!

      https://www.seiska.fi/vain-seiskassa/ensimmainen-yhteiskuva-maisa-torpan-ja-poliisikullan-lahiorakkaus-roihuaa/1525663
      Kotimaiset julkkisjuorut
      79
      1132
    7. Aatteleppa ite!

      Jos ei oltaisikaan nyt NATOssa, olisimme puolueettomana sivustakatsojia ja elelisimme tyytyväisenä rauhassa maassamme.
      Maailman menoa
      249
      886
    8. Omalääkäri hallituksen utopia?

      Suurissa kaupungeissa ja etelässä moinen onnistunee. Suuressa osassa Suomea on taas paljon keikkalääkäreitä. Mitenkäs ha
      Maailman menoa
      171
      853
    9. Mitä sanoisit

      Ihastukselle, jos näkisitte?
      Tunteet
      62
      821
    10. Onko se ikä

      Alkanut haitata?
      Ikävä
      59
      811
    Aihe