I den här artikeln kommer vi att skapa en anpassad funktion för att beräkna summan av siffror i en cell.
Exempeldata för detta exempel består av försäljningsdata. Varje agent har sålt olika produkter. I en cell har vi antal artiklar sålda följt av produktnamnet. Vi vill hitta det totala objektet som säljs av varje agent.
Vi har skapat funktionen "SumDigits" för att beräkna summan av siffror i cellen. Denna funktion tar cellintervallet som inmatning och returnerar summan av siffror i cellen.
Logisk förklaring
Vi har skapat en anpassad funktion “SumDigits” för att beräkna summan av siffror i en cell. I denna funktion hittar vi strängens längd i cellen och går sedan från första tecknet till det sista tecknet i strängen. Sedan hittar vi och lägger till de numeriska värden som finns i strängen för att få summan av siffror.
Kodförklaring
Mitt (Antal, i, 1)
Medelfunktionen används för att extrahera delsträngen från huvudsträngen. Ovanstående kod kommer att extrahera ett tecken från huvudsträngen åt gången.
IsNumeric (värde)
IsNumeric -funktionen används för att kontrollera om det givna värdet är numeriskt.
Val (värde)
Val -funktionen används för att konvertera strängen till numeriskt värde.
Följ koden nedan
Alternativ Explicit Function 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)) Avsluta om nästa i Avsluta funktion
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen