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

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

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

Λίστα όλων των σχολίων σε ένα νέο φύλλο εργασίας με κωδικό VBA

Καταγράψτε όλα τα σχόλια σε ένα νέο φύλλο εργασίας ή βιβλίο εργασίας με το Kutools για Excel


βέλος μπλε δεξιά φούσκα Λίστα όλων των σχολίων σε ένα νέο φύλλο εργασίας με κωδικό VBA

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

1. Πατήστε Εργολάβος > Visual Basic, εμφανίζει το Microsoft Visual Basic για εφαρμογές παράθυρο. Και κάντε κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, εισαγάγετε τους ακόλουθους κωδικούς VBA στο Module.

VBA: παραθέτει όλα τα σχόλια σε ένα νέο φύλλο εργασίας.

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. Στη συνέχεια κάντε κλικ στο κουμπί doc-list-σχόλια-1 κουμπί για να εκτελέσετε τον κώδικα και θα λάβετε ένα νέο φύλλο εργασίας με όλα τα σχόλια στο τρέχον βιβλίο εργασίας. Δείτε το στιγμιότυπο οθόνης:

doc-list-σχόλια-2


βέλος μπλε δεξιά φούσκα Καταγράψτε όλα τα σχόλια σε ένα νέο φύλλο εργασίας ή βιβλίο εργασίας με ένα κλικ

Με την Δημιουργία λίστας σχολίων of Kutools για Excel, μπορείτε να αναφέρετε γρήγορα όλα τα σχόλια σε ένα νέο φύλλο εργασίας ή σε ένα νέο βιβλίο εργασίας.

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα.

1. Εάν έχετε εγκαταστήσει το Kutools για Excel, κάντε κλικ στο Kutools > Περισσότερες > Δημιουργία λίστας σχολίων, δείτε το στιγμιότυπο οθόνης:

doc-list-comments-3-3

2. Στην Δημιουργία λίστας σχολίων κουτί διαλόγου:

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

doc-list-comments-4-4

3. Και στη συνέχεια κάντε κλικ στο κουμπί Δημιουργίακουμπί. Ένα νέο φύλλο εργασίας θα προστεθεί για να απαριθμήσει όλα τα ενεργά σχόλια του φύλλου εργασίας με τα χαρακτηριστικά του, όπως όνομα φύλλου, αναφορές κελιού, σειρά και στήλη. Δείτε το στιγμιότυπο οθόνης:

Για περισσότερες πληροφορίες σχετικά με το Δημιουργία λίστας σχολίων, Μπορείτε να επισκεφθείτε Δημιουργία περιγραφής λίστας σχολίων.


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

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

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

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

Περιγραφή


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In the Create Comment List dialog, select the scope you want to list the comment, Active sheet or All sheets, then choose to place the comments in a new workbook or a new sheet of current workbook https://www.myloweslife.us/
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
But what if you are just commencing? Anyone could have to investigate on particular topic,
anyone start writing on out. This data was
required to rank web web pages

Almillat
Maninerd
hitscorner
maniwebify
This comment was minimized by the moderator on the site
I found it useful to add the following line after line 8 in the VBA code; it renames the sheet to the comments and the date created.

ActiveSheet.Name = "Comments " & Format(Now(), "DD-MMM-YY")
This comment was minimized by the moderator on the site
Oh, and one more thing. Each time I hit "Run", it opens a New Sheet with the list of comments. How can I make it add to the existing sheet without duplicating teh entries then? Thanks :)
This comment was minimized by the moderator on the site
Thank you for the VBA Code! This really helps. Is there a way in which I can see all new comments or responded to comments in the sheet in realtime? It only updates each time the workbook is opened. But not while I am working in it.
Best regards,
Loki
This comment was minimized by the moderator on the site
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations