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
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å knappen for at køre koden, og du får et nyt regneark med alle kommentarerne i den aktuelle projektmappe. Se skærmbillede:
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:
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:
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:
- Skift alle kommentarformater i celler
- Skift forfatternavn for alle kommentarer
- Find og erstat tekst i kommentarer
- Vis eller skjul alle kommentarer og kommentarindikatorer i Excel
- Konverter celleindhold til kommentarer i Excel
- Konverter kommentarer til celleindhold 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!