Hoe strikethrough cellen tellen / optellen in Excel?
In Excel is het gebruikelijk om strikethrough-opmaak toe te passen op bepaalde cellen om gegevens te markeren als verouderd, irrelevant of ongeldig. Deze visuele aanwijzing kan gegevensbeheer aanzienlijk verbeteren en helpen bij het focussen op de informatie die ertoe doet tijdens analyses. Wanneer het gaat om het uitvoeren van berekeningen - zoals tellen of optellen - kunt u echter de resultaten voor strikethrough-cellen willen scheiden van die zonder strikethrough. Het begrijpen hoe u met deze scenario's omgaat, kan uw workflow stroomlijnen en leiden tot nauwkeurigere inzichten. Dit artikel biedt verschillende praktische methoden om cellen met of zonder strikethrough-opmaak te tellen en op te tellen in Excel, met behulp van aanpasbare VBA-functies die flexibiliteit bieden voor verschillende gegevensbeheerbehoeften.
Tel strikethrough-cellen met VBA in Excel
Tel cellen zonder strikethrough met VBA in Excel
Som exclusief strikethrough-cellen met VBA in Excel
Tel of som cellen met strikethrough met Kutools voor Excel
Tel strikethrough-cellen in Excel
Als u het totale aantal cellen dat is opgemaakt met strikethrough in een specifiek bereik wilt bepalen, kan dit niet direct worden bereikt met ingebouwde functies van Excel, omdat er geen formule is die tekstopmaak zoals strikethrough herkent. Daarom wordt het gebruik van een door de gebruiker gedefinieerde functie (UDF) in VBA een praktische oplossing. Deze aanpak is vooral handig bij het beheren van takenlijsten, voorraadupdates of elk scenario waarin strikethrough wordt gebruikt om voltooide, ongeldige of verouderde datapunten aan te geven.
1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het VBA-venster op Invoegen > Module om een nieuwe module te maken en plak vervolgens de volgende code in het Modulevenster.
VBA-code: Tel strikethrough-cellen
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. Nadat u de code hebt ingevoerd, slaat u uw werkboek op (om de macro te behouden), sluit dan de VBA-editor en keert u terug naar uw werkblad. Voer in elke lege cel waar u het resultaat wilt laten verschijnen de volgende formule in (bijvoorbeeld om strikethrough-cellen in het bereik A2:B14 te controleren): =CountStrike(A2:B14)
Tip: U kunt A2:B14 wijzigen in elk ander bereik dat u wilt controleren.
4. Druk op de Enter-toets om de formule uit te voeren en Excel zal onmiddellijk het aantal van alle strikethrough-cellen in het opgegeven bereik weergeven. Dit stelt u in staat om efficiënt voortgang bij te houden of verouderde items te verwijderen indien nodig. Zie screenshot:
Waarschuwing: Om ervoor te zorgen dat deze VBA-code beschikbaar blijft voor toekomstig gebruik, moet u het bestand opslaan in .xlsm-formaat (Excel Macro-Enabled Workbook).
Tel cellen zonder strikethrough in Excel
Er zijn gevallen waarin u mogelijk alleen het aantal cellen nodig hebt dat geen strikethrough-opmaak heeft in een bepaald bereik. Bijvoorbeeld, in projectvolgsystemen of verkoopgegevens wilt u vaak alleen de actieve/geldige items (dat wil zeggen, die zonder strikethrough) tellen voor verdere bewerkingen. Excels standaard COUNT- of COUNTA-functies negeren tekstopmaak, dus een aangepaste VBA-oplossing biedt precieze controle over dergelijke behoeften.
1. Druk op ALT + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Ga naar Invoegen > Module om een nieuwe codemodule toe te voegen. Plak de volgende code in dat modulevenster.
VBA-code: Tel zonder strikethrough-cellen
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. Sla uw macro-werkboek op, ga terug naar het werkblad en voer in een lege cel de volgende formule in (bijvoorbeeld voor A2:B14): =countnostrike(A2:B14) Druk vervolgens op Enter om het resultaat te krijgen. Excel telt alleen die cellen binnen het geselecteerde bereik die geen strikethrough-opmaak hebben.
Opmerking: In het bovenstaande voorbeeld is A2:B14 het bereik van cellen dat wordt geëvalueerd. Pas de bereikreferentie zo nodig aan voor uw werkblad. Let ook op dat samengevoegde cellen of speciale opmaak soms de resultaten kunnen beïnvloeden - dubbelcheck of uw bereik alleen de bedoelde cellen bevat.
Som exclusief strikethrough-cellen in Excel
Bij het omgaan met numerieke gegevens waarbij bepaalde items niet langer actief zijn of genegeerd moeten worden (dat wil zeggen, strikethrough-opmaak hebben), is het vaak essentieel om alleen de geldige getallen op te tellen. Dit is gebruikelijk in budgetbladen, voorraadbeheer of taakvolgen, waar strikethrough-items verouderde of voltooide items vertegenwoordigen die uit de totalen moeten worden uitgesloten. Omdat de ingebouwde SOM-functie van Excel niet onderscheid maakt tussen opgemaakte en niet-opgemaakte cellen, is een door de gebruiker gedefinieerde VBA-functie nodig voor deze bewerking.
1. Gebruik ALT + F11 om de Microsoft Visual Basic for Applications-editor te openen.
2. Klik op Invoegen > Module om een module toe te voegen en plak de onderstaande code in dat modulevenster.
VBA-code: Som exclusief strikethrough-cellen
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. Sla op en sluit de VBA-editor. Kies in uw doelwerkblad een lege cel en voer de volgende formule in (bijvoorbeeld voor B2:B14): =excstrike(B2:B14) Druk op Enter en Excel zal alleen de cellen in uw opgegeven bereik optellen die geen strikethrough-opmaak hebben, waardoor direct een som wordt weergegeven die verouderde waarden uitsluit.
Opmerking: Pas B2:B14 aan naar uw werkelijke databereik. Deze functie negeert strikethrough-cellen, ongeacht hun waarde. Als u onverwachte resultaten ervaart, controleer dan of alle cellen numerieke invoer hebben en de juiste opmaak.
Praktische tip: Als u de sommatie na het wijzigen van de status van een celstripslag wilt vernieuwen, rekent u het werkblad opnieuw uit door op F9 te drukken.
Tel of som cellen met strikethrough met Kutools voor Excel
Als u alleen de cellen wilt tellen of optellen die een strikethrough-indeling hebben, biedt Excel geen ingebouwde manier om dit te doen - maar Kutools voor Excel maakt dit gemakkelijk met de Special Filter-functie.
1. Selecteer de kolom
Klik op de kolom die de cellen met strikethrough-opmaak bevat.
2. Open het Speciaal Filter
Ga naar het tabblad Kutools Plus en klik op Speciaal Filter > Filter Strikethrough.
3. Bevestig het filter
Een dialoogvenster verschijnt waarin wordt weergegeven hoeveel cellen aan de voorwaarde voldeden. Klik op OK om door te gaan.
4. Bekijk de resultaten
De cellen met een strikethrough zijn nu gefilterd en zichtbaar. Selecteer het gefilterde bereik - u zult onmiddellijk de Som, Gemiddelde en Telling zien in de statusbalk van Excel onderaan.
✨ Waarom Kutools gebruiken?
Kutools voor Excel biedt meer dan 300 krachtige en gebruiksvriendelijke functies zoals deze - die u helpen tijd besparen en productiviteit vergroten zonder complexe formules of VBA-code te schrijven.
Of u nu filtert op opmaak, gegevens opruimt, bladen combineert of batch-bewerkingen uitvoert, Kutools vereenvoudigt uw werk in seconden.
Probeer Kutools voor Excel gratis gedurende 30 dagen en ontdek wat u gemist hebt!
Gerelateerde artikelen:
Hoe vetgedrukte nummers in een bereik van cellen in Excel te sommeren / tellen?
Hoe cellen te tellen en op te tellen op basis van achtergrondkleur in Excel?
Hoe cellen te tellen / optellen op basis van lettertypen in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen