Home » ExcelVBA Rangeオブジェクト » コメント » コメントの挿入されているセルをループ処理するExcelマクロ

コメントの挿入されているセルをループ処理するExcelマクロ

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「excel vba コメントをつけたセル for」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

VBA（Visual Basic for Applications）で、コメントの挿入されているセルだけをループ処理するには、どのようなコードを書けばいいのかを探している方による検索です。

［スポンサードリンク］

コメントの挿入されているセルをループ処理するサンプルマクロ

以下のようなFor Each～Nextループで、コメントの挿入されているセルだけをループ処理することができます。

Sub コメントの挿入されているセルをループ処理する()
　Dim rng As Range　
　For Each rng In Cells.SpecialCells(xlCellTypeComments)
　　MsgBox rng.Address
　Next rng
End Sub

上記のマクロを実行すると、アクティブシート上のコメントの存在するセルのアドレスが、順番にメッセージボックスへ表示されます。

上記のマクロでは、コメントの挿入されているセルが存在しないときに実行時エラーが発生します。

エラートラップを入れるなら以下のようなマクロです。

Sub コメントの挿入されているセルをループ処理する_エラートラップあり()
　On Error GoTo ERR_HNDL

　Dim rng As Range
　For Each rng In Cells.SpecialCells(xlCellTypeComments)
　　MsgBox rng.Address
　Next rng

　Exit Sub

ERR_HNDL:
　Err.Clear
　MsgBox "コメントの挿入されているセルはありません。"
End Sub

［スポンサードリンク］

Home » ExcelVBA Rangeオブジェクト » コメント » コメントの挿入されているセルをループ処理するExcelマクロ

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Excel VBAユーザーの皆さんに向けたWord VBA入門書を、書きました↓↓

グラフに関連するオブジェクトモデルの基本を解説した『理解するExcel VBA／グラフ操作の基本』を出しました↓↓

VBAユーザーの皆さんに向けて、Pythonの超入門書をキンドル本として出しました↓↓

3年前(2019年9月)の
人気記事

「コメント」の記事一覧