V tem članku bomo ustvarili funkcijo po meri za izračun vsote števk v celici.
Vzorčne podatke za ta primer sestavljajo prodajni podatki. Vsak agent je prodal drugačen izdelek. V celici imamo število prodanih artiklov, ki jim sledi ime izdelka. Želimo poiskati skupno prodano blago vsakega zastopnika.
Ustvarili smo funkcijo »SumDigits« za izračun vsote števk v celici. Ta funkcija vzame obseg celice kot vhod in vrne vsoto števk v celici.
Logična razlaga
Ustvarili smo funkcijo po meri "SumDigits" za izračun vsote števk v celici. V tej funkciji najdemo dolžino niza v celici in nato zanimo od prvega znaka do zadnjega v nizu. Nato poiščemo in dodamo številske vrednosti, ki jih najdemo v nizu, da dobimo vsoto števk.
Razlaga kode
Srednje (število, i, 1)
Srednja funkcija se uporablja za izvlečenje podniz iz glavnega niza. Zgornja koda bo naenkrat izvlekla en znak iz glavnega niza.
IsNumeric (vrednost)
Funkcija IsNumeric se uporablja za preverjanje, ali je dana vrednost numerična.
Val (vrednost)
Funkcija Val se uporablja za pretvorbo niza v številsko vrednost.
Za kodo sledite spodaj
Možnost Eksplicitna funkcija SumDigits (število kot različica) Dim i As Integer For i = 1 To Len (Number) If IsNumeric (Mid (Number, i, 1)) Potem SumDigits = SumDigits + Val (Mid (Število, i, 1)) Končaj, če je naslednja i Končaj funkcijo
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte