Preskoči na glavno vsebino

Kako pretvoriti komentarje v vsebino celic v Excelu?

Recimo, da imam celice obsega napolnjene s komentarji na delovnem listu, zdaj pa želim vse komentarje pretvoriti v vsebino celic, da jih lahko lepo in okroglo natisnem. Ali obstajajo dobri načini za rešitev te naloge?

Pretvorite komentarje v vsebino celice s funkcijo User Defined

Komentarje pretvorite v vsebino celice s kodo VBA

Pretvorite komentarje v vsebino celic s programom Kutools for Excel


puščica modri desni mehurček Pretvorite komentarje v vsebino celice s funkcijo User Defined

Z uporabo te metode morate najprej ustvariti določeno funkcijo in nato uporabiti definirano formulo za pretvorbo komentarjev v vsebino celice. Dokončate ga lahko v naslednjih korakih:

1.Kliknite Razvojni > Visual Basic, Novo Microsoft Visual Basic za aplikacije okno bo prikazano, kliknite Vstavi > Moduliin v modul vnesite naslednjo funkcijo:

Funkcija GetComments (pRng As Range) Kot niz 'Updateby20140509 Če ne pRng.Comment ni nič, potem GetComments = pRng.Comment.Text End End Če funkcija End

2.Pritisnite Ctrl + S , da shranite funkcijo.

3.Nato vnesite naslednjo formulo “= GetComments (A1)”V kateri koli prazni celici bom v tem primeru uporabil celico E1. Oglejte si posnetek zaslona:

doc-komentarji-do-celic1

4. Pritisnite Vnesite tipko. In izberite celico E1, nato povlecite ročico za polnjenje čez obseg celic, za katere želite, da vsebujejo to formulo. In vsi komentarji se pretvorijo v celico. Oglejte si posnetek zaslona:

doc-komentarji-do-celic2


puščica modri desni mehurček Komentarje pretvorite v vsebino celice s kodo VBA

Če poznate kodo VBA, vam lahko naslednja kratka koda pomaga pretvoriti komentarje v vsebino celice.

1. Izberite obseg, ki ga želite pretvoriti v vsebino celice;

2. Kliknite Razvojni > Visual Basic, Novo Microsoft Visual Basic za aplikacije okno bo prikazano, kliknite Vstavi > Moduliin v modul vnesite naslednjo kodo:

Sub CommentToCell()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Rng.NoteText
Next
End Sub

3. Nato kliknite  doc-pomnoži-izračun-3 za zagon kode. In izberite obseg, ki ga želite pretvoriti, nato kliknite OK, vsi izbrani komentarji pa so pretvorjeni v vsebino celic v ustreznih celicah.


doc-komentarji-do-celic3 -2 doc-komentarji-do-celic4

Opombe: Če komentarjev ne želite, jih lahko izbrišete.


puščica modri desni mehurček Pretvorite komentarje v vsebino celic s programom Kutools for Excel

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh.Get it now .

O Pretvori komentar in celico of Kutools za Excel je priročno in uporabno orodje, ki vam lahko pomaga pri reševanju številnih težav s komentarji.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Izberite obseg, za katerega želite uvoziti komentarje v celice.

2. Kliknite Kutools > Več > Pretvori komentar in celico, glej posnetek zaslona:

dokument-komentarji-celicam-5

3. v Pretvori komentar in celico pogovorno okno, izberite Pretvorite komentarje v vsebino celic. Oglejte si posnetek zaslona:

dokument-komentarji-celicam-6

4. Nato kliknite OK. Zdaj se vsi izbrani komentarji pretvorijo v vsebino celic v prvotnem obsegu.

Za podrobnejše informacije o Pretvori komentar in celico, Obiščite Pretvori opis funkcije komentarja in celice.


Sorodni članki:

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (24)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, The first function in a module does the job only once: when I write or drag the formula down. If I go back to change any of the comment it does not update the destination cell with the new comment. For example let's say I have a comment in A1, then when I place the formula in cell B1, it will show me the A1's comment only the first time. If I go back and change the A1 comment, the cell B1 does not get updated. I tried "Calculate Now" or F9 and nothing happens. I saved the file and opened again and nothing, cell B1 stays with the old comment. It is like the function is dead. Now, if I enter or change anything in the cell A1 itself (not the comment), like adding an space in the end, it will immediately update the comment. I'm using Office 2019 Pro.
This comment was minimized by the moderator on the site
thanks very musch
This comment was minimized by the moderator on the site
great site
This comment was minimized by the moderator on the site
is there a way to do this without the title of a comment or the non bold writing?
This comment was minimized by the moderator on the site
Great tip, thanks for sharing!
This comment was minimized by the moderator on the site
Perfect! Thank You
This comment was minimized by the moderator on the site
You are a star!!! thanks
This comment was minimized by the moderator on the site
It does not automatically update when I change the comment. How do I change this? Thanks
This comment was minimized by the moderator on the site
Same problem here. Changing the comment does not trigger the calculations. Forcing the calculation (F9) does not work. Saving and load the file does not work. However, changing a cell content will trigger the calculations.
This comment was minimized by the moderator on the site
You are my HERO!!!!!!!!!!!!!!!!!!!!!! Thank You Thank You Thank You
This comment was minimized by the moderator on the site
Hi. I tried this code and it worked right. But I have a little problem: can I use this code combined with VLOOKUP? I tried but I didn't get anything. If you can help me, I'll be thankful. I'm brazilian. If I wrote something wrong, I apologise. Thanks!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations