The Excel? Følgende VBA-kode vil liste alle kommentarer til et nytt regneark i gjeldende arbeidsbok. I det nye regnearket, vil det vise alle kommentarer av hele arbeidsboken i en liste med arket navn, mobil adresse, kommentere innholdet og celle navn. Vennligst bruk denne metoden som følger:
1. Klikk Developer > Visual Basic, viser den Microsoft Visual Basic for Applications vinduet. Og klikk på Sett > Modul, og deretter skriver du inn følgende VBA koder i modulen
VBA:.. Lister alle kommentarer i et nytt regneark
Sub ShowCommentsAllSheets () 'Update 20140508Dim commrange Som RangeDim rng Som RangeDim ws As WorksheetDim newWs Som WorksheetSet newWs = Application.Worksheets.AddnewWs.Range ("A1"). Resize (1, 4) .Value = Array ("ark", "Adresse", "verdi", "Kommentar") Application.ScreenUpdating = FalseOn Error Resume NextFor Hver ws I Application.ActiveWorkbook.Worksheets Set commrange = ws.Cells.SpecialCells (xlCellTypeComments) Hvis ikke commrange Er Ingenting Så i = newWs.Cells (Rows.Count, 1) END (xlUp) .Row For Hver RNG i commrange i = i + 1 newWs.Cells (i, 1) .Resize (1, 4) .Value = Array (ws.Name, rng.Address, rng.Value, rng.Comment.Text) Neste Slutt Hvis Set commrange = NothingNextnewWs.Cells. WrapText = FalseApplication.ScreenUpdating = TrueEnd SUB2. Klikk deretter på knappen for å kjøre koden, og du vil få et nytt regneark med alle kommentarene i den gjeldende arbeidsboken. Se skjermbilde:
Datamaskin læring 