Kako navesti vse komentarje na novem delovnem listu ali delovnem zvezku v Excelu?
Če imate delovni zvezek s preveč komentarji in želite vse komentarje uvrstiti v nov delovni list ali delovni zvezek za pregled vseh komentarjev, kako lahko to storite? Naslednji načini vam pomagajo hitro našteti vse komentarje delovnega lista / delovnega zvezka na nov delovni list ali delovni zvezek v Excelu.
Vse komentarje dodajte na nov delovni list s kodo VBA
Navedite vse komentarje na novem delovnem listu ali delovnem zvezku s programom Kutools za Excel
Vse komentarje dodajte na nov delovni list s kodo VBA
V naslednji kodi VBA bodo navedeni vsi komentarji na novem delovnem listu v trenutnem delovnem zvezku. V novem delovnem listu bodo navedeni vsi komentarji celotnega delovnega zvezka na seznamu z imenom lista, naslovom celice, vsebino komentarja in imenom celice. Uporabite to metodo na naslednji način:
1. klik Razvojni > Visual Basic, prikaže Microsoft Visual Basic za aplikacije okno. In kliknite Vstavi > Moduliin nato v modul vnesite naslednje kode VBA.
VBA: na novem delovnem listu navede vse komentarje.
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. Nato kliknite za zagon kode in dobili boste nov delovni list z vsemi komentarji v trenutnem delovnem zvezku. Oglejte si posnetek zaslona:
Z enim klikom navedite vse komentarje na novem delovnem listu ali delovnem zvezku
Z Ustvari seznam komentarjev of Kutools za Excel, lahko vse komentarje hitro uvrstite na nov delovni list ali nov delovni zvezek.
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Get it now.
1. Če ste namestili Kutools za Excel, kliknite Kutools > Več > Ustvari seznam komentarjev, glej posnetek zaslona:
2. v Ustvari seznam komentarjev pogovorno okno:
- Izberite obseg, za katerega želite dodati komentar, ki ga lahko izberete Aktivni list or Vsi listi.
- Nato določite mesto, kamor želite dodati seznam komentarjev, komentarje lahko navedete v novi delovni zvezki ali novem listu, glejte posnetek zaslona:
3. In nato kliknite ustvarjanje. Dodan bo nov delovni list, na katerem bodo navedeni vsi komentarji aktivnega delovnega lista z njegovimi atributi, kot so ime lista, sklici na celice, vrstica in stolpec. Oglejte si posnetek zaslona:
Za podrobnejše informacije o Ustvari seznam komentarjev, Obiščite Ustvari opis funkcije seznama komentarjev.
Sorodni članki:
- Spremenite vse oblike komentarjev v celicah
- Spremeni ime avtorja vseh komentarjev
- Poiščite in zamenjajte besedilo v komentarjih
- Prikaži ali skrije vse komentarje in kazalnike komentarjev v Excelu
- Vsebino celic pretvorite v komentarje v Excelu
- Pretvorite komentarje v vsebino celic v Excelu
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!