なぜコメントの有無を判定する必要があるのか
Excel VBAで自動化を行う際、セルにメモを残すために「コメント（現在ではノート）」の追加処理を組むことはよくあります。しかし、すでにコメントが存在するセルに対して再度AddCommentメソッドを実行すると、実行時エラーが発生してマクロが停止してしまいます。実務で不特定多数のデータを取り扱う場合、このエラーは致命的です。本記事では、安全にコメントを操作するための判定ロジックを解説します。
基礎知識：CommentプロパティとTypeName関数
セルにコメントがあるかどうかを確認するには、RangeオブジェクトのCommentプロパティを使用します。
・Commentプロパティ：セルにコメントがあれば「Commentオブジェクト」を返し、なければ「Nothing」を返します。
・TypeName関数：指定した変数のデータ型やオブジェクトの種類を文字列で返します。
コメントの有無を判定する際は、このTypeName関数を使って、返り値が「Comment」か「Nothing」かを比較するのが、もっともシンプルで堅牢な方法です。
実装のポイント
実務では、「コメントがなければ新規作成し、あれば追記する」といった柔軟な処理が求められます。以下のサンプルコードでは、エラーを回避しつつ、既存のコメントを活かした運用を行う実装例を紹介します。
サンプルプログラム：安全にコメントを追加・追記する
以下のコードは、アクティブセルにコメントがない場合は作成し、既にある場合は日付を添えて追記する実用的なマクロです。
Sub SafeAddOrUpdateComment()
Dim targetCell As Range
Dim existingText As String
‘ 対象セルをアクティブセルに設定
Set targetCell = ActiveCell
‘ TypeName関数でコメントの有無を判定
If TypeName(targetCell.Comment) = “Nothing” Then
‘ コメントがない場合は新規追加
targetCell.AddComment “作成日: ” & Date
Else
‘ すでにある場合は既存のテキストを取得
existingText = targetCell.Comment.Text
‘ 一旦コメントを削除してから、新しい内容で再作成
targetCell.ClearComments
targetCell.AddComment existingText & vbCrLf & _
“追記日: ” & Date & ” – 作業を実行しました”
End If
MsgBox “コメントの処理が完了しました。”
End Sub
応用・注意点
1. ClearCommentsメソッドの注意点：ClearCommentsはセル内のすべてのコメントを一括削除するメソッドです。特定のコメントだけを削除したい場合は、対象のCommentオブジェクトに対してDeleteメソッドを使用してください。
2. 「ノート」と「スレッド形式のコメント」：最近のExcel（Office 365以降）では、従来の「ノート（黄色い吹き出し）」と、共同編集用の「スレッド形式のコメント」が混在しています。上記コードは従来の「ノート」を操作するものです。もし最新の共同編集用コメントを操作したい場合は、別のオブジェクト（CommentThreaded）を扱う必要があるため注意してください。
3. エラーハンドリング：もしシートが保護されている場合、AddCommentやClearCommentsはエラーになります。処理の前にシートの保護状態を確認するか、On Error Resume Nextを用いたエラーハンドリングを併用することをおすすめします。
現場での事故を防ぐためにも、操作対象のプロパティを事前に判定する癖をつけておきましょう。
