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

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

「Cells.SpecialCells(xlCellTypeComments)」というオブジェクト式で、コメントの含まれるセルを表すコレクションとしてのRangeオブジェクトが取得できるので、For Each～Nextループで個々のRangeオブジェクトを取得して、そのセル番地を取得しています。

エラートラップ入りのサンプルマクロ

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

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

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マクロ

TrackBack:0

TrackBack URL

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

『インストラクターのネタ帳』は2003年10月から、Microsoft Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。
Kindle Direct Publishingで、VBAユーザー向けのPython超入門書を出しました↓↓

2年前(2018年9月)の
人気記事

1位：切り捨てしたい・切り上げしたい−ROUNDDOWN関数・ROUNDUP関数
2位：千円単位・百万円単位で表示する
3位：Windows 10で手書き入力するIMEパッドを表示するには
4位：COUNTIF関数で空白以外のセルをカウントする
5位：IF関数で○○以上××以下という条件を指定する

「コメント」の記事一覧