Kaip gauti „Word“ skaičių „Excel“ (naudojant paprastas formules)

Norite gauti „Excel“ žodžių skaičių? Tikėkite ar ne, „Excel“ neturi integruoto žodžių skaitiklio.

Bet nesijaudinkite.

Šauni „Excel“ funkcijų krūva (arba šiek tiek VBA, jei jaučiatės įmantriai) gali lengvai tai padaryti už jus.

Šioje pamokoje parodysiu keletą būdų, kaip skaičiuoti žodžius „Excel“ naudojant paprastas formules. Pabaigoje taip pat apims metodą, kaip sukurti pasirinktinę formulę naudojant VBA, kuri greitai parodys bet kokio teksto žodžius bet kuriame langelyje.

Formulė „Word“ skaičiui gauti „Excel“

Prieš pateikdamas tikslią formulę, greitai aptarkime žodžių skaičiaus logiką.

Tarkime, kad turiu sakinį, kaip parodyta žemiau, ir noriu gauti žodžių skaičių.

Nors „Excel“ negali suskaičiuoti žodžių skaičiaus, ji gali suskaičiuoti tarpų skaičių sakinyje.

Taigi, norėdami gauti žodžių skaičių, galime suskaičiuoti šias vietas, o ne žodžius, ir pridėti 1 prie bendros sumos (nes tarpų skaičius būtų vienu mažesnis už žodžių skaičių).

Dabar gali būti dvi galimybės:

1. Tarp kiekvieno žodžio yra vienas tarpas
2. Tarp žodžių yra daug tarpų.

Taigi pažiūrėkime, kaip kiekvienu atveju suskaičiuoti bendrą žodžių skaičių.

1 pavyzdys - kai tarp žodžių yra vienas tarpas

Tarkime, A1 langelyje turiu tokį tekstą: Išleisk katę iš maišo

Norėdami suskaičiuoti žodžių skaičių, naudoju formulę:

= LEN (A1) -LEN (PAKAITA (A1, "", ""))+1

Dėl to grįžtų „7“.

Štai kaip veikia ši formulė:

• LEN (A1) - Ši formulės dalis grąžina 26, tai yra bendras simbolių skaičius tekste A1 langelyje. Jame yra teksto ir tarpų simboliai.
• PAKAITA (A1, „“, „“) - ši formulės dalis pašalina visas tarpas iš teksto. Taigi rezultatas šiuo atveju būtų Išleisti katę iš maišo.
• LEN (pakaitalas (A1, "",“”) - Šioje formulės dalyje skaičiuojamas bendras teksto simbolių skaičius, kuriame nėra tarpų. Taigi rezultatas būtų 20.
• LEN (A1) -LEN (PAKAITA (A1, "",“”)) - Tai atimtų teksto ilgį be tarpų iš teksto ilgio su tarpais. Pirmiau pateiktame pavyzdyje tai būtų 26–20, tai yra 6.
• = LEN (A1) -LEN (PAKAITA (A1, "",“”))+1 - Prie bendro rezultato pridedame 1, nes bendras tarpų skaičius yra vienu mažesnis nei bendras žodžių skaičius. Pavyzdžiui, yra viena erdvė dviejuose žodžiuose ir dvi erdvės trijuose žodžiuose.

Dabar tai gerai veikia, jei tarp žodžių yra tik vienas tarpas. Bet tai neveiks, jei tarp žodžių yra daugiau nei viena erdvė.

Tokiu atveju naudokite kitą pavyzdį.

2 pavyzdys: kai tarp žodžių yra keli tarpai

Tarkime, kad turite tokį tekstą: Išleiskite katę iš maišo

Šiuo atveju tarp žodžių yra keli tarpo ženklai.

Norėdami gauti žodžių skaičių, pirmiausia turime pašalinti visas papildomas tarpus (pvz., Kad tarp dviejų žodžių būtų tik vienas tarpo simbolis) ir tada suskaičiuoti bendrą tarpų skaičių.

Čia yra formulė, kuri suteiks mums reikiamą žodžių skaičių:

= LEN (TRIM (A1))-LEN (PAKEITIMAS (A1, "", ""))+1

Tai panaši formulė, naudojama aukščiau pateiktame pavyzdyje, su nedideliu pakeitimu - čia taip pat naudojome funkciją TRIM.

„Excel TRIM“ funkcija pašalina visas priekines, galines ir papildomas tarpus (išskyrus atskirus tarpus tarp žodžių).

Likusi formulė veikia taip pat (kaip paaiškinta 1 pavyzdyje).

Pastaba: jei tarp žodžių nėra tarpų, jis laikomas vienu žodžiu.

„VBA“ pasirinktinės funkcijos naudojimas žodžiams skaičiuoti „Excel“

Nors aukščiau pateiktos formulės puikiai veikia, jei jums reikia dažnai skaičiuoti žodžių skaičių, galite naudoti VBA, kad sukurtumėte pasirinktinę funkciją (dar vadinamą vartotojo apibrėžta funkcija).

Naudojant pasirinktinę funkciją yra tai, kad galite ją sukurti vieną kartą ir naudoti kaip bet kurią kitą įprastą „Excel“ funkciją. Taigi, užuot sukūrę ilgą sudėtingą formulę, kaip tai padarėme dviejuose aukščiau pateiktuose pavyzdžiuose, turite paprastą formulę, kuri paima langelio nuorodą ir akimirksniu pateikia žodžių skaičių.

Čia yra kodas, kuris sukurs šią pasirinktinę funkciją, kad „Excel“ gautų žodžių skaičių.

Funkcija „WordCount“ („CellRef“ kaip diapazonas) „Dim Text“ „String“ kaip eilutė „Dim Result“ () Kaip eilutės rezultatas = padalintas („WorksheetFunction.Trim“ („CellRef.Text“), "") "WordCount" = "UBound" (rezultatas ()) + 1 pabaigos funkcija

Sukūrę galite naudoti „WordCount“ funkciją, kaip ir bet kurią kitą įprastą „Excel“ funkciją.

Aukščiau pateiktame tinkintos funkcijos kode naudoju darbalapio TRIM funkciją, kad pašalinčiau bet kokius priekinius, galinius ir dvigubus tarpus tarp žodžių. Tai užtikrina, kad visos trys ląstelės duoda tą patį rezultatą, nes skaičiuojami tik žodžiai, o ne dvigubi tarpai.

Kaip veikia ši formulė:

Aukščiau pateiktas VBA kodas pirmiausia naudoja TRIM funkciją, kad pašalintų visas pirmaujančias, galines ir dvigubas tarpus iš teksto eilutės nurodytoje ląstelėje.

Kai ji turi išvalytą eilutę, ji naudoja SPLIT funkciją VBA, kad padalintų teksto eilutę pagal ribotuvą, kurį mes nurodėme kaip tarpo simbolį. Taigi kiekvienas žodis yra atskirtas kaip išsaugotas kaip atskiras elementas rezultato kintamajame.

Tada mes naudojame funkciją UBOUND, kad suskaičiuotume bendrą elementų, išsaugotų rezultatų kintamuosiuose, skaičių. Kadangi VBA bazė yra 0, turime pridėti 1, kad gautume bendrą žodžių skaičių.

Tai reiškia, kad rezultatas (0) išsaugo pirmąjį žodį, rezultatas (1) - antrą žodį ir pan. Kadangi šis skaičiavimas prasideda nuo 0, turime pridėti 1, kad gautume tikrą žodžių skaičių.

Kur dėti šį kodą?

Kurdami pasirinktinę funkciją, turite įdėti kodą į darbaknygės VB redaktorių (tai yra galinė darbaknygės dalis, kurioje galite rašyti kodą, kad automatizuotumėte užduotis ir sukurtumėte pasirinktines funkcijas).

Žemiau pateikiami veiksmai, kaip įdėti „GetNumeric“ funkcijos kodą į darbaknygę.

1. Eikite į skirtuką Kūrėjas.
2. Spustelėkite „Visual Basic“ parinktį. Tai atidarys VB redaktorių užpakalinėje sistemoje.
3. VB redaktoriaus „Project Explorer“ srityje dešiniuoju pelės mygtuku spustelėkite bet kurį darbaknygės objektą, į kurį norite įterpti kodą. Jei nematote „Project Explorer“, eikite į skirtuką „View“ ir spustelėkite „Project Explorer“.
4. Eikite į „Įterpti“ ir spustelėkite „Modulis“. Tai įterps jūsų darbo knygos modulio objektą.
5. Nukopijuokite ir įklijuokite kodą modulio lange.

Nukopijavę kodą kodo lange, galite grįžti į savo darbalapį ir naudoti šią funkciją kaip ir bet kurią kitą įprastą „Excel“ funkciją.

Tiesiog įveskite = Žodis ir jis parodys jums formulę sąraše.

Tam reikia vieno argumento, kuris yra langelio nuoroda ir akimirksniu pateikia jums jame esantį žodžių skaičių.