Salt la conținutul principal

Cum se listează toate comentariile la o nouă foaie de lucru sau registru de lucru în Excel?

Dacă aveți un registru de lucru cu prea multe comentarii și doriți să enumerați toate comentariile într-o nouă foaie de lucru sau registru de lucru pentru examinarea tuturor comentariilor, cum puteți face? Următoarele metode vă pot ajuta să listați rapid toate comentariile unei foi de lucru / registru de lucru la o nouă foaie de lucru sau registru de lucru în Excel.

Enumerați toate comentariile la o nouă foaie de lucru cu cod VBA

Enumerați toate comentariile la o nouă foaie de lucru sau registru de lucru cu Kutools pentru Excel


săgeată albastru dreapta balon Enumerați toate comentariile la o nouă foaie de lucru cu cod VBA

Următorul cod VBA va lista toate comentariile la o nouă foaie de lucru din registrul de lucru curent. În noua foaie de lucru, va lista toate comentariile întregului registru de lucru într-o listă cu numele foii, adresa celulei, conținutul comentariului și numele celulei. Vă rugăm să utilizați această metodă după cum urmează:

1. Clic Dezvoltator > Visual Basic, afișează Microsoft Visual Basic pentru aplicații fereastră. Și faceți clic Insera > Moduleși apoi introduceți următoarele coduri VBA în modul.

VBA: listează toate comentariile într-o nouă foaie de lucru.

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. Apoi apasa doc-list-comentarii-1 pentru a rula codul și veți obține o nouă foaie de lucru cu toate comentariile din registrul de lucru curent. Vedeți captura de ecran:

doc-list-comentarii-2


săgeată albastru dreapta balon Enumerați toate comentariile la o nouă foaie de lucru sau registru de lucru cu un singur clic

Cu Creați o listă de comentarii of Kutools pentru Excel, puteți lista rapid toate comentariile la o nouă foaie de lucru sau un nou registru de lucru.

Kutools pentru Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. Ia-l acum.

1. Dacă ați instalat Kutools pentru Excel, faceți clic pe Kutools > Mai Mult > Creați o listă de comentarii, vezi captura de ecran:

doc-list-comentarii-3-3

2. În Creați o listă de comentarii căsuță de dialog:

  • Selectați domeniul de aplicare pe care doriți să-l listați comentariul, pe care îl puteți alege Foaie activă or Toate foile.
  • Apoi specificați locația în care doriți să puneți lista de comentarii, puteți lista comentariile într-un nou registru de lucru sau într-o foaie nouă, vedeți captura de ecran:

doc-list-comentarii-4-4

3. Apoi faceți clic pe Creabuton. O nouă foaie de lucru va fi adăugată pentru a lista toate comentariile de foaie de lucru active cu atributele sale, cum ar fi numele foii, referințele celulei, rândul și coloana. Vedeți captura de ecran:

Pentru informații mai detaliate despre Creați o listă de comentarii, Vă rugăm să vizitați Creați o descriere a funcției Lista de comentarii.


Legate de articole:

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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