【VBA入門】セルのメモ内容を更新する方法｜コメントがある場合のみ上書きする処理

2025年7月20日

Excelでは、セルに対して**「メモ（旧コメント）」を挿入し、後からその内容を更新することができます。
VBAを使えば、既にメモが存在するかを判定し、必要に応じて内容を書き換える処理**を実装することが可能です。

この記事では、メモがある場合にのみその内容を更新する処理を、具体的なVBAコードとともに解説いたします。

VBAコード：メモを更新する処理

Sub UpdateCellNote()
    Dim targetCell As Range
    Set targetCell = Range("D5")  ' 対象セルを D5 に変更

    If Not targetCell.Comment Is Nothing Then
        targetCell.Comment.Text "このメモは更新されました。"  ' メモ内容を上書き
    Else
        MsgBox "このセルにはまだメモが存在しません。"
    End If
End Sub

コードのポイント解説

項目	説明
`Comment Is Nothing`	コメントの有無を判定（`Nothing` でなければ存在）
`Comment.Text`	メモ（コメント）の内容を書き換えるためのプロパティ
`MsgBox`	メモがない場合に通知を表示する処理

使用シーンの例

入力された内容に応じてメモを更新する処理
指定セルの注意文や補足説明を自動更新したい場面
フォームやチェックシートのステータスをメモで管理したい場合

注意点

Comment.Text は既存のメモを上書きするため、内容を保持したい場合は事前に .Text を取得しておくとよいでしょう。
ActiveCell を使用する場合、ユーザーの選択状況によって動作が変わるため、できるだけ Range("D5") のように明示的なセル指定を行うと安全です。