Kuinka saadaan laskettua yhden solun sanojen lukumäärä, jotka on erotettu pilkulla tai tietyllä muulla merkillä?
Solun sanojen lukumäärän laskeminen
Petexcel
10
256
Vastaukset
=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
Janni Tikkanen ohjattiin miesten pukuhuoneeseen
Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu842139Keskisarja loisti A-studiossa, vauhkoontunut Sofia Virta munasi itsensä
Keskisarja taas puhui 100% faktaa maahanmuuttoon liittyen. Kokoomuksen Kaumalta tuli pari hyvää puheenvuoroa, joskin muu4262020Tiedän ettet tehnyt tahallasi pahaa
Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo1101400Rakastan ja ikävöin sinua
Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä771392- 671293
Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien.
Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien. Norjassa on käynnissä ve1071025Haluatko tietää totuuden?
Olen kyllästynyt sinuun. Et herätä enää mielenkiintoa. Samat jutut x 100. Kuten narskuilla aina. Samalla tunnen myötätun811002Teräväkielinen Virta jauhotti totaalisesti sössöttävän Keskisarjan
Harvoin on noin suvereenia jauhotusta A-studiossa nähty. Ja minä äänestän demareita, joita ei oltu paikalle edes kutsut256990Sofia Virta pyyhkii pöytää Keskisarjalla A studiossa
Hurjaa on meno. Keskisarja ihan kanveesissa.266987- 131888