Získejte seznam všech komentářů v listu v aplikaci Excel

Pokud pracujete s listy aplikace Excel, které mají v listu mnoho komentářů k buňkám, mohl by být tento návod užitečný. Někdy můžete vložit komentáře k buňkám, abyste zvýraznili nebo vysvětlili data, nebo váš nadřízený může vložit komentáře do buněk při kontrole vaší práce.

Pokud máte velkou datovou sadu a komentáře jsou roztroušeny po celém listu, může pomoci mít všechny komentáře na jednom místě jako seznam.

Získejte seznam všech komentářů v listu

V tomto tutoriálu vám ukážu, jak pomocí kódu VBA získat seznam všech komentářů v listu v samostatném listu.

Něco, jak je uvedeno níže:

V backendu je kód VBA, který dělá následující věci:

• Kontroluje, zda jsou v aktivním listu nějaké komentáře nebo ne. Pokud nejsou žádné komentáře, tiše se ukloní a nic nedělá.
• Pokud jsou v listu komentáře, vytvoří nový list („Komentáře“) a rozbalí seznam všech komentářů v následující struktuře:
  • Sloupec A obsahuje adresu buňky s komentářem.
  • Sloupec B má jméno komentátora. To se hodí, pokud existuje více recenzentů stejného souboru. Pomůže také filtrovat/třídit podle jména recenzentů.
  • Sloupec C obsahuje komentář.

Stáhněte si ukázkový soubor

Kód VBA

Zde je kód VBA, který zde provádí veškeré těžké zvedání.

Sub ExtractComments () Dim ExComment As Comment Dim i As Integer Dim ws As Worksheet Dim CS As Worksheet Set CS = ActiveSheet If ActiveSheet.Comments.Count = 0 then Exit Sub For every ws in worksheets If ws.Name = "Comments" Then i = 1 Další ws Pokud i = 0 Pak nastavíme ws = Worksheets.Add (After: = ActiveSheet) ws.Name = "Comments" Else: Set ws = Worksheets ("Comments") End If For each ExComment In CS.Comments ws. Rozsah ("A1"). Hodnota = "Komentář v" ws.Range ("B1"). Hodnota = "Komentář podle" ws.Range ("C1"). Hodnota = "Komentář" With ws.Range ("A1: C1 ") .Font.Bold = True .Interior.Color = RGB (189, 215, 238) .Columns.ColumnWidth = 20 End With If ws.Range (" A2 ") =" "Then ws.Range (" A2 " ) .Value = ExComment.Parent.Address ws.Range ("B2"). Value = Left (ExComment.Text, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C2"). Hodnota = Right (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) Else ws.Range ("A1"). End (xlDown) .Offset (1, 0) = ExComment.Parent.Address ws.Range ("B1"). End (xlDown) .Offset (1, 0) = Left (ExComment. Text, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C1"). End (xlDown) .Offset (1, 0) = Right (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) End If Next ExComment End Sub

Jak tento kód používat

Existuje několik způsobů, jak můžete pomocí tohoto kódu získat seznam komentářů z vašeho listu:

#1 Zkopírujte vložte data do ukázkového souboru

Zkopírujte vložte data (tak, jak jsou) na kartě Data v souboru ke stažení a poté spusťte toto makro.

Chcete -li spustit toto:

• Přejděte na kartu Vývojář a klikněte na Makra. Otevře se dialogové okno Makro.
• Vyberte ExtractComment a klikněte na Spustit. Ujistěte se, že jste v listu, který obsahuje komentáře, které chcete extrahovat.

#2 Zkopírujte Vložte kód do sešitu

Zkopírujte kód a vložte jej do sešitu, ze kterého chcete extrahovat komentáře.

Udělat toto:

• Aktivujte sešit, ve kterém pracujete, a stiskněte Alt + F11. Tím se otevře okno editoru VB.
• V Průzkumníku projektů vlevo klikněte pravým tlačítkem na libovolný objekt daného sešitu a přejděte na Vložit -> Modul.
• Vložte kód do okna Kód modulu.
• Zavřete okno editoru VB (nebo se stisknutím Alt + F11 vraťte zpět na list).

Nyní máte makro v sešitu. Chcete -li spustit makro, přejděte na kartu Vývojář -> Makra. V dialogovém okně Makro vyberte makro ExtractComment a klikněte na Spustit.

Poznámka: Nezapomeňte sešit uložit s.Rozšíření XLS nebo .XLSM.

#3 Vytvořte doplněk

Pokud potřebujete tento kód používat často, je nejlepší vytvořit z něj doplněk. Tímto způsobem jej můžete snadno použít v jakémkoli sešitu (bez dalšího úsilí kopírování vkládání kódu znovu a znovu).

Zde je návod, jak vytvořit doplněk:

• Přejděte na Soubor -> Uložit jako.
• V dialogovém okně Uložit jako změňte typ Uložit jako na .xlam.
  • Všimnete si, že cesta k souboru, kam se ukládá, se automaticky změní. Pokud chcete, můžete to změnit.
• Otevřete sešit aplikace Excel a přejděte na položku Vývojář -> Doplňky -> Doplňky aplikace Excel.
• V dialogovém okně Doplňky procházejte a vyhledejte soubor, který jste uložili, a klikněte na OK.

Jakmile je doplněk aktivován, můžete jej použít v jakémkoli sešitu. Chcete -li to provést, přejděte do části Vývojář -> Makra. V dialogovém okně Makro vyberte makro ExtractComment a spusťte jej.

Stáhněte si ukázkový soubor

Doufám, že vám tento kód ušetří nějaký čas. Dejte mi vědět své myšlenky v sekci komentáře.

Pokud pracujete s aplikací Excel, VBA by mohla být mocným spojencem. Posuňte své dovednosti v Excelu na další úroveň s kurzem Excel VBA.