V tomto článku vytvoříme vlastní funkci pro výpočet součtu číslic v buňce.
Ukázková data pro tento příklad se skládají z údajů o prodeji. Každý agent prodal jiný produkt. V buňce máme počet prodaných položek následovaný názvem produktu. Chceme zjistit celkovou položku prodanou každým agentem.
Vytvořili jsme funkci „SumDigits“ pro výpočet součtu číslic v buňce. Tato funkce bere jako vstup rozsah buňky a vrací součet číslic v buňce.
Logické vysvětlení
Vytvořili jsme vlastní funkci „SumDigits“ pro výpočet součtu číslic v buňce. V této funkci najdeme délku řetězce v buňce a poté smyčku od prvního znaku k poslednímu znaku v řetězci. Poté najdeme a sečteme číselné hodnoty nalezené v řetězci, abychom získali součet číslic.
Vysvětlení kódu
Střední (číslo, i, 1)
Funkce Mid se používá k extrahování dílčího řetězce z hlavního řetězce. Výše uvedený kód extrahuje vždy jeden znak z hlavního řetězce.
IsNumeric (hodnota)
Funkce IsNumeric slouží ke kontrole, zda je daná hodnota číselná.
Val (hodnota)
Funkce Val se používá k převodu řetězce na číselnou hodnotu.
Pro kód prosím postupujte níže
Volba Explicitní funkce SumDigits (číslo jako varianta) Dim i jako celé číslo pro i = 1 až Len (číslo) Pokud je číselné (střední (číslo, i, 1)) Pak SumDigits = SumDigits + Val (střední (číslo, i, 1)) End If Next i End Funkce
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail