Nabavite popis svih komentara na radnom listu u Excelu

Ako radite s radnim listovima programa Excel koji na radnom listu imaju puno komentara o ćelijama, ovaj bi vodič mogao biti koristan. Ponekad možete umetnuti komentare ćelije kako biste istaknuli ili objasnili podatke, ili vaš šef može umetnuti komentare u ćelije tijekom pregledavanja vašeg rada.

Ako imate ogroman skup podataka i komentari su razasuti po cijelom radnom listu, možda će vam pomoći imati sve komentare na jednom mjestu kao popis.

Nabavite popis svih komentara na radnom listu

U ovom vodiču pokazat ću vam kako koristiti VBA kôd da biste dobili popis svih komentara na radnom listu u zasebnom radnom listu.

Nešto kao što je prikazano ispod:

U pozadini se nalazi VBA kôd koji radi sljedeće:

• On provjerava postoje li komentari na aktivnom radnom listu ili ne. Ako nema komentara, tiho se klanja i ne radi ništa.
• Ako na radnom listu postoje komentari, on stvara novi radni list ("Komentari") i izdvaja popis svih komentara u sljedećoj strukturi:
  • Stupac A sadrži adresu ćelije s komentarom.
  • Stupac B ima naziv komentatora. Ovo dobro dođe ako postoji više recenzenata iste datoteke. Također će pomoći u filtriranju/sortiranju na temelju imena recenzenata.
  • Kolona C ima komentar.

Preuzmite datoteku primjera

VBA kod

Ovdje je VBA kôd koji ovdje obavlja sve teške poslove.

Sub ExtractComments () Dim ExComment Kao komentar Dim i As Integer Dim ws Kao radni list Dim CS Kao radni list Postavite CS = ActiveSheet Ako je ActiveSheet.Comments.Count = 0 Zatim izađite iz Sub za svaki ws na radnim listovima Ako je ws.Name = "Komentari" Zatim i = 1 Sljedeći ws Ako je = 0 Zatim postavite ws = Radni listovi.Dodajte (nakon: = ActiveSheet) ws.Name = "Komentari" Ostalo: Postavite ws = Radni listovi ("Komentari") Završi ako za svaki komentar u CS.Comments ws. Raspon ("A1"). Vrijednost = "Komentiraj" ws.Range ("B1"). Vrijednost = "Komentiraj" ws.Range ("C1"). Vrijednost = "Komentiraj" s ws.Range ("A1: C1 "). Font.Bold = True. Unutrašnjost. Boja = RGB (189, 215, 238). Columns.ColumnWidth = 20 Završi s If ws.Range (" A2 ") =" "Zatim ws.Range (" A2 " ) .Value = ExComment.Parent.Address ws.Range ("B2"). Value = Left (ExComment.Text, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C2"). Vrijednost = Desno (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) Inače ws.Range ("A1"). Kraj (xlDown) .Offset (1, 0) = ExComment.Parent.Address ws.Range ("B1"). End (xlDown) .Offset (1, 0) = Levo (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

Kako koristiti ovaj kôd

Postoji nekoliko načina na koje pomoću ovog koda možete dobiti popis komentara sa svog radnog lista:

#1 Kopirajte podatke zalijepljenja u datoteku primjera

Kopirajte zalijepite svoje podatke (kakvi jesu) na karticu Podaci u datoteci za preuzimanje, a zatim pokrenite ovu makronaredbu.

Da biste pokrenuli ovo:

• Idite na karticu Developer i kliknite Macros. Otvorit će se dijaloški okvir Makro.
• Odaberite ExtractComment i kliknite Pokreni. Provjerite jeste li na listu s komentarima koje želite izdvojiti.

#2 Kopirajte Zalijepite kôd u svoju radnu knjigu

Kopirajte kôd i zalijepite ga u radnu knjigu iz koje želite izdvojiti komentare.

Uraditi ovo:

• Aktivirajte radnu knjigu u kojoj radite i pritisnite Alt + F11. Ovo će otvoriti prozor VB Editor.
• U Project Exploreru s lijeve strane desnom tipkom miša kliknite bilo koji objekt te radne knjige, idite na Umetni -> Modul.
• Zalijepite kôd u prozor koda modula.
• Zatvorite prozor VB Editor (ili pritisnite Alt + F11 za povratak na radni list).

Sada imate makro u radnoj knjizi. Da biste pokrenuli makro, idite na karticu Developer -> Macros. U dijaloškom okviru Makronaredbe odaberite makro ExtractComment i kliknite Pokreni.

Napomena: Spremite radnu knjigu sa.XLS ili .XLSM nastavak.

#3 Izradite dodatak

Ako trebate često koristiti ovaj kôd, najbolje je od njega stvoriti dodatak. Na taj način možete ga jednostavno koristiti u bilo kojoj radnoj knjizi (bez dodatnog napora ponovnog i ponovnog kopiranja koda).

Evo kako stvoriti dodatak:

• Idite na Datoteka -> Spremi kao.
• U dijaloškom okviru Spremi kao promijenite vrstu Spremi kao u .xlam.
  • Primijetit ćete da se putanja datoteke u koju se sprema automatski mijenja. Možete ga promijeniti ako želite.
• Otvorite radnu knjigu programa Excel i idite na Developer -> Add -ins -> Excel Add -ins.
• U dijaloškom okviru Dodaci pregledajte i pronađite datoteku koju ste spremili, a zatim kliknite U redu.

Nakon što je dodatak aktiviran, možete ga koristiti u bilo kojoj radnoj knjizi. Da biste to učinili, idite na Developer -> Macros. U dijaloškom okviru Makronaredbe odaberite makro ExtractComment i pokrenite ga.

Preuzmite datoteku primjera

Nadam se da će vam ovaj kôd uštedjeti vrijeme. Recite mi svoja razmišljanja u odjeljku za komentare.

Ako radite s Excelom, VBA bi mogao biti snažan saveznik. Podignite svoje Excel vještine na višu razinu uz Excel VBA tečaj.