U ovom ćemo članku stvoriti prilagođenu funkciju za izračun zbroja znamenki u ćeliji.
Uzorci podataka za ovaj primjer sastoje se od podataka o prodaji. Svaki agent prodao je različite proizvode. U ćeliji imamo broj prodanih artikala iza koje slijedi naziv proizvoda. Želimo pronaći ukupnu količinu proizvoda koju je prodao svaki agent.
Stvorili smo funkciju „SumDigits“ za izračun zbroja znamenki u ćeliji. Ova funkcija uzima raspon ćelije kao ulaz i vraća zbroj znamenki u ćeliji.
Logično objašnjenje
Napravili smo prilagođenu funkciju "SumDigits" za izračun zbroja znamenki u ćeliji. U ovoj funkciji nalazimo duljinu niza u ćeliji, a zatim se petljamo od prvog do posljednjeg znaka u nizu. Zatim pronalazimo i dodajemo numeričke vrijednosti koje se nalaze u nizu kako bismo dobili zbroj znamenki.
Objašnjenje koda
Srednji (broj, i, 1)
Srednja funkcija koristi se za izdvajanje podniz iz glavnog niza. Gornji kôd će izdvojiti jedan znak iz glavnog niza odjednom.
IsNumeric (vrijednost)
IsNumeric funkcija se koristi za provjeru je li zadana vrijednost numerička.
Val (vrijednost)
Val funkcija se koristi za pretvaranje niza u numeričku vrijednost.
Molimo slijedite dolje za kôd
Opcija Eksplicitna funkcija SumDigits (broj kao varijanta) Dim i As Integer For i = 1 To Len (Number) If IsNumeric (Mid (Number, i, 1)) then SumDigits = SumDigits + Val (Mid (Number, i, 1)) Završi ako je sljedeće i završava funkciju
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte