Sumokite langelio skaitmenų skaičių naudodami „Microsoft Excel“ pasirinktinę VBA funkciją

Anonim

Šiame straipsnyje mes sukursime pasirinktinę funkciją, kad apskaičiuotume ląstelės skaitmenų sumą.

Šio pavyzdžio pavyzdinius duomenis sudaro pardavimo duomenys. Kiekvienas agentas pardavė skirtingus produktus. Ląstelėje yra parduotų prekių skaičius, po kurių nurodomas produkto pavadinimas. Mes norime rasti bendrą kiekvieno agento parduodamą prekę.

Mes sukūrėme funkciją „SumDigits“, kad apskaičiuotume ląstelės skaitmenų sumą. Ši funkcija įveda langelių diapazoną ir grąžina langelio skaitmenų sumą.

Loginis paaiškinimas

Mes sukūrėme pasirinktinę funkciją „SumDigits“, kad apskaičiuotume ląstelės skaitmenų sumą. Šioje funkcijoje mes randame eilutės ilgį ląstelėje ir tada einame nuo pirmo simbolio iki paskutinio simbolio eilutėje. Tada mes surandame ir pridedame eilutėje esančias skaitines reikšmes, kad gautume skaitmenų sumą.

Kodo paaiškinimas

Vidurinis (skaičius, i, 1)

Funkcija „Mid“ naudojama papildomai eilutei išgauti iš pagrindinės eilutės. Viršuje esantis kodas vienu metu iš pagrindinės eilutės ištrauks vieną simbolį.

IsNumeric (vertė)

Funkcija „IsNumeric“ naudojama patikrinti, ar nurodyta vertė yra skaitinė.

Val (vertė)

Val funkcija naudojama konvertuoti eilutę į skaitinę reikšmę.

Sekite toliau pateiktą kodą

 Parinktis Aiškioji funkcija SumDigits (skaičius kaip variantas) Dim i kaip sveikasis skaičius i = 1 iki Len (skaičius), jei yra skaitmeninis (vidurkis (skaičius, i, 1)) Tada SumDigits = SumDigits + Val (vidurys (skaičius, i, 1)) Baigti, jei kitas ir pabaigos funkcija 

Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.

Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el