Opsummering cifre i en Value

Hvis du har en celle, der indeholder en værdi, kan du ønsker at udtænke en måde at tilføje sammen alle cifrene i værdien. For eksempel, hvis en celle indeholder værdien 554, kan du bestemme summen af ​​5 + 5 + 4, hvilket er 14.

Der er flere måder, du kan nærme denne opgave. (Ikke at altid synes den måde, Excel?) Den første er at bruge en formel, der bygger på flere forskellige funktioner:

= SUMPRODUKT (- MID (A1, RÆKKE (INDIREKTE ("1:" & LEN (A1))), 1))

Denne regelmæssige formel vil opsummere cifrene i ethvert heltal værdi (i celle A1) på en enkel, elegant måde. Dette er ikke den eneste mulige formel, dog. Det følgende er en matrixformel (afsluttes ved at trykke på Ctrl + Shift + Enter) version af den samme formel:

= SUM (1 * MID (A1, RÆKKE (INDIREKTE ("1:" & LEN (A1))), 1))

Begge disse formler fungerer fint, hvis værdien i A1 er et positivt helt tal. Hvis der er nogen ikke-cifrede tegn i nummeret (såsom et negativt fortegn eller et komma), så formlerne returnere en #VALUE! fejl.

Disse er ikke de eneste formler mulige for denne type beregning. Du kan finde nogle andre eksempler på formler i Microsoft Knowledge Base:

http://support.microsoft.com/kb/214053

Du kan også bruge en brugerdefineret funktion til at returnere den ønskede beløb. Følgende makro trin gennem hvert ciffer i den refererede celle og beregner en total. Denne værdi returneres derefter til brugeren:

Funktion AddDigits (nummer som Long) As Integer
Dim i As Integer
Dim Sum As Integer
Dim sNumber As String

sNumber = CStr (nummer)
For i = 1 til Len (sNumber)
Sum = Sum + Mid (sNumber, I, 1)
Næste
AddDigits = Sum
End Function

For at bruge denne funktion, skal du blot bruge en formel som = AddDigits (A1) i en celle. En endnu mere kompakt brugerdefineret funktion (påberåbes på samme måde) er følgende:

Funktion AddDigits (ByVal N så længe) As Integer
Gør Mens N> = 1
AddDigits = AddDigits + N Mod 10
N = Int (N / 10)
Loop
End Function

I modsætning til den tidligere makro, er denne version ikke konvertere celleindholdet til en streng for at behandle den. I stedet trin gennem hvert ciffer i værdi, stripping off det sidste ciffer og tilføje den til det samlede beløb.

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (2424) gælder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til båndet grænseflade Excel (Excel 2007 og nyere) her: Opsummering tal i en værdi.


© 2019 Zajacperrone.com | Contact us: webmaster# zajacperrone.com