Gå til hovedindhold

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

Hvis du har en projektmappe med for mange kommentarer i den, og du vil liste alle kommentarer til et nyt regneark eller en ny projektmappe til gennemgang af alle kommentarer, hvordan kan du gøre det? Følgende metoder kan hjælpe dig med hurtigt at liste alle kommentarer i et regneark / projektmappe til et nyt regneark eller projektmappe i Excel.

Liste over alle kommentarer til et nyt regneark med VBA-kode

Liste over alle kommentarer til et nyt regneark eller en projektmappe med Kutools til Excel


pil blå højre boble Liste over alle kommentarer til et nyt regneark med VBA-kode

Den følgende VBA-kode viser alle kommentarer til et nyt regneark i den aktuelle projektmappe. I det nye regneark viser den alle kommentarer i hele projektmappen i en liste med arknavnet, celleadressen, kommentarindholdet og cellenavnet. Brug denne metode som følger:

1. Klik Udvikler > Visual Basic, det viser Microsoft Visual Basic til applikationer vindue. Og klik indsatte > Moduler, og indtast derefter følgende VBA-koder i modulet.

VBA: viser alle kommentarer i et nyt regneark.

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. Klik derefter på doc-liste-kommentarer-1 knappen for at køre koden, og du får et nyt regneark med alle kommentarerne i den aktuelle projektmappe. Se skærmbillede:

doc-liste-kommentarer-2


pil blå højre boble Liste alle kommentarer til et nyt regneark eller projektmappe med et enkelt klik

Med Opret kommentarliste of Kutools til Excel, kan du hurtigt liste alle kommentarer til et nyt regneark eller en ny projektmappe.

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Få det nu.

1. Hvis du har installeret Kutools til Excel, skal du klikke på Kutools > Mere > Opret kommentarliste, se skærmbillede:

doc-liste-kommentarer-3-3

2. I Opret kommentarliste dialog boks:

  • Vælg det omfang, som du vil liste en kommentar, som du kan vælge Aktivt ark or Alle ark.
  • Angiv derefter den placering, som du vil placere kommentarlisten, du kan liste kommentarerne i en ny projektmappe eller et nyt ark, se skærmbillede:

doc-liste-kommentarer-4-4

3. Og klik derefter på Opretknap. Et nyt regneark tilføjes for at liste alle de aktive regnearkkommentarer med dets attributter såsom arknavn, cellereferencer, række og kolonne. Se skærmbillede:

For mere detaljeret information om Opret kommentarliste, Kan du besøge Opret beskrivelse af funktionsbeskrivelse.


Relaterede artikler:

Bedste kontorproduktivitetsværktøjer

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øj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (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...

kte-fane 201905


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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In the Create Comment List dialog, select the scope you want to list the comment, Active sheet or All sheets, then choose to place the comments in a new workbook or a new sheet of current workbook https://www.myloweslife.us/
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
But what if you are just commencing? Anyone could have to investigate on particular topic,
anyone start writing on out. This data was
required to rank web web pages

Almillat
Maninerd
hitscorner
maniwebify
This comment was minimized by the moderator on the site
I found it useful to add the following line after line 8 in the VBA code; it renames the sheet to the comments and the date created.

ActiveSheet.Name = "Comments " & Format(Now(), "DD-MMM-YY")
This comment was minimized by the moderator on the site
Oh, and one more thing. Each time I hit "Run", it opens a New Sheet with the list of comments. How can I make it add to the existing sheet without duplicating teh entries then? Thanks :)
This comment was minimized by the moderator on the site
Thank you for the VBA Code! This really helps. Is there a way in which I can see all new comments or responded to comments in the sheet in realtime? It only updates each time the workbook is opened. But not while I am working in it.
Best regards,
Loki
This comment was minimized by the moderator on the site
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations