În acest articol, vom crea o funcție personalizată pentru a calcula suma cifrelor dintr-o celulă.
Exemplele de date pentru acest exemplu constau în date despre vânzări. Fiecare agent a vândut produse diferite. Într-o celulă avem un număr de articole vândute urmat de numele produsului. Vrem să găsim articolul total vândut de fiecare agent.
Am creat funcția „SumDigits” pentru a calcula suma cifrelor din celulă. Această funcție ia intervalul de celule ca intrare și returnează suma cifrelor din celulă.
Explicație logică
Am creat funcția personalizată „SumDigits” pentru a calcula suma cifrelor dintr-o celulă. În această funcție, găsim lungimea șirului în celulă și apoi bucla de la primul caracter la ultimul caracter din șir. Apoi găsim și adăugăm valorile numerice găsite în șir pentru a obține suma cifrelor.
Explicarea codului
Mijlociu (număr, i, 1)
Funcția Mid este utilizată pentru a extrage șirul secundar din șirul principal. Codul de mai sus va extrage câte un caracter din șirul principal la un moment dat.
IsNumeric (valoare)
Funcția IsNumeric este utilizată pentru a verifica dacă valoarea dată este numerică.
Val (Valoare)
Funcția Val este utilizată pentru a converti șirul în valoare numerică.
Vă rugăm să urmați codul de mai jos
Opțiune Funcție explicită SumDigits (Number As Variant) Dim i As Inger pentru i = 1 To Len (Number) If IsNumeric (Mid (Number, i, 1)) Then SumDigits = SumDigits + Val (Mid (Number, i, 1)) End If Next i End Function
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail