Jak vypsat všechny komentáře k novému listu nebo sešitu v aplikaci Excel?
Pokud máte sešit, který obsahuje příliš mnoho komentářů, a chcete vypsat všechny komentáře do nového listu nebo sešitu pro kontrolu všech komentářů, jak to můžete udělat? Následující metody vám pomohou rychle vypsat všechny komentáře listu / sešitu do nového listu nebo sešitu v aplikaci Excel.
Seznam všech komentářů k novému listu s kódem VBA
Seznam všech komentářů k novému listu nebo sešitu pomocí Kutools pro Excel
Seznam všech komentářů k novému listu s kódem VBA
Následující kód VBA vypíše všechny komentáře k novému listu v aktuálním sešitu. V novém listu zobrazí seznam všech komentářů celého sešitu v seznamu s názvem listu, adresou buňky, obsahem komentáře a názvem buňky. Použijte tuto metodu následujícím způsobem:
1. klikněte Vývojka > Visual Basic, zobrazí Microsoft Visual Basic pro aplikace okno. A klikněte Vložit > Modul, a poté vložte následující kódy VBA do modulu.
VBA: seznam všech komentářů v novém listu.
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. Pak klikněte na tlačítko 
tlačítko ke spuštění kódu a získáte nový list se všemi komentáři v aktuálním sešitu. Viz snímek obrazovky:
Seznamte všechny komentáře k novému listu nebo sešitu jedním kliknutím
S Vytvořit seznam komentářů of Kutools pro Excel, můžete rychle uvést všechny komentáře do nového listu nebo nového sešitu.
Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Získat nyní.
1. Pokud jste nainstalovali Kutools pro Excel, klikněte na Kutools > Moře > Vytvořit seznam komentářů, viz screenshot:
2. V Vytvořit seznam komentářů dialogové okno:
- Vyberte rozsah, ve kterém chcete komentář uvést, můžete si vybrat Aktivní list or Všechny listy.
- Poté zadejte umístění, které chcete vložit do seznamu komentářů, můžete zobrazit seznam komentářů v novém sešitu nebo na novém listu, viz screenshot:
3. A pak klikněte na tlačítko Vytvořitknoflík. Nový list bude přidán do seznamu všech aktivních komentářů k listu s jeho atributy, jako je název listu, odkazy na buňky, řádek a sloupec. Viz snímek obrazovky:
Podrobnější informace o Vytvořit seznam komentářů, prosím navštivte Vytvořit popis funkce seznamu komentářů.
Související články:
- Změňte všechny formáty komentářů v buňkách
- Změnit jméno autora všech komentářů
- Najít a nahradit text v komentářích
- Zobrazit nebo skrýt všechny komentáře a indikátory komentářů v aplikaci Excel
- Převést obsah buňky na komentáře v aplikaci Excel
- Převeďte komentáře na obsah buněk v aplikaci Excel
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
