【2026年7月最新】VBAコメントアウト完全ガイド｜シングルクォート・Remコマンド・セルコメント・実務活用まで徹底解説

📚 用語解説

コメントアウト：プログラムのソースコード内に、実行されない説明文や注釈を記述すること。VBAでは行の先頭または途中にシングルクォート（'）を置くと、それ以降の文字が実行時に無視される。

コードそのものは「何をしているか」を示しています。コメントは「なぜそうしているか」「どんな条件で動くか」を補足するために書くのが最も効果的です。「price = 1000 '単価」より「price = 1000 '税抜き単価（仕様書p.5参照）」のほうが実務では役立ちます。

📚 用語解説

シングルクォート：VBAでコメントを始めるための記号（'）。この記号以降、行末まですべてがコメントとして扱われ、プログラムには影響しない。日本語環境では「アポストロフィ」とも呼ばれる。

' これはコメントです（行全体がコメント）
Dim price As Long
price = 1000  ' 単価（税抜）←これはインラインコメント

' 変数を初期化する
Dim counter As Integer
counter = 0

Sub SampleMacro()
    ' 税込み価格を計算するサブルーチン
    Dim price As Long
    price = 1000  ' 単価

    ' 消費税率10%を掛けた税込み価格を算出
    Dim taxPrice As Long
    taxPrice = price * 1.1

    MsgBox "税込価格: " & taxPrice
End Sub

Visual Basic Editor（VBE）では、「編集」ツールバーの「コメントブロック」ボタンで選択した複数行を一度にコメントアウトできます。ツールバーが表示されていない場合は「表示」→「ツールバー」→「編集」から追加できます。

📚 用語解説

Remコマンド：「Remark（注釈）」の略。VBAの前身であるBASIC言語から引き継がれたコメント記法。現在のVBAでは主にシングルクォートが使われるが、Remも引き続き有効。

Rem これはRemコマンドを使ったコメントです
Rem 変数の宣言セクション

Sub RemSample()
    Rem サブルーチン開始
    Dim total As Long
    total = 0
    Rem ここで合計を計算する
    total = 100 + 200
    MsgBox "合計: " & total
End Sub

シングルクォートと異なり、Remはコードと同じ行の末尾（インライン）には使えません。「price = 1000 Rem 単価」とすると構文エラーになります。Remは必ず行の先頭に置く必要があります。ただし、コロン区切りの複文では「price = 1000 : Rem 単価」という形でインライン的に使うことが可能です。

📚 用語解説

コメントブロック：VBEの編集ツールバーに用意されている機能。選択した複数行をまとめてコメントアウト（またはコメント解除）できる。VBAには他言語のような /* */ ブロックコメント構文はない。

Sub BeforeComment()
    Dim x As Long
    x = 100
    MsgBox x
End Sub

' ↓ 複数行コメントアウト後 ↓

Sub AfterComment()
    ' Dim x As Long
    ' x = 100
    ' MsgBox x
End Sub

VBEの「置換」機能（Ctrl+H）で行頭の「^」を「' 」に置換することでも一括コメントアウトが可能です。ただし正規表現のサポートが限定的なため、ツールバーのコメントブロック機能が最も確実です。

Sub InlineSample()
    Dim price As Long         ' 商品単価（税抜、円）
    Dim qty   As Integer      ' 注文数量（個）
    Dim rate  As Double       ' 消費税率（0.1 = 10%）

    price = 1000              ' 単価：1,000円固定（2026年7月時点）
    qty   = 5                 ' デフォルト注文数
    rate  = 0.1               ' 消費税率10%

    Dim subtotal As Long
    subtotal = price * qty    ' 小計（税抜）

    Dim tax As Long
    tax = subtotal * rate     ' 消費税額

    Dim total As Long
    total = subtotal + tax    ' 税込合計

    MsgBox "税込合計: " & total & "円"
End Sub

「price = 1000 'priceに1000を代入する」のような自明なコメントは不要です。コードを読めばわかることを繰り返すだけのコメントは、むしろコードを読みにくくします。「なぜその値か」「どんな条件か」「どこから来た値か」など、コードだけでは伝わらない情報を補うコメントに絞りましょう。

📚 用語解説

AddComment：Excelのセルオブジェクト（Rangeオブジェクト）に対してコメント（セルメモ）を追加するメソッド。VBAコードのコメントアウトとは全く別の機能で、ユーザーがExcelシートのセルにマウスを当てたときに表示される吹き出しを追加する。

Sub AddCellComment()
    ' A1セルにコメントを追加する
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 既存コメントがある場合は先に削除（エラー防止）
    If Not ws.Range("A1").Comment Is Nothing Then
        ws.Range("A1").Comment.Delete
    End If

    ' AddCommentでコメントを追加
    ws.Range("A1").AddComment "これは単価の入力欄です。税抜価格を入力してください。"

    ' コメントを常時表示する
    ws.Range("A1").Comment.Visible = True

    MsgBox "A1セルにコメントを追加しました"
End Sub

Sub ManageCellComments()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' ===== コメントの編集（テキスト変更）=====
    If Not ws.Range("A1").Comment Is Nothing Then
        ' 既存コメントのテキストを書き換える
        ws.Range("A1").Comment.Text "更新済み：2026年7月時点の単価"
    End If

    ' ===== コメントの非表示化 =====
    ws.Range("A1").Comment.Visible = False

    ' ===== コメントの削除（1セル）=====
    If Not ws.Range("B1").Comment Is Nothing Then
        ws.Range("B1").Comment.Delete
    End If

    ' ===== シート全体のコメント一括削除 =====
    ws.Cells.ClearComments

    MsgBox "コメント管理処理が完了しました"
End Sub

Sub ShowAllComments()
    ' シート内の全コメントを一括表示する
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    Dim cmt As Comment
    For Each cmt In ws.Comments
        cmt.Visible = True
    Next cmt

    MsgBox "全コメントを表示しました（" & ws.Comments.Count & "件）"
End Sub

AddCommentはコメントが存在しないセルに新規追加するメソッドです。すでにコメントがあるセルにAddCommentを呼ぶとエラーになります。既存コメントを書き換えたい場合はComment.Textプロパティを使います。どちらを使うか前に「If Not Range.Comment Is Nothing Then」で存在チェックをするのが安全です。

Sub SafeAddOrUpdateComment()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim targetCell As Range
    Set targetCell = ws.Range("C1")

    ' コメントが存在するか確認してから追加 or 更新
    If targetCell.Comment Is Nothing Then
        ' コメントなし → 新規追加
        targetCell.AddComment "新しいコメント"
    Else
        ' コメントあり → テキスト更新
        targetCell.Comment.Text "更新されたコメント"
    End If
End Sub

📚 用語解説

デバッグ：プログラムのバグ（不具合）を発見して修正する作業。VBAでは「コードの一部をコメントアウトして一時的に無効化し、どこで問題が起きているかを絞り込む」手法が広く使われる。

Sub DebugSample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' ===== デバッグ中：Step1の処理を確認 =====
    Debug.Print "Step1開始"
    ws.Range("A1").Value = 100

    ' Step2をコメントアウトして一時的に無効化（エラーの原因を切り分け）
    ' ws.Range("B1").Value = ws.Range("A1").Value / 0  ' ← ゼロ除算エラーが出ていた箇所

    Debug.Print "Step2スキップ"

    ' Step3はそのまま実行
    ws.Range("C1").Value = ws.Range("A1").Value * 1.1
    Debug.Print "Step3完了: " & ws.Range("C1").Value

    MsgBox "デバッグ完了"
End Sub

「' TODO: この処理は後で最適化する」「' FIXME: ゼロ除算の可能性あり」のように、特定のキーワードをコメントに使うと、後から検索（Ctrl+F）で一覧できます。チームで作業する場合は、このような規約を決めておくと引き継ぎがスムーズです。

' =============================================
' プロシージャ名: CalcTaxPrice
' 機能        : 商品の税込み価格を計算して返す
' 引数        : price  - 税抜き単価（Long型、円）
'               qty    - 数量（Integer型）
'               taxRate - 消費税率（Double型、例: 0.1）
' 戻り値      : 税込み合計額（Long型、円）
' 更新履歴    : 2026-07-18 菅澤 新規作成
' =============================================
Function CalcTaxPrice(price As Long, qty As Integer, taxRate As Double) As Long
    ' 税抜き小計 = 単価 × 数量
    Dim subtotal As Long
    subtotal = price * qty

    ' 消費税額を計算（小数点以下切り捨て）
    Dim tax As Long
    tax = CLng(subtotal * taxRate)  ' CLng で四捨五入→Long変換

    ' TODO: 端数処理を仕様書に合わせて切り捨て/切り上げに変更する
    CalcTaxPrice = subtotal + tax
End Function

' ===== Claude Codeに依頼するプロンプト例 =====

' 依頼文:
' 「以下のVBAコードに日本語コメントを追加してください。
'  - プロシージャ先頭に機能・引数・戻り値のサマリを書く
'  - 各変数の意味と型の補足を書く
'  - 複雑な処理には「なぜそうしているか」の説明を付ける
'  - 改善すべき箇所はTODOコメントで指摘する」

' ===== Claude Codeが生成したコメント付きコード例 =====
' =============================================
' プロシージャ名: FilterAndExport
' 機能        : 受注データから条件に合う行を抽出し別シートへコピー
' 引数        : targetDate - 抽出対象の日付（Date型）
' 更新履歴    : 2026-07-18 自動生成（Claude Code）
' =============================================
Sub FilterAndExport(targetDate As Date)
    ' 受注データシートと出力先シートを変数に格納
    Dim srcWs  As Worksheet  ' 受注データの元シート
    Dim dstWs  As Worksheet  ' 抽出結果の出力先シート
    Set srcWs = ThisWorkbook.Sheets("受注データ")
    Set dstWs = ThisWorkbook.Sheets("抽出結果")

    ' 出力先シートの既存データを全消去（毎回クリーンな状態にする）
    dstWs.Cells.ClearContents

    ' 最終行を取得（受注データは1行目がヘッダー、2行目以降がデータ）
    Dim lastRow As Long
    lastRow = srcWs.Cells(srcWs.Rows.Count, 1).End(xlUp).Row

    ' コピー先の貼り付け行（ヘッダー行をスキップして2行目から）
    Dim dstRow As Long
    dstRow = 2

    ' ヘッダー行をコピー
    srcWs.Rows(1).Copy Destination:=dstWs.Rows(1)

    ' TODO: 大量データ（10000件超）では処理が遅くなる。Autofilterへの変更を検討
    Dim i As Long
    For i = 2 To lastRow
        ' A列の日付が targetDate と一致する行のみ抽出
        If CDate(srcWs.Cells(i, 1).Value) = targetDate Then
            srcWs.Rows(i).Copy Destination:=dstWs.Rows(dstRow)
            dstRow = dstRow + 1
        End If
    Next i

    MsgBox "抽出完了: " & (dstRow - 2) & "件"
End Sub

コメント生成以外にも、エラー原因の特定・修正提案、リファクタリング（処理の整理）、VBAコードのExplain（処理の日本語解説）、セキュリティ上の問題指摘など、幅広い場面で使えます。「VBAを書ける上司がいる」感覚でAI活用を始めてみてください。

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？