Solun sanojen lukumäärän laskeminen

Petexcel

Kuinka saadaan laskettua yhden solun sanojen lukumäärä, jotka on erotettu pilkulla tai tietyllä muulla merkillä?

10

270

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • =LEN(TRIM(A1))-LEN(SUBSTITUTE(A1;" ";"")) 1
      mutta tulos voi heittää, koska ylimääräiset/ puutuvat välilyönit vaikeuttaa tilannetta(mm. tupla välilyönti ennen pilkkua.)
      Toki voishan sitä monsterikaavaa vääntää, mutta siististi ja varmasti VBA:lla

      soluun kaava =sanojenlkm(A1;","), missä A1 solu ja "," erotin

      moduuliin...

      Function SanojenLkm(Solu As Range, Erotin As String) As Integer
      SanojenLkm = UBound(Split(Solu, Erotin)) 1
      End Function

      Keep EXCELing
      @Kunde

      • Petexcel

        VBA toimii juuri kuten tarvitsin, kiitos!


    • 35

      er

      • Petexcel

        Juuri kun pääsin...

        eli ongelma jatkuu. Excel -03 homma toimii, mutta kun yritin töissä Excel 2000:ssa, palautuu virhe #NIMI?

        kaava taulukossa: =JOS(I6="ha";SUMMA(0,46 0,03*sanojenlkm(G6;",") );"")

        sama virhe palautuu kokeiltaessa yksinkertaista : =sanojenlkm(G6;",")

        Moduulissa on kunden koodi ja solussa G6 on nimiluettelo pilkuin erotettuna..


    • jos oikein muistelen, niin toi SPLIT funtio tuli vasta 2003 versioon...
      eli ei toimi sitten 2000 versiossa ja vaatii toisenlaisen lähestymistavan

    • Petexcel

      Ok, kiitos kunde ja jos keksit jipon 2k versioon niin tupla kiitos :)

      • kyllä se SPLIT sittenkin esiteltiin jo 2000 versiossa...

        kokeilesvielä tällä toimiiko se. Eli pitäisi palauttaa sanojen lkm solusta G6

        Sub koe1()
        MsgBox UBound(Split(Range("G6"), ",")) 1
        End Sub

        en tiedä toimisko tämmönen sitten tämmönen "kikka kolmonen", että kopioit sen 2003 version EXCEL.EXE jonnekin kansioon siellä duunissa ja lisäät sitten VBA puolella referenssin siihen... ja sitten kokeilet uudelleen funktiota?


      • kunde kirjoitti:

        kyllä se SPLIT sittenkin esiteltiin jo 2000 versiossa...

        kokeilesvielä tällä toimiiko se. Eli pitäisi palauttaa sanojen lkm solusta G6

        Sub koe1()
        MsgBox UBound(Split(Range("G6"), ",")) 1
        End Sub

        en tiedä toimisko tämmönen sitten tämmönen "kikka kolmonen", että kopioit sen 2003 version EXCEL.EXE jonnekin kansioon siellä duunissa ja lisäät sitten VBA puolella referenssin siihen... ja sitten kokeilet uudelleen funktiota?

        kokeile tätäkin...

        Sub koe2()
        MsgBox UBound(Split(Range("G6"), Chr(44))) 1
        End Sub
        jos ei näillä pelitä sitten toisella tapaa...
        nyt täällä paikallinen uusivuosi joten menee sitten ensiviikkoon vastaukset...


      • kunde kirjoitti:

        kokeile tätäkin...

        Sub koe2()
        MsgBox UBound(Split(Range("G6"), Chr(44))) 1
        End Sub
        jos ei näillä pelitä sitten toisella tapaa...
        nyt täällä paikallinen uusivuosi joten menee sitten ensiviikkoon vastaukset...

        vielä yksi tarkistuspaikka
        Referenssit ja jos jossakin teksti Missing niin lisää se sitten
        Eihän siellä ole enkkuversio? Joten kaavassa oleva erotin ; pitäisi olla , ???

        no paikallista Hyvää Uutta Vuotta sitten ( 3. Uusi Vuosi jo tälle vuodelle...) olispas nää muutkit juhlat sitten aina kolmena kappaleena... ;-)


    • Petexcel

      Duuniversio on suomi. Koe1/2 palauttaa virheen #NIMI?. Varmuudeksi, riittääkö soluun aliohjelmakutsu: =koe1 tai =koe2?
      Tsekkasin VB:n puolella Tools/References (onko oikea paikka?), ei näkynyt Missing. Siellä täpättynä VB for Applications, MS Excel 9.0 Object Library, OLE Automation, MS Office 9.0 Object Library. Nimim. pihalla :)

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

    Luetuimmat keskustelut

    1. Sanna Marin vetänyt leukoja 11 kertaa

      Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san
      Maailman menoa
      103
      6352
    2. Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään

      Kyllä, asia on faktaa. Suomalainen tutkimus osoittaa, että vasemmistolaisina itseään pitävät kansalaiset häpeävät itseää
      Maailman menoa
      118
      2977
    3. Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa

      Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri
      Maailman menoa
      282
      2748
    4. Kirjoita

      … jotakin minkä vain kaivattusi tietää
      Ikävä
      147
      2693
    5. Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?

      Danny, musiikkineuvos Ilkka Lipsanen, nähtiin mukana Farmi Suomi -realityssä v. 2024. Danny teki yllätysratkaisun ja tuo
      Tv-sarjat
      37
      2358
    6. Tyhmä persuväite = köyhä argumentti

      Väite, että vasemmistopuolueita äänestäisivät vain “köyhät, tapatyöttömät tai heikoilla lahjoilla varustetut”, kertoo en
      Maailman menoa
      71
      2306
    7. Tiesitkö? Andy McCoy ja Pelle Miljoona saavat taiteilijaeläkettä - Tämän suuruinen eläke on

      Ylimääräiset taiteilijaeläkkeet on jaettu ja 59 taiteilijaa sai sen. Taiteilijoiden keskimääräinen eläketulo jää hyvin a
      Maailman menoa
      76
      1760
    8. Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla

      Frederik veti ns. herneen nenään ja päätti kostaa pehtoorille. Mitäs mieltä olet Frederikin "aamutoimista"? Lue jutt
      Tv-sarjat
      8
      1705
    9. Haluan sut

      Voitaisiinko tutustua paremmin toisiimme? Ovi on aina auki sinulle. Lähelle.
      Ikävä
      53
      1613
    10. Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."

      Ellen Jokikunnaksen ja hänen puolisonsa Jari Raskin perheestä ja taloprojektista Italiassa kertova Unelmia Italiassa -sa
      Suomalaiset julkkikset
      4
      1465
    Aihe