Tässä artikkelissa luomme mukautetun funktion solun numeroiden laskemiseksi.
Esimerkkitiedot tässä esimerkissä koostuvat myyntitiedoista. Jokainen edustaja on myynyt eri tuotteita. Solussa on myytyjen tuotteiden määrä ja tuotteen nimi. Haluamme löytää kunkin edustajan myymän tuotteen kokonaismäärän.
Olemme luoneet "SumDigits" -funktion, joka laskee solun numeroiden summan. Tämä toiminto ottaa syötteeksi solualueen ja palauttaa solun numeroiden summan.
Looginen selitys
Olemme luoneet mukautetun funktion "SumDigits" laskemaan solujen numeroiden summan. Tässä funktiossa löydämme merkkijonon pituuden solusta ja sitten silmukan merkkijonon ensimmäisestä merkistä viimeiseen merkkiin. Sitten löydämme ja lisäämme merkkijonosta löytyvät numeeriset arvot, jotta saadaan numeroiden summa.
Koodin selitys
Keski (luku, i, 1)
Keskitoimintoa käytetään poimimaan alimerkkijono pääjonosta. Yllä oleva koodi poimii yhden merkin pääjonosta kerrallaan.
IsNumeric (arvo)
IsNumeric -toimintoa käytetään tarkistamaan, onko annettu arvo numeerinen.
Val (arvo)
Val -funktiota käytetään merkkijonon muuntamiseen numeeriseksi arvoksi.
Seuraa koodia alla
Vaihtoehto Selkeä toiminto SumDigits (luku muunnelmana) Dim i kokonaislukuna i = 1 - Len (luku) Jos IsNumeric (Mid (Number, i, 1)) Sitten SumDigits = SumDigits + Val (Mid (Number, i, 1)) Lopeta, jos seuraava i Lopeta
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse