Hvordan tæller / summerer jeg gennemstregningsceller i Excel?
I Excel formaterer vi altid gennemstregning for nogle celler, der angiver, at celleværdierne er ubrugelige eller ugyldige, så vi kan analysere dataene mere præcist. I denne artikel vil jeg tale om, hvordan man laver nogle beregninger i området med disse gennemstregningsceller i Excel.
Tæl gennemstregningsceller i Excel
Tæl uden gennemstregningsceller i Excel
Summen ekskluderer gennemstregningsceller i Excel
Tæl gennemstregningsceller i Excel
Hvis du vil vide, hvor mange celler med gennemstregningsformat i et interval, kan du oprette en brugerdefineret funktion, gør som følger:
1. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Tæl gennemstregningsceller
Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountStrike = xOut
End Function
3. Gem derefter og luk denne kode, og vend tilbage til regnearket, og indtast derefter denne formel = CountStrike (A2: B14) til en tom celle, se skærmbillede:
4. Tryk derefter på Indtast nøgle, og alle gennemstregningsceller er talt. Se skærmbillede:
Tæl uden gennemstregningsceller i Excel
Men nogle gange kan du måske tælle antallet af kun de normale celler, der ekskluderer gennemstregningscellerne. Følgende kode kan hjælpe dig.
1. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Tæl uden gennemstregningsceller
Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountNoStrike = xOut
End Function
3. Gem derefter og luk denne kode, gå tilbage til dit regneark, skriv denne formel = countnostrike (A2: B14) ind i en tom celle, og tryk på Indtast nøgle, så får du det ønskede resultat.
Bemærk: I ovenstående formler A2: B14 er det område, du vil anvende formlerne.
Summen ekskluderer gennemstregningsceller i Excel
Fordi gennemstregningscellerne er ubrugte, vil jeg her kun sammenfatte de normale tal uden gennemstregningsnumrene. For at løse denne opgave har du også brug for en brugerdefineret funktion.
1. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Sum ekskluderer gennemstregningsceller
Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + pRng.Value
End If
Next
ExcStrike = xOut
End Function
3. Gem derefter og luk denne kode, gå tilbage til dit regneark, skriv denne formel = udtræk (B2: B14) ind i en tom celle, og tryk på Indtast nøgle, og du får en summering af alle numrene uden gennemstregningscellerne. Se skærmbillede:
Bemærk: I ovenstående formler B2: B14 er det område, du vil sammenfatte celler uden gennemstregningsformat i.
Relaterede artikler:
Hvordan summeres / tælles fedt tal i en række celler i Excel?
Hvordan tælles og summeres celler baseret på baggrundsfarve i Excel?
Hvordan tælles / summeres celler baseret på skrifttypefarverne i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!