Note: The other languages of the website are Google-translated. Back to English

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! (30- traseu liber de o zi)


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 încercare gratuită (30-zi) a acestei utilitati, 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 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.
fila kte 201905

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!
fundul officetab
Comentarii (18)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Îţi mulţumesc. Soluție ușoară și rapidă pentru problema mea.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Utilizarea codului dvs. 1. Dim xComment ca comentariu pentru fiecare xComment în Application.ActiveSheet.Comments xComment.Shape.TextFrame.AutoSize = True Next 2. apare problema cu această eroare 445 referință la obiect With Range("A1").Comment.Shape. TextFrame2 .WordWrap = msoTrue .AutoSize = msoAutoSizeTextToFitShape End With
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu a funcționat ca și primul cod pe care l-ai trimis, se potrivește doar conținutului, ceea ce vreau este ceva care le va face pe toate de aceeași lățime, iar lungimea se va potrivi automat cu conținutul, deoarece așa arată coloana H chiar acum și coloana A variază în funcție de dimensiunea lățimii ar dori ca coloana A să aibă trei coloane lățime și lungimea să se potrivească conținutului și să crească după cum este necesar când apăsați Introduceți caseta lungimea ar trebui să crească cu o linie. Există un cod pentru asta? rețineți că am încercat ambele coduri de cheie, pagina pe care ați trimis-o ultima dată.
Acest comentariu a fost redus la minimum de moderatorul de pe site
asta nu a mers deloc. Am primit o eroare în mod repetat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Primesc o eroare: Runtime '1004': Metoda AutoSize a obiectului TextFrame a eșuat
Acest comentariu a fost redus la minimum de moderatorul de pe site
„Cod VBA: Dimensiunea automată a casetelor de comentarii într-o foaie de lucru” s-a ocupat de comentariile foii mele de calcul. Multumesc mult!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bun! Am rezolvat problema.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este cu adevărat o informație drăguță și utilă. Mă bucur că ne-ați împărtășit aceste informații utile. Vă rugăm să ne țineți la curent în acest fel. Mulțumesc pentru distribuire. kdagekebeceddded
Acest comentariu a fost redus la minimum de moderatorul de pe site
În timp ce codul funcționează, face caseta cu o linie înaltă, ceea ce înseamnă că comentariile mari dispar în afara paginii undeva. Ați putea să dați codul pentru fixarea lățimii fiecărei casete (să spunem trei lățimi standard de coloană Excel) și ajustarea automată a lungimii casetei pentru a se potrivi textului? Mulțumiri.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc foarte mult. Acest lucru m-a salvat cu adevărat de o mulțime de bătăi de cap.
Acest comentariu a fost redus la minimum de moderatorul de pe site
@DENNIE „În timp ce codul funcționează, face caseta cu o linie înaltă, ceea ce înseamnă că comentariile mari dispar în afara paginii undeva. Ați putea să dați codul pentru fixarea lățimii fiecărei casete (să spunem trei lățimi standard de coloană Excel) și ajustarea automată lungimea casetei pentru a se potrivi cu textul? Mulțumesc." // De acord
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumesc foarte mult pentru împărtășirea acestui lucru. Cu adevărat util!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există o modalitate de a face linia de la caseta de comentarii la celulă mai întunecată sau mai groasă?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Demondrew,
Scuze te pot ajuta pentru asta.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bănuiesc că Crystal ne-a scos din urmă, întrebarea a fost: Există vreo modalitate de a face linia de la caseta de comentarii la celulă mai întunecată sau mai groasă? Aceasta ar fi linia din jurul casetei de comentarii. TIA DD
Acest comentariu a fost redus la minimum de moderatorul de pe site
uimitor! multumesc, prima cale functioneaza! mi-a salvat ore de munca!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu funcționează, modulul de inserare nu apare
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bom-dia,

Salvou de mais! Pentru a deschide planilha nu celulare toate comentariile ficaram desajustados pe pc.
Tinha mais de 10 mil comentários pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL