V tomto článku vytvoríme vlastnú funkciu na výpočet súčtu číslic v bunke.
Vzorové údaje pre tento príklad pozostávajú z údajov o predaji. Každý agent predal iný produkt. V bunke je uvedený počet predaných položiek a za nimi názov produktu. Chceme nájsť celkovú položku predanú každým agentom.
Vytvorili sme funkciu „SumDigits“ na výpočet súčtu číslic v bunke. Táto funkcia používa ako vstup rozsah bunky a vracia súčet číslic v bunke.
Logické vysvetlenie
Vytvorili sme vlastnú funkciu „SumDigits“ na výpočet súčtu číslic v bunke. V tejto funkcii nájdeme dĺžku reťazca v bunke a potom cyklus od prvého znaku po posledný znak v reťazci. Potom nájdeme a sčítame číselné hodnoty nájdené v reťazci, aby sme získali súčet číslic.
Vysvetlenie kódu
Stredný (Číslo, i, 1)
Funkcia Mid sa používa na extrahovanie podreťazca z hlavného reťazca. Vyššie uvedený kód extrahuje naraz jeden znak z hlavného reťazca.
IsNumeric (hodnota)
Funkcia IsNumeric slúži na kontrolu, či je daná hodnota číselná.
Val (hodnota)
Na prevod reťazca na číselnú hodnotu slúži funkcia Val.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Voľba Explicitná funkcia SumDigits (číslo ako variant) Dim i ako celé číslo pre i = 1 až Len (číslo) Ak je číselné (stredné (číslo, i, 1)), potom SumDigits = sumDigits + Val (stredné (číslo, i, 1)) End If Next i Ukončiť funkciu
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku