マクロで爆弾処理職人！Excelでマインスイーパー完全再現

---

---

この記事ではマクロ（VBA）を使用します。
マクロ初挑戦の方はこちらの記事からスタートすることをお勧めします。
Excelのマクロ初期設定ガイド

---

---

---

---

1.　画面・シートの説明

---

---

🎯2. 爆弾マップの作製

---

🔹爆弾の配置マクロ

指定された爆弾数をランダムな位置に配置するマクロです。
爆弾は ● という文字で表示され、重複しないように Collection を使って管理しています。

Sub 爆弾をランダムに配置する()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("爆弾マップ")
    
    Dim usedCells As Collection
    Set usedCells = New Collection
    
    Dim row As Integer, col As Integer
    Dim cellKey As String

    ' 爆弾エリアのクリア
    ws.Range(ws.Cells(3, 3), ws.Cells(2 + MAP_SIZE, 2 + MAP_SIZE)).ClearContents

    ' 爆弾配置ループ
    Do While usedCells.Count < bombCount
        row = Int(MAP_SIZE * Rnd) + 3
        col = Int(MAP_SIZE * Rnd) + 3
        cellKey = row & "_" & col
        
        On Error Resume Next
        usedCells.Add cellKey, cellKey
        If Err.Number = 0 Then
            ws.Cells(row, col).Value = "●"
        End If
        Err.Clear
        On Error GoTo 0
    Loop

    MsgBox bombCount & "個の爆弾を配置したで！", vbInformation
End Sub

---

🔹難易度選択マクロ（初級・中級・上級）

難易度によって爆弾の数を変えるマクロです。
それぞれ、爆弾数を設定し、爆弾配置と数値の設定を呼び出します。

🟢初級スタート（爆弾40個）

Sub 初級スタート()
    bombCount = 40
    Dim wsPlay As Worksheet
    Set wsPlay = ThisWorkbook.Sheets("マインスイーパー")

    ' 表示リセット＋情報表示
    wsPlay.Range("C25").Value = "初級"
    wsPlay.Range("I26").Value = bombCount
    wsPlay.Range("M25").Value = bombCount

    With wsPlay.Range(wsPlay.Cells(3, 3), wsPlay.Cells(2 + MAP_SIZE, 2 + MAP_SIZE))
        .Interior.Color = RGB(180, 180, 180)
        .Font.Color = RGB(0, 0, 0)
        .Value = ""
    End With

    Call 爆弾をランダムに配置する
    Call 地雷の周囲に数字を表示する
End Sub

🟡中級（爆弾60個）と🔴上級（爆弾99個）も bombCount 以外は同様の構成です。

---

🔹数字の配置マクロ

爆弾 ● を中心に、周囲8マスに数字を割り振っていく処理です。
数値の加算と空白セルへの 0 補完も入れています。

Sub 地雷の周囲に数字を表示する()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("爆弾マップ")
    
    Dim r As Long, c As Long
    Dim rr As Long, cc As Long

    ' 爆弾以外をクリア
    For r = 3 To 2 + MAP_SIZE
        For c = 3 To 2 + MAP_SIZE
            If ws.Cells(r, c).Value <> "●" Then
                ws.Cells(r, c).Value = ""
            End If
        Next c
    Next r

    ' 数字加算
    For r = 3 To 2 + MAP_SIZE
        For c = 3 To 2 + MAP_SIZE
            If ws.Cells(r, c).Value = "●" Then
                For rr = -1 To 1
                    For cc = -1 To 1
                        If Not (rr = 0 And cc = 0) Then
                            If r + rr >= 3 And r + rr <= 2 + MAP_SIZE _
                               And c + cc >= 3 And c + cc <= 2 + MAP_SIZE Then
                                With ws.Cells(r + rr, c + cc)
                                    If .Value <> "●" Then
                                        If IsNumeric(.Value) Then
                                            .Value = .Value + 1
                                        Else
                                            .Value = 1
                                        End If
                                    End If
                                End With
                            End If
                        End If
                    Next cc
                Next rr
            End If
        Next c
    Next r

    ' 空白セルを 0 に
    For r = 3 To 2 + MAP_SIZE
        For c = 3 To 2 + MAP_SIZE
            If ws.Cells(r, c).Value = "" Then
                ws.Cells(r, c).Value = 0
            End If
        Next c
    Next r

    MsgBox "数字配置も完了したで！", vbInformation
End Sub

---

---

---

🧷マクロ全体の共通設定（Module1の先頭）

以下は他のマクロが動くために必須の共通変数・定数です。
必ず Module1 の一番上に記述してください！

---

🔧共通設定マクロ

Public フラグモード中 As Boolean

' ===== 共通設定（変更OK） =====
Public Const MAP_SIZE As Integer = 20 ' マップのサイズ（20×20）
Public bombCount As Integer           ' 爆弾の数（難易度ボタンで設定）

---

💡補足

• MAP_SIZE を変更すれば盤面サイズも柔軟に変えられるように設計されています。
• bombCount は難易度別マクロ（初級・中級・上級）で都度上書きされます。
• フラグモード中 はON/OFFの切替状態を保持するフラグです。

---

---

---

---

---

---

---

---

---

---

---

---

✅では続きまして…【3. セルの開示マクロ】発進ッ！！

---

🟦 セルを開示するマクロ（再帰処理付き）

---

Sub セルを開示する(wsPlay As Worksheet, wsMap As Worksheet, r As Long, c As Long, opened As Object)
    Dim key As String
    key = r & "_" & c
    
    If opened.Exists(key) Then Exit Sub
    opened.Add key, True
    
    Dim val As Variant
    val = wsMap.Cells(r, c).Value

    ' 表示処理
    If val = 0 Then
        wsPlay.Cells(r, c).Value = 0
        wsPlay.Cells(r, c).Interior.Color = RGB(240, 240, 240)
        wsPlay.Cells(r, c).Font.Color = RGB(240, 240, 240) ' 数字0は背景と同化
    Else
        wsPlay.Cells(r, c).Value = val
        wsPlay.Cells(r, c).Interior.Color = RGB(200, 200, 200)
    End If

    ' 再帰的に周囲も開示（0のときだけ）
    If val = "" Or val = 0 Then
        Dim dr As Long, dc As Long
        For dr = -1 To 1
            For dc = -1 To 1
                If Not (dr = 0 And dc = 0) Then
                    If r + dr >= 3 And r + dr <= 2 + MAP_SIZE And _
                       c + dc >= 3 And c + dc <= 2 + MAP_SIZE Then
                        Call セルを開示する(wsPlay, wsMap, r + dr, c + dc, opened)
                    End If
                End If
            Next dc
        Next dr
    End If
End Sub

---

💡ポイント解説

• opened は Dictionary 型で無限ループ防止に使用。
• "0"のセルは Font.Color = 背景色 にして見えないよう演出。
• 広がる処理は「再帰」で実現（周囲8マスを自動で開示）。

---

🎮 セル開示の仕組みを支えるのがこの子！

---

---

---

🎯4. フラグ設置マクロ（ON/OFF切替・残り本数）

---

🔧フラグモード切り替えマクロ

「旗モード」ボタンに割り当てるマクロ👇

Sub フラグモードを切り替える()
    フラグモード中 = Not フラグモード中

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("マインスイーパー")

    With ws.Range("X5")
        If フラグモード中 Then
            .Interior.Color = RGB(255, 100, 100) ' ON → 赤
        Else
            .Interior.ColorIndex = xlNone         ' OFF → 無色
        End If
    End With

    With ws.Range("Y5")
        If フラグモード中 Then
            .Interior.ColorIndex = xlNone
        Else
            .Interior.Color = RGB(180, 180, 255)  ' 青でOFF表示
        End If
    End With
End Sub

---

---

---

---

---

---

✅では行くぞッ！！【5. リセットするマクロ（旗数もリセット）】

🔁 マインスイーパー初期化マクロ

このマクロはゲーム中にリセットボタンを押したとき、
盤面の内容・背景・文字色・旗数すべてをリセットします！

Sub マインスイーパー初期化()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("マインスイーパー")

    ' セル初期化（20×20）
    With ws.Range(ws.Cells(3, 3), ws.Cells(2 + MAP_SIZE, 2 + MAP_SIZE))
        .Value = ""
        .Interior.Color = RGB(180, 180, 180) ' 薄グレー（未開示状態）
        .Font.Color = RGB(0, 0, 0)
    End With

    ' 残り旗数を爆弾数でリセット
    If ws.Range("I26").Value = "" Then
        ws.Range("M25").Value = ""
    Else
        ws.Range("M25").Value = CLng(ws.Range("I26").Value)
    End If

    MsgBox "初期化したで！またいつでも爆弾処理出動できるで！", vbInformation
End Sub

---

💡ポイント解説

項目	説明
.Value = ""	盤面を全部空白に戻す
.Interior.Color	背景色を未開示の灰色に戻す
M25 = I26	爆弾数と同じ旗数に戻す（空欄対策つき）

---

🧠注意点

• このマクロも Module1 に書くこと！
• 実際のセル開示処理などはまだ発動しないよ！（それはSelectionChangeイベントで）

🧭 次は…【6. 勝利判定マクロ】！！

---

---

---

---

🔔【6. 勝利判定マクロ】発動！！

---

• すべての安全なマスを開いたときに勝利と認定
• 残っている爆弾マスには祝福の★マーク
• 成功の証にメッセージボックスで鐘が鳴る！

---

🏆 勝利判定のコード（Module1に貼り付け）

Sub 勝利判定(wsPlay As Worksheet, wsMap As Worksheet)
    Dim r As Long, c As Long
    Dim 全マス数 As Long: 全マス数 = 0
    Dim 開示済数 As Long: 開示済数 = 0

    For r = 3 To 2 + MAP_SIZE
        For c = 3 To 2 + MAP_SIZE
            Dim isBomb As Boolean
            isBomb = (wsMap.Cells(r, c).Value = "●")

            With wsPlay.Cells(r, c)
                If Not isBomb Then
                    全マス数 = 全マス数 + 1
                    If .Interior.Color = RGB(200, 200, 200) Or _
                       .Interior.Color = RGB(240, 240, 240) Then
                        開示済数 = 開示済数 + 1
                    End If
                End If
            End With
        Next c
    Next r

    If 開示済数 = 全マス数 Then
        MsgBox "★ おめでとう！すべての爆弾を回避したで！！", vbInformation

        ' 祝福の★で爆弾マスを表示！
        For r = 3 To 2 + MAP_SIZE
            For c = 3 To 2 + MAP_SIZE
                If wsMap.Cells(r, c).Value = "●" Then
                    With wsPlay.Cells(r, c)
                        .Value = "★"
                        .Interior.Color = RGB(200, 255, 200)
                    End With
                End If
            Next c
        Next r
    End If
End Sub

---

🎯発動タイミング

このマクロは、セル開示後に自動的に呼び出されます！
（SelectionChangeイベント内の Call 勝利判定(Me, wsMap)）

---

🧠補足ポイント

• "F" のフラグが残っていても問題なし（安全マス開示が条件）
• 背景色で開示済みかをチェックしてるのがExcelらしくて◎
• .Value = "★" と .Interior.Color = RGB(200,255,200) で祝福感UP✨

---

---

---

---

💥【補足】爆弾を踏んだら全て開示するマクロ

爆弾をクリックした時、「●」だけじゃなく周囲の数字や空白も含めて
ぜんぶ見える化 + 爆発セルは赤で「★」演出！

---

🔧 全て開示するマクロ（Module1に入れてね）

Sub 全て開示する(wsPlay As Worksheet, wsMap As Worksheet, 爆発行 As Long, 爆発列 As Long)
    Dim r As Long, c As Long
    For r = 3 To 2 + MAP_SIZE
        For c = 3 To 2 + MAP_SIZE
            Dim val As Variant
            val = wsMap.Cells(r, c).Value

            With wsPlay.Cells(r, c)
                If r = 爆発行 And c = 爆発列 Then
                    .Value = "★"
                    .Interior.Color = RGB(255, 0, 0) ' 真っ赤な爆発セル！
                ElseIf val = "●" Then
                    .Value = "●"
                    .Interior.Color = RGB(255, 200, 200) ' 他の爆弾は薄赤
                ElseIf val = "" Or val = 0 Then
                    .Value = val
                    .Interior.Color = RGB(240, 240, 240)
                    .Font.Color = RGB(240, 240, 240) ' 0は見えなく
                Else
                    .Value = val
                    .Interior.Color = RGB(200, 200, 200)
                End If
            End With
        Next c
    Next r
End Sub

---

💡ポイント解説

条件	処理
爆発セル	"★" ＋ 赤背景（RGB(255,0,0)）
その他の爆弾	"●" ＋ 薄赤背景
空白・0	グレー＆見えない文字
数字	値そのまま＋背景色

---

---

---

🧩【7. イベントでの連携処理】

～プレイヤー操作とマクロのリンク～

---

🧠 目的

