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ă:

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.

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:

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.

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.

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

Legate de articole:

• Cum se schimbă forma casetei de comentarii în Excel?
• Cum se schimbă toate formatele de comentarii din celulele din Excel?
• Cum se listează toate comentariile la o nouă foaie de lucru sau registru de lucru în Excel?
• Cum se introduce o imagine sau o imagine în comentariu în Excel?

---

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

• reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
• Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
• Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
• Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
• Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
• Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
• Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
• Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
• Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.

Citeşte mai mult ... Descărcare gratuită... Cumpărare... 

---

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!

Citeşte mai mult ... Descărcare gratuită... Cumpărare...