Hoe het aantal cellen met opmerkingen in Excel te tellen?
Heeft u ooit geprobeerd het aantal opmerkingen in een werkblad te tellen? In dit artikel introduceer ik enkele snelle trucs om te tellen hoeveel cellen met opmerkingen er in een werkblad voorkomen.
Aantal cellen met opmerkingen tellen met de functie Ga naar Speciaal
Aantal cellen met opmerkingen tellen met een door de gebruiker gedefinieerde functie
Aantal cellen met opmerkingen tellen met VBA-code
Aantal cellen met opmerkingen tellen met de functie Ga naar Speciaal
Met de functie Ga naar Speciaal in Excel kunt u eerst alle cellen met opmerkingen selecteren en vervolgens het aantal bekijken in de statusbalk.
1. Ga naar Start > Zoeken en selecteren > Ga naar Speciaal, zie screenshot:
2. Selecteer in het dialoogvenster Ga naar Speciaal de optie Opmerkingen onder de sectie Selecteren, zie screenshot:
3. Klik vervolgens op de knop OK om dit dialoogvenster te sluiten, en alle cellen in het actieve werkblad die een opmerking bevatten, worden tegelijkertijd geselecteerd. U kunt het aantal opmerkingen bekijken in de statusbalk. Zie screenshot:
Opmerking: Als u lege cellen met opmerkingen heeft, worden de opmerkingen in de lege cellen niet geteld.
Tip: U kunt ook de sneltoets Ctrl + G gebruiken om het dialoogvenster Ga naar te openen en klik op de knop Speciaal om het dialoogvenster Ga naar Speciaal te tonen.
Aantal cellen met opmerkingen tellen met een door de gebruiker gedefinieerde functie
De bovenstaande methode heeft zijn eigen nadelen, dus we kunnen een door de gebruiker gedefinieerde functie maken om alle celopmerkingen te tellen, inclusief de opmerkingen in lege cellen.
1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.
2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.
VBA-code: Aantal cellen met opmerkingen tellen
Function CountComments(xCell As Range)
'Update 20140924
Application.Volatile
CountComments = xCell.Parent.Comments.Count
End Function
3. Sla de code vervolgens op en sluit deze, ga terug naar het werkblad en voer in een lege cel de volgende formule in: =countcomments(A1), (A1 is een celverwijzing, u kunt dit wijzigen naar elk ander celadres), zie screenshot:
4. Druk vervolgens op Enter en u krijgt het aantal celopmerkingen.
Aantal cellen met opmerkingen tellen met VBA-code
De volgende VBA-code kan u ook helpen om alle celopmerkingen te tellen, inclusief de opmerkingen in lege cellen.
1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.
2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.
VBA-code: Aantal cellen met opmerkingen tellen
Sub CountComments()
'Update 20140924
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
If VBA.Err > 0 Then
MsgBox 0
Else
MsgBox WorkRng.Count
End If
End Sub
3. Druk vervolgens op de toets F5 om deze code uit te voeren, en er verschijnt een pop-upvenster dat u eraan herinnert een gegevensbereik te selecteren waarin u de celopmerkingen wilt tellen. Zie screenshot:
4. Klik vervolgens op OK, en u krijgt het aantal celopmerkingen in de selectie.
Gerelateerde artikelen:
Hoe alle opmerkingen naar een nieuw werkblad of werkboek in Excel te verplaatsen?
Hoe tekst binnen opmerkingen in Excel te zoeken en vervangen?
Hoe snel een opmerking in meerdere cellen in Excel in te voegen?
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