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

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


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


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


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (18)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ. Εύκολη και γρήγορη λύση στο πρόβλημά μου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώντας τον κώδικά σας 1. Dim xComment ως σχόλιο για κάθε xComment In Application.ActiveSheet.Comments xComment.Shape.TextFrame.AutoSize = True Next 2. παρουσιάζεται πρόβλημα με αυτό το σφάλμα 445 αναφορά αντικειμένου With Range("A1").Comment.Shape. TextFrame2 .WordWrap = msoTrue .AutoSize = msoAutoSizeTextToFitShape Τέλος με
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν λειτούργησε όπως ο πρώτος κωδικός που του στείλατε ταιριάζει μόνο στο περιεχόμενο αυτό που θέλω είναι κάτι που θα τους κάνει όλα το ίδιο πλάτος και το μήκος θα ταιριάζει αυτόματα στο περιεχόμενο, καθώς έτσι φαίνεται η στήλη H αυτή τη στιγμή και η στήλη Α ποικίλλει σε Το μέγεθος πλάτους θα ήθελε η στήλη Α να έχει πλάτος τρεις στήλες και μήκος για να ταιριάζει στο περιεχόμενο και να μεγαλώνει ανάλογα με τις ανάγκες όταν πατάτε πληκτρολογήστε το μήκος του πλαισίου θα πρέπει να αυξάνεται κατά μια γραμμή υπάρχει κωδικός για αυτό; Σημειώστε ότι δοκίμασα και τους δύο κωδικούς κλειδιού εκείνης της σελίδας που στείλατε τελευταία.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
αυτό δεν λειτούργησε καθόλου. Έλαβα ένα σφάλμα επανειλημμένα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λαμβάνω ένα σφάλμα: Χρόνος εκτέλεσης '1004': Η μέθοδος Αυτόματο μέγεθος του αντικειμένου TextFrame απέτυχε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το "VBA code: Auto-size comment boxes in a worksheet" φρόντισε για τα σχόλια του υπολογιστικού φύλλου μου. Ευχαριστώ πολύ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλός! Μου έλυσε το θέμα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι πραγματικά μια ωραία και χρήσιμη πληροφορία. Χαίρομαι που μοιραστήκατε αυτές τις χρήσιμες πληροφορίες μαζί μας. Παρακαλώ κρατήστε μας ενήμερους έτσι. Ευχαριστώ που το μοιράστηκες. kdagekebecedddded
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ενώ ο κώδικας λειτουργεί, κάνει το πλαίσιο μία γραμμή ψηλά που σημαίνει ότι τα μεγάλα σχόλια εξαφανίζονται κάπου εκτός σελίδας. Θα μπορούσατε να δώσετε τον κωδικό για τον καθορισμό του πλάτους κάθε πλαισίου (ας πούμε τρία τυπικά πλάτη στηλών του Excel) και την αυτόματη προσαρμογή του μήκους του πλαισίου ώστε να ταιριάζει στο κείμενο; Ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ. Αυτό με έσωσε πραγματικά από πολλές ταλαιπωρίες.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
@DENNIE "Ενώ ο κώδικας λειτουργεί, κάνει το πλαίσιο μία γραμμή ψηλά που σημαίνει ότι τα μεγάλα σχόλια εξαφανίζονται κάπου εκτός σελίδας. Θα μπορούσατε να δώσετε τον κώδικα για τον καθορισμό του πλάτους κάθε πλαισίου (ας πούμε τρία τυπικά πλάτη στηλών του Excel) και την αυτόματη προσαρμογή το μήκος του κουτιού για να ταιριάζει στο κείμενο; Ευχαριστώ." // Σύμφωνοι
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ πολύ που το μοιράζεστε αυτό. Πραγματικά χρήσιμο!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος να γίνει η γραμμή από το πλαίσιο σχολίων στο κελί πιο σκούρα ή πιο παχιά;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Demondrew,
Συγγνώμη μπορεί να σας βοηθήσει για αυτό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υποθέτω ότι η Crystal μας έβγαλε εκτός πορείας η ερώτηση ήταν: Υπάρχει τρόπος να γίνει η γραμμή από το πλαίσιο σχολίων στο κελί πιο σκούρα ή πιο παχιά; Αυτή θα ήταν η γραμμή που περιβάλλει το πλαίσιο σχολίων. TIA DD
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
φοβερο! ευχαριστώ, ο πρώτος τρόπος λειτουργεί! μου έσωσε ώρες δουλειάς!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν λειτουργεί, η μονάδα εισαγωγής δεν εμφανίζεται
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
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! Ομπριγκάδο.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL