Získajte zoznam všetkých komentárov v pracovnom hárku v programe Excel

Ak pracujete s pracovnými listami Excelu, ktoré majú v hárku veľa komentárov k bunkám, tento návod by mohol byť užitočný. Niekedy môžete vložiť komentáre k bunkám na zvýraznenie alebo vysvetlenie údajov alebo váš nadriadený môže vložiť komentáre do buniek pri kontrole vašej práce.

Ak máte veľký súbor údajov a komentáre sú roztrúsené po celom pracovnom hárku, môže pomôcť, ak budete mať všetky komentáre na jednom mieste ako zoznam.

Získajte zoznam všetkých komentárov v pracovnom hárku

V tomto tutoriále vám ukážem, ako použiť kód VBA na získanie zoznamu všetkých komentárov v pracovnom hárku v samostatnom pracovnom hárku.

Niečo, ako je uvedené nižšie:

V backende je kód VBA, ktorý robí nasledujúce veci:

• Skontroluje, či sú v aktívnom hárku nejaké komentáre alebo nie. Ak nie sú žiadne komentáre, ticho sa ukloní a neurobí nič.
• Ak sú v pracovnom hárku komentáre, vytvorí sa nový pracovný hárok („Komentáre“) a extrahuje sa zoznam všetkých komentárov v nasledujúcej štruktúre:
  • Stĺpec A obsahuje adresu bunky, ktorá obsahuje komentár.
  • Stĺpec B obsahuje meno komentátora. To sa hodí, ak existuje viac recenzentov toho istého súboru. Pomôže tiež filtrovať/triediť podľa mena recenzenta.
  • V stĺpci C je komentár.

Stiahnite si ukážkový súbor

Kód VBA

Tu je kód VBA, ktorý tu robí všetky ťažké práce.

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 each ws in Worksheets If ws.Name = "Comments" Then i = 1 Ďalej ws Ak i = 0 Potom nastavíte ws = Worksheets.Add (After: = ActiveSheet) ws.Name = "Comments" Else: Set ws = Worksheets ("Comments") End If For Every ExComment in CS.Comments ws. Rozsah ("A1"). Hodnota = "Komentár v" ws.Range ("B1"). Hodnota = "Komentár podľa" ws.Range ("C1"). Hodnota = "Komentár" S 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 " ) .Hodnota = 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

Ako používať tento kód

Existuje niekoľko spôsobov, ako môžete pomocou tohto kódu získať zoznam komentárov z pracovného hárka:

#1 Skopírujte prilepené údaje do vzorového súboru

Skopírujte prilepené údaje (tak, ako sú) na karte Údaje v sťahovanom súbore a potom spustite toto makro.

Spustiť toto:

• Prejdite na kartu Vývojár a kliknite na položku Makrá. Otvorí sa dialógové okno Makro.
• Vyberte ExtractComment a kliknite na Spustiť. Uistite sa, že ste v hárku s komentármi, ktoré chcete extrahovať.

#2 Skopírujte a prilepte kód do zošita

Skopírujte kód a prilepte ho do zošita, z ktorého chcete extrahovať komentáre.

Urobiť toto:

• Aktivujte zošit, v ktorom pracujete, a stlačte kombináciu klávesov Alt + F11. Tým sa otvorí okno editora VB.
• V Prieskumníkovi projektov vľavo kliknite pravým tlačidlom myši na ľubovoľný objekt zo zošita a prejdite na položku Vložiť -> Modul.
• Prilepte kód do okna Kód modulu.
• Zatvorte okno editora VB (alebo sa stlačením klávesov Alt + F11 vráťte na pracovný hárok).

Teraz máte makro v zošite. Makro spustíte tak, že prejdete na kartu Vývojár -> Makrá. V dialógovom okne Makro vyberte makro ExtractComment a kliknite na položku Spustiť.

Poznámka: Uložte si zošit s.Prípona XLS alebo .XLSM.

#3 Vytvorte doplnok

Ak potrebujete tento kód používať často, je najlepšie vytvoriť si z neho doplnok. Tak ho môžete ľahko použiť v akomkoľvek zošite (bez ďalšej námahy kopírovania kódu znova a znova).

Tu je postup, ako vytvoriť doplnok:

• Prejdite na položku Súbor -> Uložiť ako.
• V dialógovom okne Uložiť ako zmeňte typ Uložiť ako na .xlam.
  • Všimnite si, že cesta k súboru, kam sa uloží, sa automaticky zmení. Môžete to zmeniť, ak chcete.
• Otvorte zošit programu Excel a prejdite na položku Vývojár -> Doplnky -> Doplnky programu Excel.
• V dialógovom okne Doplnky vyhľadajte a vyhľadajte súbor, ktorý ste uložili, a kliknite na tlačidlo OK.

Keď je doplnok aktivovaný, môžete ho použiť v ľubovoľnom zošite. Ak to chcete urobiť, prejdite na položku Vývojár -> Makrá. V dialógovom okne Makro vyberte makro ExtractComment a spustite ho.

Stiahnite si ukážkový súbor

Dúfam, že vám tento kód ušetrí čas. Dajte mi vedieť svoje nápady v sekcii komentárov.

Ak pracujete s programom Excel, VBA by mohla byť silným spojencom. Posuňte svoje znalosti Excelu na vyššiu úroveň pomocou kurzu Excel VBA.