Vai al contenuto principale

Come elencare tutti i commenti in un nuovo foglio di lavoro o cartella di lavoro in Excel?

Autore: Supporto tecnico Ultima modifica: 2014-05-08

Se hai una cartella di lavoro con troppi commenti e desideri elencare tutti i commenti in un nuovo foglio di lavoro o cartella di lavoro per rivedere tutti i commenti, come puoi fare? I seguenti metodi possono aiutarti a elencare rapidamente tutti i commenti di un foglio di lavoro / cartella di lavoro in un nuovo foglio di lavoro o cartella di lavoro in Excel.

Elenca tutti i commenti in un nuovo foglio di lavoro con codice VBA

Elenca tutti i commenti a un nuovo foglio di lavoro o cartella di lavoro con Kutools per Excel


freccia blu freccia destra Elenca tutti i commenti in un nuovo foglio di lavoro con codice VBA

Il seguente codice VBA elencherà tutti i commenti in un nuovo foglio di lavoro nella cartella di lavoro corrente. Nel nuovo foglio di lavoro, elencherà tutti i commenti dell'intera cartella di lavoro in un elenco con il nome del foglio, l'indirizzo della cella, il contenuto del commento e il nome della cella. Utilizzare questo metodo come segue:

1. Clicchi Costruttori > Visual Basic, visualizza il file Microsoft Visual Basic per le applicazioni finestra. E clicca inserire > Modulie quindi immettere i seguenti codici VBA nel modulo.

VBA: elenca tutti i commenti in un nuovo foglio di lavoro.

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. Quindi fare clic lista-doc-commenti-1 pulsante per eseguire il codice e otterrai un nuovo foglio di lavoro con tutti i commenti nella cartella di lavoro corrente. Vedi screenshot:

lista-doc-commenti-2


freccia blu freccia destra Elenca tutti i commenti in un nuovo foglio di lavoro o cartella di lavoro con un clic

Grazie alla Crea elenco commenti of Kutools for Excel, puoi elencare rapidamente tutti i commenti in un nuovo foglio di lavoro o in una nuova cartella di lavoro.

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Get it Now.

1. Se hai installato Kutools per Excel, fai clic su Kutools > Più > Crea elenco commenti, vedi screenshot:

lista-doc-commenti-3-3

2. Nel Crea elenco commenti la finestra di dialogo:

  • Seleziona l'ambito in cui desideri elencare il commento, puoi scegliere Foglio attivo or Tutti i fogli.
  • Quindi specifica la posizione in cui desideri inserire l'elenco dei commenti, puoi elencare i commenti in una nuova cartella di lavoro o in un nuovo foglio, vedi screenshot:

lista-doc-commenti-4-4

3. E poi clicca Crearepulsante. Verrà aggiunto un nuovo foglio di lavoro per elencare tutti i commenti del foglio di lavoro attivi con i suoi attributi come nome del foglio, riferimenti di cella, riga e colonna. Vedi screenshot:

Per informazioni più dettagliate su Crea elenco commenti, Si prega di visitare il sito Crea descrizione della funzione Elenco commenti.


Articoli correlati:

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
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
Leave your comments
Posting as Guest
Rate this post:
0   Characters
Suggested Locations