メインコンテンツへスキップ

Excelで新しいワークシートまたはワークブックへのすべてのコメントを一覧表示するにはどうすればよいですか?

コメントが多すぎるワークブックがあり、すべてのコメントを確認するためにすべてのコメントを新しいワークシートまたはワークブックに一覧表示する場合、どうすればよいですか? 次の方法は、ワークシート/ワークブックのすべてのコメントをExcelの新しいワークシートまたはワークブックにすばやく一覧表示するのに役立ちます。

VBAコードを使用して新しいワークシートにすべてのコメントを一覧表示します

Kutools for Excelを使用して、新しいワークシートまたはワークブックへのすべてのコメントを一覧表示します


矢印青い右バブル VBAコードを使用して新しいワークシートにすべてのコメントを一覧表示します

次のVBAコードは、現在のブックの新しいワークシートへのすべてのコメントを一覧表示します。 新しいワークシートでは、ブック全体のすべてのコメントが、シート名、セルアドレス、コメントの内容、およびセル名とともにリストに一覧表示されます。 この方法は次のように使用してください。

1. Developer > ビジュアルベーシック、表示されます アプリケーション用のMicrosoftVisual Basic 窓。 そしてクリック インセット > モジュール、モジュールに次のVBAコードを入力します。

VBA:すべてのコメントを新しいワークシートに一覧表示します。

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。 次に、をクリックします ドキュメントリストコメント-1 ボタンをクリックしてコードを実行すると、現在のワークブックのすべてのコメントを含む新しいワークシートが表示されます。 スクリーンショットを参照してください:

ドキュメントリストコメント-2


矢印青い右バブル ワンクリックですべてのコメントを新しいワークシートまたはワークブックに一覧表示します

コメントリストを作成する of Kutools for Excel、新しいワークシートまたは新しいワークブックへのすべてのコメントをすばやく一覧表示できます。

Kutools for Excel:300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐ入手.

1。 Kutools for Excelをインストールしている場合は、 クツール > その他 > コメントリストを作成する、スクリーンショットを参照してください:

ドキュメントリストコメント-3-3

2。 の中に コメントリストを作成する ダイアログボックス:

  • コメントを一覧表示するスコープを選択します。選択できます アクティブシート or すべてのシート.
  • 次に、コメントリストを配置する場所を指定します。コメントを新しいワークブックまたは新しいシートにリストできます。スクリーンショットを参照してください。

ドキュメントリストコメント-4-4

3。 そして、 創造するボタン。 新しいワークシートが追加され、シート名、セル参照、行、列などの属性を持つすべてのアクティブなワークシートコメントが一覧表示されます。 スクリーンショットを参照してください:

詳細については、 コメントリストを作成する、ご覧ください。 コメントリスト機能の説明を作成する.


関連記事:

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
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