Sisällysluettelo
Laske merkkijonon sanojen määrä
Seuraava VBA -funktio laskee merkkijonon sanojen määrän etsimällä merkkijonosta välilyöntejä. Se käyttää MID -toimintoa. Voit tehdä jotain vastaavaa SEARCH- tai FIND -toiminnoilla.
| 1234567891011121314151617 | Funktio Sanojen numero_ (teksti_merkkijono merkkijonona) kokonaislukuna'Funktio laskee merkkijonon sanojen määrän'katsomalla jokaista hahmoa ja näkemällä, onko se välilyönti vai eiSanojen määrä = 0Dim String_Length kokonaislukunaHimmennä nykyinen_hahmo kokonaislukunaString_Length = Len (Text_String)Nykyiselle_hahmolle = 1 merkkijonolle_pituusIf (Mid (Text_String, Current_Character, 1)) = "" SittenSanojen lukumäärä = Sanojen määrä + 1Loppu JosSeuraava Nykyinen_hahmoLopeta toiminto |
On syytä huomata pari kohtaa:
• Tämä koodi on lisättävä työkirjamoduuliin - napsauta VBA -ruudussa Lisää ja sitten moduuli
• Toiminto voidaan kutsua Excel -työkirjasolusta joko käyttämällä selkeää tekstiä tai soluviittausta argumenttina:
A3 = Sanojen lukumäärä ("Sikakoira")
A4 = Sanojen määrä (D1)
Funktio toimii ylittämällä merkkijonon pituus ja tarkistamalla, onko seuraava merkki välilyönti ja jos on, se lisää yhden merkkijonon välilyönneihin.
