Στο Excel, ενώ προετοιμάζουμε αναφορές για προϊστάμενο/διοίκηση, τείνουμε να εισάγουμε σχόλια για να αφήσουμε το άλλο άτομο να ενημερώσει για την κατάσταση της εργασίας. Τα σχόλια χρησιμοποιούνται βασικά για εσωτερικούς σκοπούς. Σε αυτό το άρθρο, θα μάθουμε πώς να αφαιρούμε όλα τα σχόλια στο Excel, χρησιμοποιώντας μακροεντολές.
Ερώτηση): Θα ήθελα να εφαρμόσω έναν κωδικό VBA που θα αφαιρέσει όλα τα σχόλια από το βιβλίο εργασίας.
Χρησιμοποιώ την έκδοση Excel 2003 στο σπίτι μου και την έκδοση Excel 2010 στο γραφείο. Έχω έναν κωδικό που λειτουργεί τέλεια κατά τη διαγραφή σχολίων του Excel 2010 αλλά δεν είναι σε θέση να διαγράψει τα σχόλια του Excel 2003.
Πρέπει να ακολουθήσουμε τα παρακάτω βήματα:
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κωδικών, επιλέξτε Visual Basic
- Κάντε κλικ στο Εισαγωγή και, στη συνέχεια, στο στοιχείο
- Αυτό θα δημιουργήσει νέα ενότητα
- Εισαγάγετε τον ακόλουθο κώδικα στην τυπική μονάδα
Ο ακόλουθος κώδικας είναι συμβατός με την έκδοση Excel 2007, Excel 2010 & Excel 2013
Sub Remove_Comments_After2007 ()
«Κατάργηση σχολίων από το βιβλίο εργασίας του Excel 2007
ActiveWorkbook.RemoveDocumentInformation (xlRDIComments)
Τέλος υπο
Ο παρακάτω κώδικας είναι συμβατός με την έκδοση του Excel 2003
Sub Remove_Comments_2003 ()
«Κατάργηση σχολίων από το βιβλίο εργασίας του Excel 2003
Dim wksAs φύλλο εργασίας
Dim cmnt ως σχόλιο
Για κάθε wksInActiveWorkbook.Sheets
Για κάθε cmntInwks.Comments
cmnt. Διαγραφή
Επόμενο cmnt
Επόμενο
Τέλος υπο
- Για να τρέξει η μακροεντολή, θα πατήσουμε ALT + F8 πλήκτρο συντόμευσης για να ανοίξετε το παράθυρο Μακροεντολή και να επιλέξετε τη μακροεντολή.
- Όλα τα σχόλια θα διαγραφούν.
Με αυτόν τον τρόπο, μπορούμε να διαγράψουμε τα σχόλια του Excel ανάλογα με τις εκδόσεις που χρησιμοποιούμε.
