I denne artikkelen vil vi lage en tilpasset funksjon for å beregne summen av sifre i en celle.
Eksempeldata for dette eksemplet består av salgsdata. Hver agent har solgt forskjellige produkter. I en celle har vi antall varer solgt etterfulgt av produktnavnet. Vi ønsker å finne den totale varen som selges av hver agent.
Vi har laget “SumDigits” -funksjon for å beregne summen av sifre i cellen. Denne funksjonen tar celleområdet som inndata og returnerer summen av sifre i cellen.
Logisk forklaring
Vi har opprettet tilpasset funksjon “SumDigits” for å beregne summen av sifre i en celle. I denne funksjonen finner vi lengden på strengen i cellen og går deretter fra første tegn til siste tegn i strengen. Deretter finner og legger vi til de numeriske verdiene som finnes i strengen for å få summen av sifre.
Kode forklaring
Midt (tall, i, 1)
Mid-funksjon brukes til å trekke ut understrengen fra hovedstrengen. Koden ovenfor vil trekke ut ett tegn fra hovedstrengen om gangen.
IsNumeric (verdi)
IsNumeric -funksjonen brukes til å kontrollere om den gitte verdien er numerisk.
Val (verdi)
Val -funksjon brukes til å konvertere strengen til numerisk verdi.
Følg koden nedenfor
Alternativ Eksplisitt Funksjon SumDigits (Number As Variant) Dim i As Integer For i = 1 To Len (Number) If IsNumeric (Mid (Number, i, 1)) Then SumDigits = SumDigits + Val (Mid (Number, i, 1)) Slutt hvis neste i Avslutt funksjon
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post