Preskoči na glavno vsebino

Kako spremeniti vse oblike komentarjev v celicah v Excelu?

Ko vstavimo komentarje v delovni list, bomo včasih morda morali spremeniti privzete formate komentarjev, če je nekaj komentarjev, jih lahko spremenimo ročno, če pa je treba spremeniti stotine komentarjev, kako to rešiti ?

Spremenite vse oblike komentarjev s kodo VBA

Priročno orodje za hitro spreminjanje vseh oblik komentarjev in prihranek časa


puščica modri desni mehurček Spremenite vse oblike komentarjev s kodo VBA

Z naslednjo kodo VBA lahko spremenite velikost pisave in pisavo komentarjev v celicah, vendar ne more spremeniti barv pisave. prosimo, uporabite naslednji VBA kot:

1. Kliknite Razvojni > Visual Basic, Novo Microsoft Visual Basic za aplikacije okno bo prikazano, kliknite Vstavi > Moduliin nato v modul kopirajte in prilepite naslednje kode:

Sub FormatAllComments()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        With xComment.Shape.TextFrame.Characters.Font
            .Name = "Times New Roman"
            .Size = 14
        End With
    Next
Next
End Sub

V zgornji kodi lahko nastavite .Ime in .Velikost spremenljivke, kot bi želeli.

2. Nato kliknite doc-change-comment-format-1 za zagon kode. In nato kliknite pregled > Prikaži vse komentarje za ogled komentarjev so bili spremenjeni vsi formati komentarjev v celotnem delovnem zvezku. Oglejte si posnetke zaslona:

doc-change-comment-format1 -2 doc-change-comment-format2

puščica modri desni mehurček Priročno orodje za hitro spreminjanje vseh oblik komentarjev in prihranek časa

Če želite hitro spremeniti druge vrste formatov za vse komentarje, poskusite uporabiti Oblika komentarjev of Kutools za Excel.

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

Po namestitvi Kutools za Excel sledite naslednjim korakom za spremembo oblik komentarjev:

1. Oblikujte en komentar s slogom, ki ga želite uporabiti za druge komentarje.

2. Kliknite Kutools > Več > Oblika komentarjev, glej posnetek zaslona:

3. v Oblika komentarjev pogovorno okno, kliknite oblikovana in izberite obseg, za katerega želite spremeniti obliko komentarja, lahko izberete Aktivni list or Vsi listi. Nato kliknite Določite celico komentarja gumb, da izberete celico, ki vsebuje določeno obliko komentarja, ki jo želite uporabiti. Nato se prikaže drugo pogovorno okno, ki vam sporoči število spremenjenih celic. Oglejte si posnetek zaslona:

4. Nato kliknite Ok > Prekliči , da zaprete pogovorno okno, izbrana oblika komentarja celice pa je bila uporabljena za druge komentarje.

Opombe:

Če ne želite uporabljati krepkega sloga pisave v vseh celicah komentarjev, preverite Prisilno formatiranje brez krepkega tiska možnost.

Za podrobnejše informacije o Oblika komentarjev , Obiščite Opis funkcije Format Comments.


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 (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for this bit of code. It worked for me. But, I would also like to stretch the width property so the increase size text will show the way I like it. Recorder records what you see below, but I can't figure out how to get this into the For Each loop. Selection.ShapeRange.ScaleWidth 1.63, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.98, msoFalse, msoScaleFromTopLeft Any advice on how to update the code for this extra little trick? Thanks!
This comment was minimized by the moderator on the site
Hi, I join myself to the thanksgiving. The piece of code did work perfectly! Thx again!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations