Μετάβαση στο κύριο περιεχόμενο

Πώς να ρυθμίσετε αυτόματα το πλαίσιο σχολίων για να χωρέσει το περιεχόμενό του στο Excel;

Όταν εισάγετε σχόλια σε κελιά, το μέγεθος του πλαισίου σχολίων είναι η προεπιλογή. Εάν εισαγάγετε πολλά περιεχόμενα σε αυτό, μέρος του περιεχομένου δεν θα είναι άμεσα ορατό. Είναι δυνατή η αυτόματη προσαρμογή του μεγέθους του πλαισίου σχολίων στο περιεχόμενό του;

Πλαίσιο σχολίων αυτόματου μεγέθους για προσαρμογή του περιεχομένου του σε ένα φύλλο εργασίας
Πλαίσιο σχολίων αυτόματου μεγέθους για προσαρμογή του περιεχομένου του σε μια σειρά κελιών
Εύκολο πλαίσιο σχολίων αυτόματου μεγέθους για να χωρέσει το περιεχόμενό του σε ενεργό φύλλο ή σε όλο το φύλλο με ένα καταπληκτικό εργαλείο


Πλαίσιο σχολίων αυτόματου μεγέθους για προσαρμογή του περιεχομένου του σε ένα φύλλο εργασίας

Στο Excel, μπορείτε να σύρετε το πλαίσιο σχολίων στο μέγεθος των αναγκών σας με μη αυτόματο τρόπο ένα, ένα, αλλά αν υπάρχουν πολλά πλαίσια σχολίων πρέπει να αλλάξει το μέγεθός τους, αυτός ο τρόπος θα είναι κουραστικός και χρονοβόρος. Σε αυτήν την περίπτωση, μπορείτε να εφαρμόσετε τον ακόλουθο κωδικό VBA.

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.

2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Παράθυρο ενότητας.

Κωδικός VBA: Πλαίσια σχολίων αυτόματου μεγέθους σε ένα φύλλο εργασίας

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

3. Στη συνέχεια, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και όλα τα πλαίσια σχολίων στο ενεργό φύλλο εργασίας έχουν αλλάξει το μέγεθος ώστε να ταιριάζουν με το περιεχόμενό τους όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:

Έγγραφο αυτόματου μεγέθους σχόλιο1

Άκρο: Αυτός ο κώδικας λειτουργεί μόνο στο τρέχον φύλλο εργασίας και δεν μπορεί να αλλάξει αυτόματα το μέγεθος των νέων πλαισίων σχολίων που προσθέτετε.


Ένα κλικ για γρήγορη προσαρμογή του μεγέθους του πλαισίου σχολίων στο περιεχόμενό του αυτόματα στο Excel:

Η Σχόλιο αυτόματης επένδυσης χρησιμότητα του Kutools για Excel μπορεί να σας βοηθήσει να προσαρμόσετε γρήγορα το μέγεθος του πλαισίου σχολίων στο περιεχόμενό του αυτόματα σε ένα φύλλο εργασίας, όπως φαίνεται στην παρακάτω επίδειξη. Κατεβάστε το και δοκιμάστε το τώρα! (Δωρεάν διαδρομή 30 ημερών)


Πλαίσιο σχολίων αυτόματου μεγέθους για προσαρμογή του περιεχομένου του σε μια σειρά κελιών

Εάν θέλετε απλώς να κάνετε αυτόματη μεγέθυνση ενός εύρους κουτιών σχολίων κελιού, μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα VBA.

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.

2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Παράθυρο ενότητας.

Κωδικός VBA: Πλαίσια σχολίων αυτόματου μεγέθους σε μια σειρά κελιών

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. Στη συνέχεια, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής που θα σας υπενθυμίζει ότι επιλέγετε μια σειρά κελιών που θέλετε να αλλάξετε το μέγεθος των πλαισίων σχολίων, δείτε το στιγμιότυπο οθόνης:

doc-resize-comment-box3

4. Και μετά κάντε κλικ στο OK, τα επιλεγμένα πλαίσια σχολίων κελιού σας προσαρμόστηκαν αυτόματα στο περιεχόμενο των σχολίων.

Άκρο: Αυτός ο κωδικός δεν μπορεί να αλλάξει αυτόματα το μέγεθος των νέων πλαισίων σχολίων που προσθέτετε.


Αυτόματο μέγεθος σχολίου για να χωρέσει το περιεχόμενό του σε ενεργό φύλλο ή σε ολόκληρο το φύλλο 

Μπορείτε να δοκιμάσετε το Σχόλιο αυτόματης προσαρμογής χρησιμότητα του Kutools για Excel για αυτόματη αλλαγή μεγέθους aΘα κάνω σχόλια σε ενεργό φύλλο ή σε όλα τα φύλλα στο Excel. Κάντε τα εξής:

Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.

1. Για να αλλάξετε το μέγεθος των πλαισίων σχολίων για να χωρέσουν το περιεχόμενό τους σε ενεργό φύλλο, κάντε κλικ Kutools > Περισσότερες > Σχόλιο αυτόματης προσαρμογής > Ενεργό φύλλο.

Και αν θέλετε να αλλάξετε το μέγεθος όλων των πλαισίων σχολίων σε ολόκληρο το βιβλίο εργασίας, κάντε κλικ Kutools > Περισσότερες > Σχόλιο αυτόματης προσαρμογής > Όλα τα φύλλα. Δείτε το στιγμιότυπο οθόνης:

Στη συνέχεια, όλα τα πλαίσια σχολίων αλλάζουν μέγεθος αυτόματα για να ταιριάζουν στο περιεχόμενό τους. Δείτε το στιγμιότυπο οθόνης:

Notes:

  • 1. Μετά την αυτόματη αλλαγή μεγέθους των πλαισίων σχολίων, όταν επεξεργάζεστε ξανά το σχόλιο, το πλαίσιο σχολίων θα επεκταθεί ή θα συρρικνωθεί αυτόματα με το περιεχόμενο.
  • 2. Για τα νέα σχόλια που εισαγάγατε, πρέπει να ενεργοποιήσετε ξανά αυτό το βοηθητικό πρόγραμμα αυτόματης προσαρμογής σχολίων για να αλλάξετε το μέγεθος όλων των νέων πλαισίων σχολίων που έχουν εισαχθεί.

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Εύκολο πλαίσιο σχολίων αυτόματου μεγέθους για να ταιριάζει στο περιεχόμενό του


Σχετικά άρθρα:

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
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