Vai al contenuto principale

Come ridimensionare automaticamente la casella dei commenti per adattarne il contenuto in Excel?

Quando inserisci commenti nelle celle, la dimensione della casella dei commenti è l'impostazione predefinita. Se inserisci molti contenuti, alcuni dei contenuti non saranno visibili direttamente. È possibile adattare automaticamente le dimensioni della casella dei commenti al suo contenuto?

Ridimensiona automaticamente la casella dei commenti per adattarne il contenuto a un foglio di lavoro
Ridimensiona automaticamente la casella dei commenti per adattarla al contenuto in un intervallo di celle
Ridimensiona facilmente la casella dei commenti per adattarne il contenuto al foglio attivo o a tutto il foglio con uno strumento straordinario


Ridimensiona automaticamente la casella dei commenti per adattarne il contenuto a un foglio di lavoro

In Excel, puoi trascinare manualmente la casella dei commenti sulla dimensione desiderata una per una, ma se ci sono numerose caselle dei commenti che devono essere ridimensionate, in questo modo sarà noioso e dispendioso in termini di tempo. In questo caso, puoi applicare il seguente codice VBA.

1. Tenere premuto il tasto ALT + F11 chiavi e apre il file Finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulie incolla la seguente macro nel file Finestra del modulo.

Codice VBA: caselle di commento con ridimensionamento automatico in un foglio di lavoro

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

3. Quindi premere F5 chiave per eseguire questo codice e tutte le caselle di commento nel foglio di lavoro attivo sono state ridimensionate per adattarsi al loro contenuto come mostrato nella seguente schermata:

doc ridimensiona automaticamente il commento1

Consiglio: Questo codice funziona solo nel foglio di lavoro corrente e non può ridimensionare automaticamente le nuove caselle di commento che aggiungi.


Un clic per adattare rapidamente le dimensioni della casella dei commenti al suo contenuto automaticamente in Excel:

Le Commento di adattamento automatico utilità di Kutools for Excel può aiutare ad adattare rapidamente le dimensioni della casella dei commenti al suo contenuto automaticamente in un foglio di lavoro come mostrato nella demo di seguito. Scaricalo e provalo ora! (Percorso gratuito di 30 giorni)


Ridimensiona automaticamente la casella dei commenti per adattarla al contenuto in un intervallo di celle

Se hai solo bisogno di ridimensionare automaticamente un intervallo di caselle di commento delle celle, puoi utilizzare il seguente codice VBA.

1. Tenere premuto il tasto ALT + F11 chiavi e apre il file Finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulie incolla la seguente macro nel file Finestra del modulo.

Codice VBA: caselle di commento con ridimensionamento automatico in un intervallo di celle

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. Quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di selezionare un intervallo di celle che desideri ridimensionare le caselle dei commenti, vedi screenshot:

doc-resize-comment box3

4. Quindi fare clic su OK, le caselle di commento della cella selezionata sono state adattate automaticamente al contenuto del commento.

Consiglio: Questo codice non può ridimensionare automaticamente le nuove caselle di commento che aggiungi.


Ridimensiona automaticamente la casella dei commenti per adattarne il contenuto al foglio attivo o a tutto il foglio 

Puoi provare il Commento di adattamento automatico utilità di Kutools for Excel per ridimensionare automaticamente un fileTutte le caselle di commento nel foglio attivo o in tutti i fogli in Excel. Si prega di fare quanto segue.

Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.

1. Per ridimensionare automaticamente le caselle di commento per adattarle al contenuto nel foglio attivo, fare clic su Kutools > Più > Commento di adattamento automatico > Foglio attivo.

E se desideri ridimensionare automaticamente tutte le caselle di commento nell'intera cartella di lavoro, fai clic su Kutools > Più > Commento di adattamento automatico > Tutti i fogli. Vedi screenshot:

Quindi tutte le caselle di commento vengono ridimensionate automaticamente per adattarsi al loro contenuto. Vedi screenshot:

Note:

  • 1. Dopo il ridimensionamento automatico delle caselle di commento, quando si modifica di nuovo il commento, la casella di commento si espanderà o si ridurrà automaticamente con il contenuto.
  • 2. Per i nuovi commenti inseriti, è necessario abilitare nuovamente questa utilità di commento AutoFit per ridimensionare tutte le nuove caselle di commento inserite.

  Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.


Ridimensiona facilmente la casella dei commenti per adattarla al contenuto


Articoli correlati:

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
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