Skip i'r prif gynnwys

Sut i newid pob fformat sylwadau mewn celloedd yn Excel?

Pan fyddwn yn mewnosod sylwadau mewn taflen waith, weithiau, efallai y bydd angen i ni newid y fformatau sylwadau diofyn, os oes ychydig o sylwadau, gallwn eu newid â llaw, ond os oes cannoedd o sylwadau mae angen eu newid, sut ydych chi'n eu datrys. ?

Newid pob fformat sylwadau gyda chod VBA

Offeryn defnyddiol i newid pob fformat sylwadau yn gyflym ac arbed amser


swigen dde glas saeth Newid pob fformat sylwadau gyda chod VBA

Gyda'r cod VBA canlynol, gallwch newid maint y ffont a ffont y sylwadau mewn celloedd, ond ni all newid lliwiau'r ffont. defnyddiwch y VBA canlynol fel:

1. Cliciwch Datblygwr > Visual Basic, Newydd Microsoft Visual Basic ar gyfer cymwysiadau ffenestr yn cael ei harddangos, cliciwch Mewnosod > Modiwlau, ac yna copïo a gludo'r codau canlynol yn y modiwl:

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

Yn y cod uchod, gallwch chi osod y .Enw ac .Maint newidynnau fel yr hoffech chi.

2. Yna cliciwch doc-newid-sylw-fformat-1 botwm i redeg y cod. Ac yna cliciwch adolygiad > Dangos holl sylwadau i weld y sylwadau, mae'r holl fformatau sylwadau yn y llyfr gwaith cyfan wedi'u newid. Gweler sgrinluniau:

doc-newid-sylw-fformat1 -2 doc-newid-sylw-fformat2

swigen dde glas saeth Offeryn defnyddiol i newid pob fformat sylwadau yn gyflym ac arbed amser

Os ydych chi am newid mathau eraill o fformat yn gyflym ar gyfer yr holl sylwadau, efallai y byddwch chi'n ceisio defnyddio'r Sylwadau Fformat of Kutools ar gyfer Excel.

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now

Ar ôl gosod Kutools ar gyfer Excel, dilynwch y camau canlynol i newid y fformatau sylwadau:

1. Fformatiwch un sylw gyda'r arddull rydych chi am ei chymhwyso i sylwadau eraill.

2. Cliciwch Kutools > Mwy > Sylwadau Fformat, gweler y screenshot:

3. Yn y Sylwadau Fformat blwch deialog, cliciwch fformat tab, a dewis y cwmpas rydych chi am newid y fformat sylwadau, gallwch chi ddewis Dalen weithredol or Pob dalen. Yna cliciwch Nodwch y gell sylwadau botwm i ddewis y gell sy'n cynnwys y fformat sylwadau penodol rydych chi am ei gymhwyso. Yna bydd deialog arall yn ymddangos i ddweud wrthych nifer y celloedd sydd wedi newid. Gweler y screenshot:

4. Yna cliciwch Ok > Diddymu botymau i gau'r blwch deialog, ac mae'r fformat sylwadau celloedd a ddewiswyd wedi'i gymhwyso i sylwadau eraill.

Nodiadau:

Os nad ydych chi am ddefnyddio'r arddull ffont beiddgar ym mhob cell sylwadau, gwiriwch Gorfodi fformatio nad yw'n feiddgar opsiwn.

Am wybodaeth fanylach am Sylwadau Fformat , Ewch i Disgrifiad nodwedd Sylwadau Fformat.


Erthyglau cysylltiedig:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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