Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es listen tots els comentaris a un nou full de càlcul o llibre a Excel?

Si teniu llibres amb massa comentaris, i voleu incloure tots els comentaris en un full de càlcul o llibre de treball nou per revisar tots els comentaris, com podeu fer-ho? Els següents mètodes us poden ajudar a llistar ràpidament tots els comentaris d'un full de càlcul / llibre a un nou full de càlcul o llibre a Excel.

Llista tots els comentaris a un full de treball nou amb codi VBA

Llista tots els comentaris a un full de càlcul o llibre de treball nou amb Kutools for Excel


fletxa blau dreta bombolla Llista tots els comentaris a un full de treball nou amb codi VBA


El codi VBA següent mostrarà tots els comentaris a un full de càlcul nou al llibre actual. En el full de càlcul nou, mostrarà tots els comentaris de tot el llibre en una llista amb el nom del full, l'adreça de la cel·la, els comentaris del contingut i el nom de la cel·la. Utilitzeu aquest mètode de la manera següent:

1. feu clic Revelador > Visual Basic, mostra el fitxer Microsoft Visual Basic per a aplicacions finestra. I feu clic a Insereix > Mòduls, i després introduïu els codis VBA següents al mòdul.

VBA: mostra tots els comentaris en un full de treball nou.

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. A continuació, feu clic a doc-list-comments-1 botó per executar el codi i obtindreu un full de treball nou amb tots els comentaris del llibre actual. Mostra la captura de pantalla:

doc-list-comments-2


fletxa blau dreta bombolla Enumereu tots els comentaris en un full de càlcul o llibre de treball nou amb un sol clic

Amb el Crea una llista de comentaris of Kutools for Excel, podeu llistar ràpidament tots els comentaris en un full de càlcul nou o en un llibre nou.

Kutools for Excel: amb més complements Excel de 300, gratuïts per intentar sense limitacions en 30 dies. Agafa-ho ara.

1. Si heu instal·lat Kutools for Excel, feu clic a Kutools > més > Crea una llista de comentaris, veure captura de pantalla:

doc-list-comments-3-3

2. Al Crea una llista de comentaris Caixa de diàleg:

  • Seleccioneu l'àmbit que vulgueu enumerar el comentari, podeu triar Full actiu or Tots els fulls.
  • A continuació, especifiqueu la ubicació que voleu posar a la llista de comentaris, podeu llistar els comentaris en un llibre nou o un full nou, veure la captura de pantalla:

doc-list-comments-4-4

3. A continuació, feu clic a Createbotó S'afegeix un nou full de càlcul per mostrar tots els comentaris del full de treball actius amb els seus atributs, com ara el nom del full, les referències de la cel·la, la fila i la columna. Mostra la captura de pantalla:

Per obtenir informació més detallada sobre Crea una llista de comentaris, Visiteu Crea una descripció de la característica de la llista de comentaris.


Articles relacionats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Helena Karas · 19 days ago
    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 senatorrpwalter@hotmail.com. Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
  • To post as a guest, your comment is unpublished.
    Helena Karas · 19 days ago
    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 senatorrpwalter@hotmail.com. Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
  • To post as a guest, your comment is unpublished.
    Abdul · 25 days ago
    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
  • To post as a guest, your comment is unpublished.
    Alden · 8 months ago
    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")
  • To post as a guest, your comment is unpublished.
    Loki · 9 months ago
    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 :)