このコードを**シート「マインスイーパー」**のシートモジュールに仕掛けることで…

プレイヤーが	こうなる
セルをクリックすると	爆弾かチェックされ、通常マスなら開示
旗モードなら	フラグがON/OFFされて旗数も更新
通常モードで爆弾を踏むと	ドカン！爆発して即ゲームオーバー
通常モードでマスを開くと	自動で勝利判定もチェック

---

🔥 シートモジュールに貼るコード（SelectionChange）

👇これは「マインスイーパー」シートのコードウィンドウに貼り付け！

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("C3:V22")) Is Nothing Then Exit Sub

    Dim r As Long, c As Long
    r = Target.Row
    c = Target.Column

    ' すでに開示済みのマスならスルー
    If Cells(r, c).Interior.Color = RGB(200, 200, 200) Or _
       Cells(r, c).Interior.Color = RGB(240, 240, 240) Then Exit Sub

    ' フラグモード中なら旗のON/OFF
    If フラグモード中 Then
        With Cells(r, c)
            If .Value = "F" Then
                .Value = ""
                .Interior.Color = RGB(180, 180, 180)
                Me.Range("M25").Value = Me.Range("M25").Value + 1
            Else
                .Value = "F"
                .Interior.Color = RGB(255, 100, 100)
                Me.Range("M25").Value = Me.Range("M25").Value - 1
            End If
        End With
        Exit Sub
    End If

    ' 爆弾チェック
    Dim wsMap As Worksheet
    Set wsMap = ThisWorkbook.Sheets("爆弾マップ")

    If wsMap.Cells(r, c).Value = "●" Then
        Call 全て開示する(Me, wsMap, r, c)
        MsgBox "ドカーン！爆発してもうた…ゲームオーバーや！", vbCritical
        Exit Sub
    End If

    ' セル開示＆勝利判定
    Dim opened As Object
    Set opened = CreateObject("Scripting.Dictionary")
    Call セルを開示する(Me, wsMap, r, c, opened)
    Call 勝利判定(Me, wsMap)
End Sub

---

🪛 注意ポイント

• 標準モジュール（Module1）じゃなくシートモジュールに貼る！
  • Excel左ペインで Sheet1(マインスイーパー) をダブルクリックして貼り付け！
• C3:V22 の20×20マスだけを対象として反応するように制御。

---

✅ このイベントが全ての起点！

タイミング	実行される処理
フラグモードON	Fの設置/解除・旗数の加減
フラグモードOFF + 通常マス	セル開示 & 再帰処理 & 勝利判定
爆弾をクリック	全開示 & 爆発演出 & ゲームオーバー表示

---

---

---

---

📘 【8. Excelマインスイーパー操作説明書】

---

🔰 基本の遊び方

1. 「初級・中級・上級」ボタンを押してゲームスタート
   　→ 難易度に応じた爆弾数が「爆弾マップ」にランダム配置されます
2. マス目（C3:V22）をクリックしていく
   　→ 周囲の爆弾数が自動表示され、空白なら連鎖開示！
3. 爆弾を踏んだらゲームオーバー！
   　→ ドカーン💥爆発して、盤面すべてが開示されます

---

🚩 フラグ（旗）モードの使い方

• 旗モードボタンを押すとON/OFFが切り替わります
  　→ 画面右上の「ON（赤）/OFF（青）」で視覚的に確認！
• **旗モード中にマスをクリックすると「F」**を設置/解除できます
  　→ M25セルの旗残数が自動で増減します

---

🔁 リセットボタン

• 現在のゲーム状態を初期化します
  • マスをすべて空白＋灰色に戻す
  • 残り旗数もリセット
  • 爆弾マップの内容はそのまま

---

🏆 勝利条件

• 爆弾以外のすべてのマスを開いたら勝利！
  　→ 「★ おめでとう！すべての爆弾を回避したで！！」のメッセージが表示
  　→ 残っていた爆弾マスは「★」で祝福される✨

---

---

🕹️【9. Excelマインスイーパー実遊】

---

---

---

---

---

🎉 任務完了！Excel爆弾処理職人、お見事でした！ 💣

---

---

😭 おまけ（NG集）

NG.1　スタック領域の不足

---

---

NG.2　フラッグで爆破問題

---

NG.3　勝利判定が出ない！

---

---

---

NG.4　歓喜のあまりバグってしまったジッピー

この後、延々と「～～～～」が止まらない現象が起きた・・・

---