Iegūstiet visu komentāru sarakstu darblapā programmā Excel

Ja strādājat ar Excel darblapām, kuru darblapā ir daudz šūnu komentāru, šī apmācība varētu būt noderīga. Dažreiz jūs varat ievietot šūnu komentārus, lai izceltu vai izskaidrotu datus, vai arī jūsu priekšnieks var ievietot komentārus šūnās, pārskatot jūsu darbu.

Ja jums ir milzīga datu kopa un komentāri ir izkaisīti pa visu darblapu, var palīdzēt, ja visi komentāri ir vienā vietā kā saraksts.

Iegūstiet visu darblapas komentāru sarakstu

Šajā apmācībā es parādīšu, kā izmantot VBA kodu, lai atsevišķā darblapā iegūtu visu darblapas komentāru sarakstu.

Kaut kas, kā parādīts zemāk:

Aizmugurē ir VBA kods, kas veic šādas darbības:

• Tas pārbauda, ​​vai aktīvajā darblapā ir vai nav komentāru. Ja nav komentāru, tas mierīgi noliecas un neko nedara.
• Ja darblapā ir komentāri, tā izveido jaunu darblapu (“Komentāri”) un izraksta visu komentāru sarakstu šādā struktūrā:
  • A slejā ir šūnas adrese, kurā ir komentārs.
  • B slejā ir komentētāja vārds. Tas ir noderīgi, ja vienam failam ir vairāki recenzenti. Tas arī palīdzēs filtrēt/kārtot, pamatojoties uz recenzentu vārdiem.
  • C slejā ir komentārs.

Lejupielādējiet parauga failu

VBA kodekss

Šeit ir VBA kods, kas šeit veic visu smago celšanu.

Sub ExtractComments () Dim ExComment kā komentārs Dim i Kā vesels skaitlis Dim ws kā darblapa Dim CS kā darblapa Iestatīt CS = ActiveSheet, ja ActiveSheet.Comments.Count = 0 Tad iziet no apakšdaļas katram ws darblapās If ws.Name = "Comments" Tad i = 1 Nākamais ws Ja i = 0 Tad Iestatiet ws = Darblapas. Pievienot (pēc: = ActiveSheet) ws.Name = "Komentāri" Cits: Iestatiet ws = Darblapas ("Komentāri") Beigt, ja katram ExComment CS.Comments ws. Diapazons ("A1"). Vērtība = "Komentārs" C1 "). Fonts. Bold = Patiess. Interjers. Krāsa = RGB (189, 215, 238). Kolonnas. Kolonnas platums = 20 Beigas ar If ws.Range (" A2 ") =" "Tad ws.Range (" A2 ") ) .Vērtība = ExComment.Parent.Address ws.Range ("B2"). Value = Left (ExComment.Text, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C2"). Vērtība = Pa labi (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) Cits ws.Range ("A1"). Beigas (xlDown) .Pārvietojums (1, 0) = ExComment.Parent.Address ws.Range ("B1"). End (xlDown). Offset (1, 0) = Pa kreisi (ExComment. Teksts, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C1"). Beigas (xlDown) .Offset (1, 0) = Pa labi (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) Beigt, ja nākamā ExComment End Sub

Kā lietot šo kodu

Ir vairāki veidi, kā izmantot šo kodu, lai no darblapas iegūtu komentāru sarakstu.

#1 Kopējiet un ielīmējiet datus parauga failā

Kopējiet ielīmējiet savus datus (kā ir) lejupielādes faila cilnē Dati un pēc tam palaidiet šo makro.

Lai palaistu šo:

• Dodieties uz cilni Izstrādātājs un noklikšķiniet uz Makro. Tiks atvērts dialoglodziņš Makro.
• Atlasiet ExtractComment un noklikšķiniet uz Palaist. Pārliecinieties, vai atrodaties lapā, kurā ir komentāri, kurus vēlaties izvilkt.

#2 Kopējiet Ielīmējiet kodu savā darbgrāmatā

Kopējiet kodu un ielīmējiet to darbgrāmatā, no kuras vēlaties iegūt komentārus.

Lai to izdarītu:

• Aktivizējiet darbgrāmatu, kurā strādājat, un nospiediet Alt + F11. Tas atvērs VB redaktora logu.
• Project Explorer kreisajā pusē ar peles labo pogu noklikšķiniet uz jebkura darbgrāmatas objekta, dodieties uz Ievietot -> Modulis.
• Ielīmējiet kodu moduļa koda logā.
• Aizveriet VB redaktora logu (vai nospiediet Alt + F11, lai atgrieztos darblapā).

Tagad jūsu darbgrāmatā ir makro. Lai palaistu makro, dodieties uz cilni Izstrādātājs -> Makro. Dialoglodziņā Makro atlasiet makro ExtractComment un noklikšķiniet uz Palaist.

Piezīme. Noteikti saglabājiet darbgrāmatu ar.XLS vai .XLSM paplašinājums.

#3 Izveidojiet pievienojumprogrammu

Ja jums bieži jāizmanto šis kods, vislabāk ir izveidot no tā pievienojumprogrammu. Tādā veidā jūs varat to viegli izmantot jebkurā darbgrāmatā (bez papildu piepūles, kopējot kodu atkal un atkal).

Tālāk ir norādīts, kā izveidot pievienojumprogrammu.

• Dodieties uz Fails -> Saglabāt kā.
• Dialoglodziņā Saglabāt kā nomainiet veidu Saglabāt kā .xlam.
  • Jūs pamanīsit, ka faila ceļš, kurā tas tiek saglabāts, automātiski mainās. Ja vēlaties, varat to mainīt.
• Atveriet Excel darbgrāmatu un dodieties uz Izstrādātājs -> Papildinājumi -> Excel pievienojumprogrammas.
• Dialoglodziņā Papildinājumi pārlūkojiet un atrodiet saglabāto failu un noklikšķiniet uz Labi.

Kad pievienojumprogramma ir aktivizēta, varat to izmantot jebkurā darbgrāmatā. Lai to izdarītu, dodieties uz Izstrādātājs -> Makro. Dialoglodziņā Makro atlasiet makro ExtractComment un palaidiet to.

Lejupielādējiet parauga failu

Ceru, ka šis kods kādu laiku ietaupīs. Ļaujiet man zināt savas domas komentāru sadaļā.

Ja strādājat ar Excel, VBA varētu būt spēcīgs sabiedrotais. Paceliet savas Excel prasmes nākamajā līmenī, izmantojot Excel VBA kursu.