2 Μέθοδοι για μαζική αλλαγή Αλλαγή των γραμματοσειρών όλων των σχολίων σε ένα βιβλίο εργασίας του Excel

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

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

Μέθοδος 1: Αλλαγή ένα προς ένα

1. Πρώτα απ 'όλα, επιλέξτε ένα σχόλιο στο φύλλο εργασίας.
2. Στη συνέχεια, κάντε δεξί κλικ πάνω του και επιλέξτε "Μορφοποίηση σχολίου" από το μενού περιβάλλοντος.

   

3. Στη συνέχεια, στο μικρό αναδυόμενο παράθυρο διαλόγου, μπορείτε να επιλέξετε γραμματοσειρές και στυλ που σας αρέσουν.

   

4. Τελικά, κάντε κλικ στο "OK".
5. Αργότερα, μπορείτε να χρησιμοποιήσετε αυτόν τον τρόπο για να αλλάξετε χειροκίνητα σχόλια ένα προς ένα.

Μέθοδος 2: Αλλαγή παρτίδας μέσω VBA

1. Για αρχή, ξεκινήστε τον επεξεργαστή VBA του Excel με αναφορά στο "Πώς να εκτελέσετε τον κώδικα VBA στο Excel σας".
2. Στη συνέχεια, στο παράθυρο "Microsoft Visual Basic for Applications", τοποθετήστε τον παρακάτω κώδικα VBA σε ένα έργο ή λειτουργική μονάδα.

Sub BatchChangeFontsOfAllComments()

    Dim objWorksheet As Excel.Worksheet

    Dim objComment As Excel.Comment

   

    'Process all worksheet one by one

    For Each objWorksheet In ThisWorkbook.Worksheets

        If objWorksheet.Comments.Count > 0 Then

           For Each objComment In objWorksheet.Comments

               With objComment.Shape.TextFrame.Characters.Font

                    'Specify font name and size

                    .Name = "Comic Sans MS"

                    .Size = 10

                    'Use RGB function to create a color value

                    .Color = RGB(255, 0, 0)

                    .Italic = True

                    .Bold = True

               End With

           Next

        End If

    Next

End Sub

3. Αργότερα, εκτελέστε αυτήν τη μακροεντολή απλά πατώντας το πλήκτρο "F5".
4. Τελικά, μετά την ολοκλήρωση της μακροεντολής, επιστρέψτε στα φύλλα εργασίας.
5. Όπως μπορείτε να δείτε, οι γραμματοσειρές όλων των σχολίων έχουν αλλάξει, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:

Σύγκριση

Επαναφορά συμβιβασμένου αρχείου Excel

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

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων διόρθωση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com