Skip i'r prif gynnwys

Sut i ailosod pob swydd sylwadau yn Excel?

Mewn taflen waith sy'n cynnwys nifer o sylwadau, weithiau, mae angen i ni addasu neu symud safle'r blwch sylwadau i weld cynnwys y gell y tu ôl i'r blwch sylwadau, yn yr achos hwn, bydd y blychau sylwadau yn cael eu symud i wahanol swyddi. Ar ôl gorffen y llawdriniaeth, mae angen i chi ddychwelyd y blychau sylwadau i'w safle gwreiddiol, sut allech chi ailosod pob safle sylwadau ar unwaith yn Excel?

Ailosod pob safle blwch sylwadau gyda chod VBA yn Excel
Un clic i ailosod pob swydd blwch sylwadau gyda Kutools ar gyfer Excel


Ailosod pob safle blwch sylwadau gyda chod VBA yn Excel

Gallwch gymhwyso'r cod VBA canlynol i adfer yr holl flychau sylwadau i'w swyddi gwreiddiol ar unwaith.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Ailosod pob safle sylwadau yn y daflen waith weithredol

Sub ResetComments()
'Update 20141110
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

3. Yna pwyswch F5 yn allweddol i redeg y cod hwn, ac mae'r holl swyddi sylwadau yn y daflen waith weithredol wedi'u hailosod ar unwaith. Gweler sgrinluniau:

doc-ailosod-sylw-1
-1
doc-ailosod-sylw-2

Ailosod pob safle blwch sylwadau gyda dim ond un clic

Yma rydym yn cyflwyno'r Ailosod Swydd Sylw cyfleustodau Kutools ar gyfer Excel. Gyda'r cyfleustodau hwn, gallwch ailosod pob safle sylwadau yn gyflym ar ddalen weithredol neu bob dalen gyda dim ond un clic.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Os ydych chi am ailosod holl safle'r blwch sylwadau ar y ddalen weithredol, cliciwch Kutools > Mwy > Ailosod Swydd Sylw > Dalen weithredol.

I ailosod holl safle'r blwch sylwadau ym mhob dalen o'r llyfr gwaith cyfredol, cliciwch Kutools > Mwy > Ailosod Swydd Sylw > Pob dalen. Gweler y screenshot:

Ar ôl clicio Dalen weithredol neu Bob taflen, bydd yr holl swyddi sylwadau ar ddalen weithredol neu bob dalen yn cael eu hailosod i'w safleoedd gwreiddiol ar unwaith.

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Un clic i ailosod pob swydd blwch sylwadau gyda Kutools ar gyfer Excel


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 (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It's not working with my computer. Ask to save as macro-enabled file type & after save missed out some data. 
This comment was minimized by the moderator on the site
Thank you. The code was helpful to adopt & reset many comments in my worksheet.
Earlier, I had many comment boxes with sizes so huge in height (which was caused accidentally by dragging or something). Even though these comment boxes were not visible always, this was causing one issue - The vertical scroll bar size became small as the comment boxes end position (say, it is big lying over thousands of cells) was also a factor to consider the "active range" in the worksheet.
This comment was minimized by the moderator on the site
Great article, but ... In Excel in my Office 365 (now Microsoft 365), what used to be Comments are now "Notes". Will your macros still work? Thanks.
This comment was minimized by the moderator on the site
After I press F5 and run the code, nothing happens and the comments boxes are still far away - May I ask if you know how to resolve this? Thank you very much.
This comment was minimized by the moderator on the site
Formatting is one of the boring things when it comes to data and reporting and here we have some of the time saver formatting tips for you which you can use in your daily work https://liteblue.me
This comment was minimized by the moderator on the site
Thank you so much for the script.. !!
This comment was minimized by the moderator on the site
A huge thank you, this was so easy and worked perfectly. I've never used a macro before, but I followed your instructions and it was so straight forward. Very much appreciated.
This comment was minimized by the moderator on the site
This is the best, thanks
This comment was minimized by the moderator on the site
Thank you so much for the VBA code!!! You saved me hours of work. Best, Andy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations