ツールの使い方を聞く

Excelでデータチェックのマクロを構築する「最短ルート」をご案内します。

今回は、最も一般的で応用が利きやすい「指定した範囲（例：A列）の空欄をチェックして黄色く塗りつぶし、最後に件数を通知する」マクロを例に、最短ステップで解説します。

爆速3ステップ：データチェックマクロの作成手順

ステップ1：VBAエディタを開く

1. Excelを開いた状態で、キーボードの Alt + F11 を同時に押します。
   • （Macの場合は Option + F11）
2. VBAの開発画面（VBE）が立ち上がります。

ステップ2：モジュールを追加してコードを貼る

1. 画面上部のメニューから 挿入 ＞ 標準モジュール をクリックします。
2. 白い編集画面（コードウィンドウ）が表示されるので、以下のコードをそのままコピー＆ペーストします。

VBA

Sub DataCheck()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim errorCount As Long
    
    ' 対象のシートを指定（ここではアクティブなシート）
    Set ws = ActiveSheet
    errorCount = 0
    
    ' A列の最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 2行目から最終行までループ処理（1行目は見出しを想定）
    For i = 2 To lastRow
        ' 例：A列が空欄かどうかをチェック
        If ws.Cells(i, 1).Value = "" Then
            ' 空欄ならセルを黄色に塗る
            ws.Cells(i, 1).InnerColor = RGB(255, 255, 0)
            errorCount = errorCount + 1
        Else
            ' 背景色をなしに戻す（再チェック用）
            ws.Cells(i, 1).Interior.ColorIndex = xlNone
        End If
    Next i
    
    ' 結果をポップアップ表示
    If errorCount > 0 Then
        MsgBox "チェック完了： " & errorCount & " 件の空欄が見つかりました。", vbExclamation, "データチェック"
    Else
        MsgBox "チェック完了： エラーはありませんでした。", vbInformation, "データチェック"
    End If
End Sub

(※コード内の InnerColor に誤りがあれば Interior.Color に修正してください。標準的なプロパティは Interior.Color です) 正しくは以下です：

VBA

ws.Cells(i, 1).Interior.Color = RGB(255, 255, 0)

ステップ3：マクロを実行する

1. キーボードの F5 を押す（または画面上部の再生ボタン「緑の三角」をクリックする）と、その場でマクロが実行されます。
2. Excelの画面に戻りたいときは、右上の「×」でVBA画面を閉じてOKです。

2回目以降、簡単に実行する方法

毎回エディタを開くのは手動の手間がかかるため、Excelシート上に「実行ボタン」を作っておくのがおすすめです。

1. 挿入 タブ ＞ 図形 から好きな図形（四角形など）をシート上に配置します。
2. 作成した図形を右クリックし、マクロの登録 を選択します。
3. 先ほど作った DataCheck を選択して OK を押します。

これで、次からはそのボタンをクリックするだけで一瞬でデータチェックが走るようになります。

⚠️ 重要：保存時の注意 マクロを含んだブックを保存する際は、通常の .xlsx ではなく、必ず Excel マクロ有効ブック (*.xlsm) 形式で保存してください（そうしないとマクロが消えてしまいます）。