Gå til hovedindhold

Hvordan tælles antallet af celler med kommentarer i Excel?

Har du nogensinde prøvet at tælle antallet af kommentarer i et regneark? I denne artikel vil jeg introducere dig nogle hurtige tricks til at tælle, hvor mange celler med kommentarer i et regneark.

Tæl antallet af celler, der indeholder kommentarer med funktionen Gå til speciel

Tæl antallet af celler, der indeholder kommentarer med brugerdefineret funktion

Tæl antallet af celler, der indeholder kommentarer med VBA-kode


pil blå højre boble Tæl antallet af celler, der indeholder kommentarer med funktionen Gå til speciel

Med Gå til Special funktion i Excel, kan du først vælge alle kommentarcellerne og derefter se tællingsnummeret i statuslinjen.

1. Gå til klik Home > Find og vælg > Gå til Special, se skærmbillede:

doc-count-comments-1

2. I Gå til Special dialogboks, tjek venligst Kommentarer mulighed under Type sektion, se skærmbillede:

doc-count-comments-1

3. Klik derefter på OK knap for at lukke denne dialog, og alle cellerne i det aktive regneark, der indeholder kommentaren, er valgt på én gang. Og du kan få antallet af kommentarer på statuslinjen. Se skærmbillede:

doc-count-comments-1

Bemærk: Hvis du har tomme celler med kommentarer, tælles de tomme celler ikke.

Tip: Du kan også trykke på Ctrl + G genveje, der skal åbnes gå til dialog, og klik på Særlig knap for at vise Gå til Special dialogen.


pil blå højre boble Tæl antallet af celler, der indeholder kommentarer med brugerdefineret funktion

Ovenstående metode har sin egen ulempe, så vi kan oprette en brugerdefineret funktion til at tælle alle cellekommentarer inklusive de tomme cellekommentarer.

1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Tæl antallet af celler med kommentar

Function CountComments(xCell As Range)
'Update 20140924
    Application.Volatile
    CountComments = xCell.Parent.Comments.Count
End Function

3. Gem derefter og luk koden, gå tilbage til regnearket. Indtast denne formel i en tom celle: = antal kommentarer (A1), (A1 er en cellehenvisning, kan du ændre den til enhver anden celleadresse), se skærmbillede:

doc-count-comments-1

4. Tryk derefter på Indtast nøgle, og du får antallet af cellekommentarer.


pil blå højre boble Tæl antallet af celler, der indeholder kommentarer med VBA-kode

Følgende VBA-kode kan også hjælpe dig med at tælle alle cellekommentarer inklusive de tomme cellekommentarer.

1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Tæl antallet af celler med kommentar

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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om at vælge et dataområde, som du vil tælle cellekommentarerne. Se skærmbillede:

doc-count-comments-1

4. Og klik derefter på OK, får du antallet af cellekommentarer i markeringen.

doc-count-comments-1


Relaterede artikler:

Hvordan viser jeg alle kommentarer til et nyt regneark eller en projektmappe i Excel?

Hvordan finder og erstatter jeg tekst i kommentarer i Excel?

Hvordan indsættes hurtigt en kommentar til flere celler i Excel?

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

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...

Beskrivelse


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Buenas tardes, me puede colaborar, que hacer para contar las celdas con comentarios dentro de un rango con Application.Volatile
This comment was minimized by the moderator on the site
sorry to say.. 9 of 10 times need the short 1 line answer. all this fancy dimm rap / buring the item need is just apita
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations