Pridobite seznam vseh komentarjev na delovnem listu v Excelu

Če delate z Excelovimi delovnimi listi, ki imajo na delovnem listu veliko komentarjev celic, bi bila ta vadnica lahko koristna. Včasih lahko vstavite komentarje v celico, da označite ali razložite podatke, ali pa lahko vaš šef med pregledovanjem svojega dela vstavi komentarje v celice.

Če imate ogromen nabor podatkov in so komentarji razpršeni po celotnem delovnem listu, bo morda koristno, če bodo vsi komentarji na enem mestu kot seznam.

Pridobite seznam vseh komentarjev na delovnem listu

V tej vadnici vam bom pokazal, kako uporabite kodo VBA, da dobite seznam vseh komentarjev na delovnem listu na ločenem delovnem listu.

Nekaj, kot je prikazano spodaj:

V zaledju je koda VBA, ki naredi naslednje:

• Preverja, ali so na aktivnem delovnem listu komentarji ali ne. Če ni pripomb, se tiho pokloni in ne naredi nič.
• Če so na delovnem listu komentarji, ustvari nov delovni list (»Komentarji«) in izvleče seznam vseh komentarjev v naslednji strukturi:
  • V stolpcu A je naslov celice s komentarjem.
  • Stolpec B ima ime komentatorja. To pride prav, če je več pregledovalcev iste datoteke. Pomagal bo tudi pri filtriranju/razvrščanju na podlagi imena recenzentov.
  • V stolpcu C je komentar.

Prenesite datoteko z vzorcem

Koda VBA

Tukaj je koda VBA, ki opravlja vse težke naloge.

Sub ExtractComments () Dim ExComment kot komentar Dim i As Integer Dim ws kot delovni list Dim CS kot delovni list Set CS = ActiveSheet If ActiveSheet.Comments.Count = 0 Potem zapustite Sub za vsak ws na delovnih listih Če ws.Name = "Komentarji" Potem i = 1 Naslednji ws Če je i = 0, potem nastavite ws = delovne liste.Dodajte (po: = aktivni list) ws.Name = "Komentarji" Sicer: nastavite ws = delovne liste ("Komentarji") Konec Če za vsak komentar v CS.Comments ws. Range ("A1"). Value = "Comment In" ws.Range ("B1"). Value = "Comment By" ws.Range ("C1"). Value = "Comment" with ws.Range ("A1: C1 ") .Font.Bold = True. Notranjost.Color = RGB (189, 215, 238) .Columns.ColumnWidth = 20 Končaj z If ws.Range (" A2 ") =" "Potem ws.Range (" A2 " ) .Value = ExComment.Parent.Address ws.Range ("B2"). Value = Left (ExComment.Text, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C2"). Vrednost = Desno (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) Sicer ws.Range ("A1"). End (xlDown) .Offset (1, 0) = ExComment.Parent.Address ws.Range ("B1"). End (xlDown) .Offset (1, 0) = Levo (ExComment. Besedilo, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C1"). End (xlDown) .Offset (1, 0) = Right (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) End Če naslednji ExComment End Sub

Kako uporabljati to kodo

To kodo lahko uporabite za pridobivanje seznama komentarjev s svojega delovnega lista na nekaj načinov:

#1 Kopirajte podatke za lepljenje v datoteko z vzorcem

Kopirajte in prilepite svoje podatke (kakršne so) na zavihek Podatki datoteke za prenos in nato zaženite ta makro.

Če želite zagnati to:

• Pojdite na zavihek Razvijalec in kliknite Makri. Odprlo se bo pogovorno okno Makro.
• Izberite ExtractComment in kliknite Zaženi. Prepričajte se, da ste na listu s komentarji, ki jih želite izvleči.

#2 Kopiraj Prilepi kodo v delovni zvezek

Kopirajte kodo in jo prilepite v delovni zvezek, iz katerega želite izvleči komentarje.

Storiti to:

• Aktivirajte delovni zvezek, v katerem delate, in pritisnite Alt + F11. S tem se odpre okno urejevalnika VB.
• V Raziskovalcu projektov na levi strani z desno tipko miške kliknite kateri koli predmet tega delovnega zvezka, pojdite na Vstavi -> Modul.
• Kodo prilepite v okno Koda modula.
• Zaprite okno urejevalnika VB (ali pritisnite Alt + F11, da se vrnete na delovni list).

Zdaj imate makro v delovnem zvezku. Če želite zagnati makro, pojdite na zavihek Razvijalec -> Makri. V pogovornem oknu Makro izberite makro ExtractComment in kliknite Zaženi.

Opomba: Poskrbite, da boste shranili delovni zvezek z.XLS ali .XLSM razširitev.

#3 Ustvarite dodatek

Če morate to kodo pogosto uporabljati, je najbolje, da iz nje ustvarite dodatek. Tako ga lahko preprosto uporabite v katerem koli delovnem zvezku (brez dodatnega truda, da kodo znova in znova prilepite).

Takole lahko ustvarite dodatek:

• Pojdite v Datoteka -> Shrani kot.
• V pogovornem oknu Shrani kot spremenite vrsto Shrani kot v .xlam.
  • Opazili boste, da se pot datoteke, kamor se shrani, samodejno spremeni. Če želite, ga lahko spremenite.
• Odprite delovni zvezek Excel in pojdite na Razvijalec -> Dodatki -> Dodatki Excel.
• V pogovornem oknu z dodatki poiščite in shranite datoteko, ki ste jo shranili, in kliknite V redu.

Ko je dodatek aktiviran, ga lahko uporabite v katerem koli delovnem zvezku. Če želite to narediti, pojdite na Razvijalec -> Makri. V pogovornem oknu Makro izberite makro ExtractComment in ga zaženite.

Prenesite datoteko z vzorcem

Upam, da vam bo ta koda prihranila nekaj časa. Sporočite mi svoje misli v oddelku za komentarje.

Če delate z Excelom, je lahko VBA močan zaveznik. S tečajem Excel VBA dvignite svoje Excel sposobnosti na naslednjo stopnjo.