Salt la conținutul principal

Cum se dimensionează automat caseta de comentarii pentru a se potrivi conținutului său în Excel?

Când introduceți comentarii în celule, dimensiunea casetei de comentarii este implicită. Dacă introduceți o mulțime de conținut în acesta, o parte din conținut nu va fi vizibilă direct. Este posibil să se potrivească automat dimensiunea casetei de comentarii la conținutul acesteia?

Dimensiunea automată a casetei de comentarii pentru a încadra conținutul său într-o foaie de lucru
Dimensiunea automată a casetei de comentarii pentru a se potrivi conținutului său într-o gamă de celule
Dimensiune automată ușoară a casetei de comentarii pentru a încadra conținutul său în foaia activă sau în toate foile cu un instrument uimitor


Dimensiunea automată a casetei de comentarii pentru a încadra conținutul său într-o foaie de lucru

În Excel, puteți trage manual una câte una caseta de comentarii la dimensiunea necesară, dar dacă există numeroase casete de comentarii care trebuie redimensionate, acest mod va fi plictisitor și consumă mult timp. În acest caz, puteți aplica următorul cod VBA.

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

2. clic Insera > Moduleși lipiți următoarea macro în fișierul Fereastra modulului.

Cod VBA: dimensiunea automată a casetelor de comentarii dintr-o foaie de lucru

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3. Apoi apăsați F5 tasta pentru a rula acest cod și toate casetele de comentarii din foaia de lucru activă au fost redimensionate pentru a se potrivi conținutului lor, după cum urmează:

doc autosize comment1

varful: Acest cod funcționează numai în foaia de lucru curentă și nu poate redimensiona automat noile casete de comentarii pe care le adăugați.


Un singur clic pentru a potrivi rapid dimensiunea casetei de comentarii la conținutul său automat în Excel:

Comentariu de ajustare automată utilitatea Kutools pentru Excel poate ajuta la ajustarea rapidă a dimensiunii casetei de comentarii la conținutul său automat într-o foaie de lucru, așa cum se arată în demonstrația de mai jos. Descărcați și încercați acum! (traseu gratuit de 30 de zile)


Dimensiunea automată a casetei de comentarii pentru a se potrivi conținutului său într-o gamă de celule

Dacă trebuie doar să mărim automat o gamă de casete de comentarii de celule, puteți utiliza următorul cod VBA.

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

2. clic Insera > Moduleși lipiți următoarea macro în fișierul Fereastra modulului.

Cod VBA: dimensiunea automată a casetelor de comentarii dintr-o gamă de celule

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. Apoi apăsați F5 pentru a executa acest cod și va apărea o casetă de solicitare pentru a vă reaminti să selectați o gamă de celule pe care doriți să le redimensionați casetele de comentarii, vedeți captura de ecran:

doc-resize-coment-box3

4. Și apoi faceți clic pe OK, casetele de comentarii ale celulei selectate au fost adaptate automat la conținutul comentariului.

varful: Acest cod nu poate redimensiona automat noile casete de comentarii pe care le adăugați.


Dimensiunea automată a casetei de comentarii pentru a se potrivi conținutului său în foaia activă sau în toată foaia 

Puteți încerca Comentariu AutoFit utilitatea Kutools pentru Excel pentru a redimensiona automat unVoi introduce casete de comentarii în foaia activă sau toate foile din Excel Vă rugăm să faceți următoarele.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Pentru redimensionarea automată a casetelor de comentarii pentru a se încadra conținutul lor în foaia activă, faceți clic pe Kutools > Mai Mult > Comentariu AutoFit > Foaie activă.

Și dacă doriți să redimensionați automat toate casetele de comentarii din întregul registru de lucru, faceți clic pe Kutools > Mai Mult > Comentariu AutoFit > Toate foile. Vedeți captura de ecran:

Apoi, toate casetele de comentarii sunt redimensionate automat pentru a se potrivi conținutului lor. Vedeți captura de ecran:

notițe:

  • 1. După redimensionarea automată a casetelor de comentarii, când editați din nou comentariul, caseta de comentarii se va extinde sau micșora automat cu conținutul.
  • 2. Pentru noile comentarii pe care le-ați inserat, trebuie să activați din nou acest utilitar de comentarii AutoFit pentru a redimensiona toate casetele noi de comentarii inserate.

  Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Dimensiune automată ușoară a casetei de comentarii pentru a se potrivi conținutului său


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 (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I've been using an xls spreadsheet for 10+ years. Suddenly, all my note boxes were hugely expanded, showed as a blank note until I edited them. Your solution below worked to resize all of my note boxes to fit contents. But now when I try to resize the note box to add more text, Excel crashes. This is even after I saved as an xlsx file to remove all VB code. Can you help?

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End Sub
This comment was minimized by the moderator on the site
Bom-dia,

Salvou de mais! Após abrir planilha no celular todos os comentários ficaram desajustados no pc.
Tinha mais de 10 mil comentários pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
This comment was minimized by the moderator on the site
It doesn't work, the insert module does not show up
This comment was minimized by the moderator on the site
amazing! thank you, the first way works! saved me hours of work!
This comment was minimized by the moderator on the site
I guess Crystal got us off track the question was: Is there a way of making the line from the comment box to the cell darker or fatter? That would be the line surrounding the comment box. TIA DD
This comment was minimized by the moderator on the site
Is there a way of making the line from the comment box to the cell darker or fatter?
This comment was minimized by the moderator on the site
Hi Demondrew,
Sorry can help you for that.
This comment was minimized by the moderator on the site
Thank you so much for sharing this. Really helpful!
This comment was minimized by the moderator on the site
@DENNIE "While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks." // Agreed
This comment was minimized by the moderator on the site
Thank you very much. This really saved me from lots of hassles.
This comment was minimized by the moderator on the site
While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? 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