パソコンの小技・備忘録


トップページ > 小技一覧(Excel) > ExcelのVBAで、シート内のコメントをすべて取得する。

ExcelのVBAで、シート内のコメントをすべて取得する。

ExcelのVBAで、シート内のコメントをすべて取得する方法です。

コメントが増えてくると、その管理も大変になってきますので、一括取得して整理するといいかと思います。

'表示用として、「コメント一覧」というシートが
'あることを前提に記載しています。
Public Sub GetAllComments()

  '必要な変数を定義します。
  Dim tempCom As Comment
  Dim intRow As Integer
  intRow = 1

  For Each tempCom In ActiveSheet.Comments
    'コメントのあるセル番地を記載します。
    WorkSheets("コメント一覧").Range("A" & intRow) = _
               tempCom.Parent.Address(0, 0)

    'コメントの表示・非表示を記載します。
    WorkSheets("コメント一覧").Range("B" & intRow) = _
                    tempCom.Visible

    'コメントの内容を記載します。
    WorkSheets("コメント一覧").Range("C" & intRow) = _
                    tempCom.Text

    intRow = intRow + 1
  Next tempCom

End Sub

上記マクロを、コメントを取得したいシートをActiveにしたうえで実行しますと、コメント一覧というシートに、すべてのコメントを書き出します。

トップページに戻る

パソコンの小技・備忘録トップページ(http://pckowaza.web.fc2.com/)を表示

※更新履歴などを掲載していますので、お気に入りはぜひトップページでお願いします!

サイト内検索

 Googleでサイト内検索

小技カテゴリー

カウンタ

メール送信

 ご意見・相互リンク募集中!
意見・相互リンクメールを送信!
inserted by FC2 system