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

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

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

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

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

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

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

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

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

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

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

Σημειώσεις:

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

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

• Πώς να αλλάξετε το σχήμα του πλαισίου σχολίων στο Excel;
• Πώς να αλλάξετε όλες τις μορφές σχολίων σε κελιά στο Excel;
• Πώς να καταχωρίσετε όλα τα σχόλια σε ένα νέο φύλλο εργασίας ή βιβλίο εργασίας στο Excel;
• Πώς να εισαγάγετε εικόνα ή εικόνα στο σχόλιο στο Excel;