Hoe alle opmerkingen in een nieuw werkblad of werkmap in Excel weergeven?
Als u een werkmap heeft met te veel opmerkingen erin en u wilt alle opmerkingen op een nieuw werkblad of werkboek vermelden om alle opmerkingen te bekijken, hoe kunt u dat dan doen? Met de volgende methoden kunt u snel alle opmerkingen van een werkblad / werkmap weergeven in een nieuw werkblad of nieuwe werkmap in Excel.
Maak een lijst van alle opmerkingen op een nieuw werkblad met VBA-code
Maak een lijst van alle opmerkingen in een nieuw werkblad of werkmap met Kutools voor Excel
Maak een lijst van alle opmerkingen op een nieuw werkblad met VBA-code
De volgende VBA-code geeft een overzicht van alle opmerkingen op een nieuw werkblad in de huidige werkmap. In het nieuwe werkblad worden alle opmerkingen van de hele werkmap in een lijst weergegeven met de bladnaam, het celadres, de inhoud van de opmerking en de celnaam. Gebruik deze methode als volgt:
1. Klik Ontwikkelaar > Visual Basic, het toont de Microsoft Visual Basic voor applicaties venster. En klik Invoegen > Moduleen voer vervolgens de volgende VBA-codes in de module in.
VBA: toont alle opmerkingen in een nieuw werkblad.
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. Dan klikken om de code uit te voeren, en je krijgt een nieuw werkblad met alle opmerkingen in de huidige werkmap. Zie screenshot:
Maak een lijst van alle opmerkingen in een nieuw werkblad of werkmap met één klik
Met de Maak een commentaarlijst of Kutools for Excelkunt u snel alle opmerkingen op een nieuw werkblad of een nieuwe werkmap plaatsen.
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Get it Now.
1. Als u Kutools voor Excel hebt geïnstalleerd, klikt u op Kutools > Meer > Maak een commentaarlijst, zie screenshot:
2. In de Maak een commentaarlijst dialoog venster:
- Selecteer het bereik waarin u de opmerking wilt weergeven, u kunt kiezen Actief blad or Alle lakens.
- Geef vervolgens de locatie op waar u de opmerkingenlijst wilt plaatsen, u kunt de opmerkingen in een nieuwe werkmap of een nieuw blad weergeven, zie screenshot:
3. En klik vervolgens op creërenknop. Er wordt een nieuw werkblad toegevoegd om alle actieve werkbladcommentaar weer te geven met zijn attributen zoals bladnaam, celverwijzingen, rij en kolom. Zie screenshot:
Voor meer gedetailleerde informatie over Maak een commentaarlijstKunt u terecht op Functiebeschrijving van een opmerkingenlijst maken.
Gerelateerde artikelen:
- Wijzig alle commentaarformaten in cellen
- Wijzig de auteursnaam van alle opmerkingen
- Zoek en vervang tekst in opmerkingen
- Toon of verberg alle opmerkingen en opmerkingindicatoren in Excel
- Converteer celinhoud naar opmerkingen in Excel
- Converteer opmerkingen naar celinhoud in Excel
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!