Hankige Exceli töölehe kõigi kommentaaride loend

Kui töötate Exceli töölehtedega, millel on töölehel palju lahtrikommentaare, võib see õpetus olla kasulik. Mõnikord võite andmete esiletõstmiseks või selgitamiseks sisestada lahtrikommentaare või teie ülemus võib teie tööd üle vaadates lisada lahtritesse kommentaare.

Kui teil on tohutu andmekogum ja kommentaarid on töölehel laiali, võib aidata, kui kõik kommentaarid on loendina ühes kohas.

Hankige töölehe kõigi kommentaaride loend

Selles õpetuses näitan teile, kuidas kasutada VBA -koodi, et saada töölehe kõigi kommentaaride loend eraldi töölehel.

Midagi, nagu allpool näidatud:

Taustaprogrammis on VBA -kood, mis teeb järgmist.

• See kontrollib, kas aktiivsel töölehel on kommentaare või mitte. Kui kommentaare pole, kummardub see vaikselt ja ei tee midagi.
• Kui töölehel on kommentaare, loob see uue töölehe („Kommentaarid”) ja ekstraheerib kõigi kommentaaride loendi järgmises struktuuris:
  • Veerus A on lahtri aadress, millel on kommentaar.
  • Veerus B on kommenteerija nimi. See on kasulik, kui sama faili on mitu retsensenti. Samuti aitab see filtreerida/sortida arvustajate nime alusel.
  • Veerus C on kommentaar.

Laadige alla näidisfail

VBA koodeks

Siin on VBA kood, mis teeb kõik siin tõsised raskused.

Sub ExtractComments () Dim ExComment kommentaarina Dim i täisarvuna Dim ws töölehena Dim CS töölehena Määra CS = ActiveSheet, kui ActiveSheet.Comments.Count = 0 Seejärel väljuge töölehtede iga ws alamast If ws.Name = "Comments" Siis i = 1 Järgmine ws Kui i = 0 Siis Määra ws = Töölehed.Add (Pärast: = ActiveSheet) ws.Name = "Kommentaarid" Muu: Määra ws = Töölehed ("Kommentaarid") Lõpeta Kui iga väljaande CS.Comments ws jaoks. Vahemik ("A1"). Value = "Comment In" ws.Range ("B1"). Value = "Comment By" ws.Range ("C1"). Value = "Comment" With ws.Range ("A1: C1 "). Font.Bold = True .Interior.Color = RGB (189, 215, 238) .Columns.ColumnWidth = 20 End With If ws.Range (" A2 ") =" "Siis ws.Range (" A2 " ) .Väärtus = ExComment.Parent.Add ws.Range ("B2"). Väärtus = Left (ExComment.Text, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C2"). Väärtus = paremal (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) Muu ws.Range ("A1"). Lõpp (xlDown). Offset (1, 0) = ExComment.Parent.Address ws.Range ("B1"). End (xlDown). Offset (1, 0) = Left (ExComment. Tekst, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C1"). Lõpp (xlDown). Offset (1, 0) = Parem (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) End If Next ExComment End Sub

Kuidas seda koodi kasutada

Selle koodi abil saate töölehelt kommentaaride loendi saamiseks teha paar võimalust.

#1 Kopeerige kleebi andmed näidisfaili

Kopeerige ja kleepige oma andmed (nagu on) allalaadimisfaili vahekaardile Andmed ja käivitage see makro.

Selle käivitamiseks tehke järgmist.

• Minge vahekaardile Arendaja ja klõpsake nuppu Makrod. See avab dialoogiboksi Makro.
• Valige ExtractComment ja klõpsake nuppu Käivita. Veenduge, et olete lehel, millel on kommentaarid, mida soovite välja võtta.

#2 Kopeerige ja kleepige kood oma töövihikusse

Kopeerige kood ja kleepige see töövihikusse, kust soovite kommentaarid välja võtta.

Selleks tehke järgmist.

• Aktiveerige töövihik, milles te töötate, ja vajutage klahvikombinatsiooni Alt + F11. See avab VB redaktori akna.
• Paremklõpsake vasakul asuvas Project Exploreris selle töövihiku mis tahes objekti, minge Lisa -> Moodul.
• Kleepige kood mooduli koodi aknasse.
• Sulgege VB redaktori aken (või vajutage töölehele naasmiseks klahve Alt + F11).

Nüüd on teie töövihikus makro. Makro käitamiseks avage vahekaart Arendaja -> Makrod. Valige dialoogiboksis Makro makro ExtractComment ja klõpsake käsku Käivita.

Märkus. Salvestage kindlasti töövihik koos.XLS või .XLSM laiend.

#3 Looge lisandmoodul

Kui peate seda koodi sageli kasutama, on parem luua sellest lisandmoodul. Nii saate seda hõlpsasti kasutada mis tahes töövihikus (ilma täiendavate jõupingutusteta koodi uuesti ja uuesti kleepimisel).

Lisandmooduli loomiseks toimige järgmiselt.

• Avage Fail -> Salvesta nimega.
• Muutke dialoogiboksis Salvesta nimega Salvesta nimeks .xlam.
  • Märkate, et faili tee, kuhu see salvestatakse, muutub automaatselt. Soovi korral saate seda muuta.
• Avage Exceli töövihik ja avage Arendaja -> Lisandmoodulid -> Exceli lisandmoodulid.
• Sirvige ja leidke dialoogiboksis Lisandmoodulid salvestatud fail ja klõpsake nuppu OK.

Kui lisandmoodul on aktiveeritud, saate seda kasutada mis tahes töövihikus. Selleks minge jaotisse Arendaja -> Makrod. Valige dialoogiboksis Makro makro ExtractComment ja käivitage see.

Laadige alla näidisfail

Loodan, et see kood säästab teie aega. Andke mulle oma mõtted kommentaaride jaotises teada.

Kui töötate Exceli abil, võib VBA olla võimas liitlane. Viige oma Exceli oskused järgmisele tasemele Exceli VBA kursusega.