Selles artiklis loome kohandatud funktsiooni lahtri numbrite summa arvutamiseks.
Selle näite näidisandmed koosnevad müügiandmetest. Iga agent on müünud erinevaid tooteid. Lahtris on meil müüdud üksuste arv, millele järgneb toote nimi. Soovime leida iga agendi müüdud koguartikli.
Lahtris olevate numbrite summa arvutamiseks oleme loonud funktsiooni SumDigits. See funktsioon võtab sisendiks lahtrite vahemiku ja tagastab lahtris olevate numbrite summa.
Loogiline seletus
Lahtris olevate numbrite summa arvutamiseks oleme loonud kohandatud funktsiooni „SumDigits”. Selles funktsioonis leiame lahtrist stringi pikkuse ja seejärel loeme stringi esimesest märgist viimase märgini. Seejärel leiame ja lisame numbrite summa saamiseks stringist leitud arvväärtused.
Koodi selgitus
Keskmine (number, i, 1)
Funktsiooni Mid kasutatakse alamstringi ekstraheerimiseks põhistringist. Ülaltoodud kood eraldab põhitringist korraga ühe märgi.
IsNumeric (väärtus)
Funktsiooni IsNumeric kasutatakse selleks, et kontrollida, kas antud väärtus on numbriline.
Val (väärtus)
Funktsiooni Val kasutatakse stringi teisendamiseks arvväärtuseks.
Palun järgige koodi allpool
Valik Selge funktsioon SumDigits (arv variandina) Dim i täisarvuna i = 1 kuni Len (arv) Kui IsNumeric (Mid (Number, i, 1)) Siis SumDigits = SumDigits + Val (Mid (Number, i, 1)) Lõpeta, kui järgmine, lõpetab funktsiooni
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile