Hanki luettelo kaikista Excel -laskentataulukon kommenteista

Jos käytät Excel -laskentataulukoita, joissa laskentataulukossa on paljon solukommentteja, tämä opetusohjelma voi olla hyödyllinen. Joskus voit lisätä solukommentteja korostaaksesi tai selittääksesi tietoja tai pomosi voi lisätä kommentteja soluihin tarkastellessasi työtäsi.

Jos sinulla on valtava tietojoukko ja kommentit ovat hajallaan koko laskentataulukossa, voi olla hyödyllistä, että kaikki kommentit ovat yhdessä paikassa luettelona.

Hanki luettelo kaikista laskentataulukon kommenteista

Tässä opetusohjelmassa näytän sinulle, kuinka voit käyttää VBA -koodia saadaksesi luettelon kaikista laskentataulukon kommenteista erillisellä laskentataulukolla.

Jotain alla olevan kuvan mukaisesti:

Taustaohjelmassa on VBA -koodi, joka tekee seuraavat asiat:

• Se tarkistaa, onko aktiivisessa laskentataulukossa kommentteja vai ei. Jos kommentteja ei ole, se kumartuu hiljaa eikä tee mitään.
• Jos laskentataulukossa on kommentteja, se luo uuden laskentataulukon ("Kommentit") ja purkaa luettelon kaikista kommenteista seuraavassa rakenteessa:
  • Sarakkeessa A on solun osoite, jossa on kommentti.
  • Sarakkeessa B on kommentoijan nimi. Tästä on hyötyä, jos samaa tiedostoa on useita tarkastajia. Se auttaa myös suodattamaan/lajittelemaan arvostelijoiden nimen perusteella.
  • Sarakkeessa C on kommentti.

Lataa esimerkkitiedosto

VBA -koodi

Tässä on VBA -koodi, joka tekee kaiken raskaan nostamisen täällä.

Sub ExtractComments () Dim ExComment kommenttina Dim i kokonaislukuna Dim ws laskentataulukkona Dim CS laskentataulukkona Aseta CS = ActiveSheet jos ActiveSheet.Comments.Count = 0 Sitten Lopeta osa jokaisesta ws: sta laskentataulukoissa Jos ws.Name = "Comments" Sitten i = 1 Seuraava ws Jos i = 0 Sitten Aseta ws = laskentataulukot.Add (After: = ActiveSheet) ws.Name = "Comments" Muu: Aseta ws = laskentataulukot ("Comments") Lopeta, jos jokaiselle CS.Comments ws: n kommentille. Alue ("A1"). Arvo = "Kommentti" ws.Range ("B1"). Arvo = "Kommentti" ws.Range ("C1"). Arvo = "Kommentti" Ws.Range ("A1: C1 ". ) .Arvo = ExComment.Parent.Address ws.Range ("B2"). Value = Left (ExComment.Text, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C2"). Arvo = Oikea (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) Muu ws.Range ("A1"). Loppu (xlDown) .Osetus (1, 0) = ExComment.Parent.Address ws.Range ("B1"). End (xlDown) .Offset (1, 0) = Vasen (ExComment. Teksti, InStr (1, ExComment.Text, ":") - 1) ws.Range ("C1"). End (xlDown) .Offset (1, 0) = Oikea (ExComment.Text, Len (ExComment.Text) - InStr (1, ExComment.Text, ":")) End If Next ExComment End Sub

Kuinka käyttää tätä koodia

Voit käyttää tätä koodia muutamalla tavalla saadaksesi luettelon kommentteistasi laskentataulukostasi:

#1 Kopioi Liitä tiedot esimerkkitiedostoon

Kopioi liitä tietosi (sellaisenaan) lataustiedoston Tiedot -välilehteen ja suorita tämä makro.

Tämän suorittaminen:

• Siirry Kehittäjä -välilehteen ja napsauta Makrot. Se avaa Makro -valintaikkunan.
• Valitse ExtractComment ja napsauta Suorita. Varmista, että olet taulukossa, jossa on kommentit, jotka haluat poimia.

#2 Kopioi Liitä koodi työkirjaasi

Kopioi koodi ja liitä se työkirjaan, josta haluat poimia kommentit.

Tehdä tämä:

• Aktivoi työkirja, jossa työskentelet, ja paina Alt + F11. Tämä avaa VB Editor -ikkunan.
• Napsauta vasemmanpuoleisessa Project Explorerissa hiiren kakkospainikkeella mitä tahansa työkirjan objektia ja valitse Lisää -> Moduuli.
• Liitä koodi Moduulin koodi -ikkunaan.
• Sulje VB -editori -ikkuna (tai paina Alt + F11 palataksesi laskentataulukkoon).

Nyt sinulla on makro työkirjassa. Suorita makro siirtymällä kehittäjävälilehdelle -> Makrot. Valitse Makro -valintaikkunassa ExtractComment -makro ja napsauta Suorita.

Huomautus: Muista tallentaa työkirja kanssa .XLS- tai .XLSM -laajennus.

#3 Luo apuohjelma

Jos sinun on käytettävä tätä koodia usein, on parasta luoda siitä lisäosa. Näin voit käyttää sitä helposti missä tahansa työkirjassa (ilman ylimääräistä vaivaa kopioimalla koodi uudelleen ja uudelleen).

Voit luoda apuohjelman seuraavasti:

• Siirry kohtaan Tiedosto -> Tallenna nimellä.
• Muuta Tallenna nimellä -valintaikkunassa Tallenna nimellä .xlam.
  • Huomaat, että tiedoston polku, johon se tallennetaan, muuttuu automaattisesti. Voit muuttaa sitä, jos haluat.
• Avaa Excel -työkirja ja siirry kohtaan Kehittäjä -> Apuohjelmat -> Excel -apuohjelmat.
• Selaa ja etsi tallennettu tiedosto Lisäosat-valintaikkunassa ja napsauta OK.

Kun apuohjelma on aktivoitu, voit käyttää sitä missä tahansa työkirjassa. Voit tehdä tämän siirtymällä kohtaan Kehittäjä -> Makrot. Valitse Makro -valintaikkunassa ExtractComment -makro ja suorita se.

Lataa esimerkkitiedosto

Toivottavasti tämä koodi säästää aikaa. Kerro mielipiteesi kommenttiosassa.

Jos työskentelet Excelin kanssa, VBA voi olla tehokas liittolainen. Vie Excel -taitosi seuraavalle tasolle Excel VBA -kurssin avulla.