Salt la conținutul principal

Cum se schimbă toate formatele de comentarii din celulele din Excel?

Când inserăm comentarii într-o foaie de lucru, uneori, este posibil să trebuiască să schimbăm formatele implicite de comentarii, dacă există câteva comentarii, le putem modifica manual, dar dacă există sute de comentarii, trebuie să le schimbați, cum o rezolvați ?

Schimbați toate formatele de comentarii cu codul VBA

Un instrument la îndemână pentru a schimba rapid toate formatele de comentarii și pentru a economisi timp


săgeată albastru dreapta balon Schimbați toate formatele de comentarii cu codul VBA

Cu următorul cod VBA, puteți modifica dimensiunea fontului și fontul comentariilor din celule, dar nu poate schimba culorile fontului. vă rugăm să utilizați următorul VBA ca:

1. Clic Dezvoltator > Visual Basic, un nou Microsoft Visual Basic pentru aplicații fereastra va fi afișată, faceți clic pe Insera > Module, apoi copiați și lipiți următoarele coduri în modul:

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

În codul de mai sus, puteți seta .Nume și .Mărimea variabile așa cum ați dori.

2. Apoi apasa doc-change-comment-format-1 pentru a rula codul. Și apoi faceți clic pe Recenzie > Afișează toate comentariile pentru a vizualiza comentariile, toate formatele de comentarii din întregul registru de lucru au fost modificate. Vedeți capturi de ecran:

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

săgeată albastru dreapta balon Un instrument la îndemână pentru a schimba rapid toate formatele de comentarii și pentru a economisi timp

Dacă doriți să schimbați rapid alte tipuri de format pentru toate comentariile, puteți încerca să utilizați Formatați comentarii of Kutools pentru Excel.

Kutools pentru Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. Ia-l acum

După instalarea Kutools pentru Excel, urmați pașii următori pentru a modifica formatele de comentarii:

1. Formatați un comentariu cu stilul pe care doriți să îl aplicați altor comentarii.

2. Clic Kutools > Mai Mult > Formatați comentarii, vezi captura de ecran:

3. În Formatați comentarii casetă de dialog, faceți clic pe Format filă și alegeți domeniul de aplicare pe care doriți să îl modificați în formatul de comentarii, puteți alege Foaie activă or Toate foile. Apoi apasa Specificați celula de comentarii butonul pentru a selecta celula care conține formatul specific de comentariu pe care doriți să îl aplicați. Apoi apare un alt dialog pentru a vă spune numărul de celule modificate. Vedeți captura de ecran:

4. Apoi apasa Ok > Anulare butoane pentru a închide caseta de dialog, iar formatul de comentariu al celulei selectat a fost aplicat altor comentarii.

note:

Dacă nu doriți să utilizați stilul de caractere aldine în toate celulele de comentarii, vă rugăm să verificați Forțați formatarea fără caractere aldine opțiune.

Pentru informații mai detaliate despre Formatați comentarii , Vă rugăm să vizitați Descriere caracteristică a comentariilor de formatare.


Legate de articole:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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