Ugrás a tartalomra

Hogyan lehet felsorolni az összes megjegyzés egy új munkalapra vagy munkafüzetre az Excelben?

Ha túl sok megjegyzéssel ellátott munkafüzet van, és az összes megjegyzést új munkalapra vagy munkafüzetre szeretné felsorolni az összes megjegyzés áttekintésére, hogyan teheti meg? A következő módszerek segítségével gyorsan felsorolhatja a munkalap / munkafüzet összes megjegyzését az Excel új munkalapjába vagy munkafüzetébe.

Sorolja fel az összes megjegyzést egy új VBA kóddal ellátott munkalapra

Sorolja fel az összes megjegyzést egy új munkalaphoz vagy munkafüzethez a Kutools for Excel segítségével


nyíl kék jobb buborék Sorolja fel az összes megjegyzést egy új VBA kóddal ellátott munkalapra

A következő VBA-kód felsorolja az új munkalap összes megjegyzését az aktuális munkafüzetben. Az új munkalapon a teljes munkafüzet összes megjegyzését felsorolja a lap nevével, cellacímével, megjegyzés tartalmával és cellanevével. Kérjük, használja ezt a módszert az alábbiak szerint:

1. Kattints Fejlesztő > Visual Basic, megjeleníti a Microsoft Visual Basic alkalmazásokhoz ablak. És kattints betétlap > Modulok, majd írja be a modulba a következő VBA kódokat.

VBA: az összes megjegyzés egy új munkalapon szerepel.

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. Ezután kattintson doc-list-comments-1 gombot a kód futtatásához, és új munkalapot kap az aktuális munkafüzet összes megjegyzésével. Lásd a képernyőképet:

doc-list-comments-2


nyíl kék jobb buborék Az összes megjegyzés egy kattintással felsorolható egy új munkalapra vagy munkafüzetre

Aktivitáskövető Hozzászólólista létrehozása of Kutools az Excel számára, gyorsan felsorolhatja az összes megjegyzést egy új munkalapra vagy egy új munkafüzetre.

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Szerezd meg most.

1. Ha telepítette a Kutools for Excel programot, kattintson a gombra Kutools > Több > Hozzászólólista létrehozása, lásd a képernyőképet:

doc-list-comments-3-3

2. Az Hozzászólólista létrehozása párbeszédablak:

  • Válassza ki azt a hatókört, amelybe fel szeretné sorolni a megjegyzést, és kiválaszthatja Aktív lap or Minden lap.
  • Ezután adja meg azt a helyet, ahová fel szeretné venni a megjegyzéslistát, felsorolhatja a megjegyzéseket egy új munkafüzetbe vagy egy új munkalapba, lásd a képernyőképet:

doc-list-comments-4-4

3. Kattintson a gombra Teremtgomb. Új munkalap kerül hozzáadásra az összes aktív munkalap-megjegyzés felsorolásához annak attribútumaival, mint például a lap neve, cellahivatkozások, sor és oszlop. Lásd a képernyőképet:

Részletesebb információk a Hozzászólólista létrehozása, Kérjük, látogasson el a Hozzon létre egy megjegyzéslista funkció leírást.


Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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