Excelで遊べる『素数当てゲーム』を作ろう！

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

① ゲームの概要を考える

---

② シート構成と準備

📌 素数リスト作成用VBA

Sub 素数リスト作成()
    Dim ws As Worksheet
    Dim num As Long, rowNum As Long
    Dim isPrime As Boolean
    
    ' シートを指定（"素数"シートがある前提）
    Set ws = ThisWorkbook.Sheets("素数")
    
    ' クリア（念のため）
    ws.Range("A2:A10000").Clear
    
    rowNum = 2 ' A2から開始
    
    ' 2から10000までの素数を判定して書き込む
    For num = 2 To 10000
        isPrime = True
        ' 素数判定（2以外の偶数は除外）
        If num > 2 And num Mod 2 = 0 Then
            isPrime = False
        Else
            ' 3以上の奇数をチェック
            Dim i As Long
            For i = 3 To Sqr(num) Step 2
                If num Mod i = 0 Then
                    isPrime = False
                    Exit For
                End If
            Next i
        End If
        ' 素数ならシートに書き込み
        If isPrime Then
            ws.Cells(rowNum, 1).Value = num
            rowNum = rowNum + 1
        End If
    Next num
    
    MsgBox "素数リストの作成が完了しました！", vbInformation
End Sub

✅ このVBAの動き

1. 「素数」シートのA2から10000までをクリア（念のため）
2. 2～10000の素数を判定してA列に書き込む
3. 処理が終わったらメッセージを表示

---

📌 設定する計算式（数式）

それぞれの列の3行目に以下の式を入れて、そのまま下にオートフィルすればOK！

A列（初級：2～100までの奇数）

=IF(A2+2>100,"",A2+2)

（A2に1を入れておく）

B列（中級：300～500までの奇数）

=IF(B2+2>500,"",B2+2)

（B2に299を入れておく）

C列（上級：1000～3000までの奇数）

=IF(C2+2>3000,"",C2+2)

（C2に999を入れておく）

D列（神級：5000～10000までの奇数）

=IF(D2+2>10000,"",D2+2)

（D2に4999を入れておく）

---

📢 使い方

1. 各列の2行目に初期値（1, 299, 999, 4999）を入れる
2. 3行目に上の数式を入れる
3. 下方向にオートフィルする
4. 空白が出たらストップ！

---

---

③ ゲームの基礎機能をVBAで作成

📌 ゲームレベルを切り替えるVBA

「標準モジュール（Module1）」に次のコードを追加してね！

Sub 初級を選択()
    Range("H3").Value = "初級"
End Sub

Sub 中級を選択()
    Range("H3").Value = "中級"
End Sub

Sub 上級を選択()
    Range("H3").Value = "上級"
End Sub

Sub 神級を選択()
    Range("H3").Value = "神級"
End Sub

---

📢 コマンドボタンにVBAを登録

1. Excelの開発タブから「デザインモード」をONにする
2. 各コマンドボタンを右クリック → 「マクロの登録」
3. 対応するマクロを割り当てる
   • コマンドボタン1 → 初級を選択
   • コマンドボタン2 → 中級を選択
   • コマンドボタン3 → 上級を選択
   • コマンドボタン4 → 神級を選択
4. デザインモードをOFFにして動作確認！

---

✅ これでできること

• コマンドボタンを押すと、H3セルに「初級」「中級」「上級」「神級」と表示！
• ゲームスタート時にH3セルを参照して、レベルごとに出題範囲を決められるようになる！

---

---

📌 スタートボタンでランダム出題するVBA

Sub ゲームスタート()
    Dim ws As Worksheet
    Dim level As String
    Dim rng As Range
    Dim rowCount As Integer
    Dim randomRow As Integer
    
    ' 「整数」シートをセット
    Set ws = ThisWorkbook.Sheets("整数")
    
    ' H3のゲームレベルを取得
    level = Range("H3").Value
    
    ' ゲームレベルに応じて出題範囲を決定
    Select Case level
        Case "初級"
            Set rng = ws.Range("A3:A51")
        Case "中級"
            Set rng = ws.Range("B3:B102")
        Case "上級"
            Set rng = ws.Range("C3:C1002")
        Case "神級"
            Set rng = ws.Range("D3:D2502")
        Case Else
            MsgBox "ゲームレベルが選択されていません！", vbExclamation
            Exit Sub
    End Select

    ' 出題範囲の行数を取得
    rowCount = rng.Rows.Count

    ' ランダムで1つ選ぶ
    Randomize
    randomRow = Int((rowCount) * Rnd + 1)

    ' 出題セル（B5）にランダムな整数を表示
    Range("B5").Value = rng.Cells(randomRow, 1).Value
End Sub

---

📢 コマンドボタン5にVBAを登録

1. 開発タブ → デザインモードON
2. 「ゲームスタート」ボタンを右クリック → マクロの登録
3. マクロ一覧から「ゲームスタート」を選択してOK
4. デザインモードをOFFにしてテスト！

---

✅ これでできること

• H3セルの値を確認
• 対応する整数シートの範囲（A列～D列）からランダムに1つ選ぶ
• B5セルにその値を表示！
• もしH3が未設定なら警告を出す

---

④素数判定機能を作ろう！

📌 素数判定VBA

Sub 素数判定_正解()
    Dim wsSosu As Worksheet
    Dim wsGame As Worksheet
    Dim num As Double
    Dim rng As Range
    Dim found As Range
    
    ' シートをセット
    Set wsSosu = ThisWorkbook.Sheets("素数")
    Set wsGame = ThisWorkbook.Sheets("素数当てゲーム")
    
    ' B5の出題セルの値を取得
    num = wsGame.Range("B5").Value
    
    ' 素数シートのA2:A1230の範囲を検索
    Set rng = wsSosu.Range("A2:A1230")
    Set found = rng.Find(What:=num, LookAt:=xlWhole)
    
    ' 判定処理
    If Not found Is Nothing Then
        ' B5の値が素数 → 正解（C22に〇）、不正解（C23に×）
        wsGame.Range("C22").Value = "〇"
        wsGame.Range("C23").Value = ""
    Else
        ' B5の値が素数でない → 不正解（C23に×）、正解（C22に〇）
        wsGame.Range("C22").Value = ""
        wsGame.Range("C23").Value = "×"
    End If
End Sub

Sub 素数判定_不正解()
    Dim wsSosu As Worksheet
    Dim wsGame As Worksheet
    Dim num As Double
    Dim rng As Range
    Dim found As Range
    
    ' シートをセット
    Set wsSosu = ThisWorkbook.Sheets("素数")
    Set wsGame = ThisWorkbook.Sheets("素数当てゲーム")
    
    ' B5の出題セルの値を取得
    num = wsGame.Range("B5").Value
    
    ' 素数シートのA2:A1230の範囲を検索
    Set rng = wsSosu.Range("A2:A1230")
    Set found = rng.Find(What:=num, LookAt:=xlWhole)
    
    ' 判定処理
    If Not found Is Nothing Then
        ' B5の値が素数 → 不正解（C23に×）、正解（C22に〇）
        wsGame.Range("C22").Value = ""
        wsGame.Range("C23").Value = "×"
    Else
        ' B5の値が素数でない → 正解（C22に〇）、不正解（C23に×）
        wsGame.Range("C22").Value = "〇"
        wsGame.Range("C23").Value = ""
    End If
End Sub

---

📢 コマンドボタンにVBAを登録

1. 「素数です！」ボタン（コマンドボタン6）に「素数判定_正解」を登録
2. 「ちがいます！」ボタン（コマンドボタン7）に「素数判定_不正解」を登録

---

✅ これでできること

• B5の数が「素数」シートにあれば、「素数です！」ボタンで正解、逆だと不正解
• B5の数が素数でなければ、「ちがいます！」ボタンで正解、逆だと不正解
• C22に〇、C23に×が自動でセットされる！

---

---

---

📌 改良版 素数判定VBA

Sub 素数判定_正解()
    Dim wsSosu As Worksheet
    Dim wsGame As Worksheet
    Dim num As Double
    Dim rng As Range
    Dim found As Range
    
    ' シートをセット
    Set wsSosu = ThisWorkbook.Sheets("素数")
    Set wsGame = ThisWorkbook.Sheets("素数当てゲーム")
    
    ' B5の出題セルの値を取得
    num = wsGame.Range("B5").Value
    
    ' 素数シートのA2:A1230の範囲を検索
    Set rng = wsSosu.Range("A2:A1230")
    Set found = rng.Find(What:=num, LookAt:=xlWhole)
    
    ' 判定処理
    If Not found Is Nothing Then
        ' B5の値が素数 → 正解
        wsGame.Range("C22").Value = "〇"
        wsGame.Range("C23").Value = ""
        MsgBox "正解です！", vbInformation
    Else
        ' B5の値が素数でない → 不正解
        wsGame.Range("C22").Value = ""
        wsGame.Range("C23").Value = "×"
        MsgBox "不正解です。", vbExclamation
    End If
    
    ' 次の問題を出題
    Call 次の問題を出題
    
End Sub

Sub 素数判定_不正解()
    Dim wsSosu As Worksheet
    Dim wsGame As Worksheet
    Dim num As Double
    Dim rng As Range
    Dim found As Range
    
    ' シートをセット
    Set wsSosu = ThisWorkbook.Sheets("素数")
    Set wsGame = ThisWorkbook.Sheets("素数当てゲーム")
    
    ' B5の出題セルの値を取得
    num = wsGame.Range("B5").Value
    
    ' 素数シートのA2:A1230の範囲を検索
    Set rng = wsSosu.Range("A2:A1230")
    Set found = rng.Find(What:=num, LookAt:=xlWhole)
    
    ' 判定処理
    If Not found Is Nothing Then
        ' B5の値が素数 → 不正解
        wsGame.Range("C22").Value = ""
        wsGame.Range("C23").Value = "×"
        MsgBox "不正解です。", vbExclamation
    Else
        ' B5の値が素数でない → 正解
        wsGame.Range("C22").Value = "〇"
        wsGame.Range("C23").Value = ""
        MsgBox "正解です！", vbInformation
    End If
    
    ' 次の問題を出題
    Call 次の問題を出題
    
End Sub

---

📌 次の問題を出題するVBA

Sub 次の問題を出題()
    Dim ws As Worksheet
    Dim level As String
    Dim rng As Range
    Dim rowCount As Integer
    Dim randomRow As Integer
    
    ' 「整数」シートをセット
    Set ws = ThisWorkbook.Sheets("整数")
    
    ' H3のゲームレベルを取得
    level = Range("H3").Value
    
    ' ゲームレベルに応じて出題範囲を決定
    Select Case level
        Case "初級"
            Set rng = ws.Range("A3:A51")
        Case "中級"
            Set rng = ws.Range("B3:B102")
        Case "上級"
            Set rng = ws.Range("C3:C1002")
        Case "神級"
            Set rng = ws.Range("D3:D2502")
        Case Else
            MsgBox "ゲームレベルが選択されていません！", vbExclamation
            Exit Sub
    End Select

    ' 出題範囲の行数を取得
    rowCount = rng.Rows.Count

    ' ランダムで1つ選ぶ
    Randomize
    randomRow = Int((rowCount) * Rnd + 1)

    ' 出題セル（B5）にランダムな整数を表示
    Range("B5").Value = rng.Cells(randomRow, 1).Value
End Sub

---

📢 改良点

✅ 判定後に「正解」または「不正解」のメッセージボックスを表示
✅ OKボタンを押すと、次の問題がランダムで出題される！
✅ すでに作った「ゲームスタート」のランダム出題処理を流用
✅ 余計なコードを整理して、スッキリした構成に！

---

📢 コマンドボタンの設定

1. 「素数です！」ボタン → 「素数判定_正解」を登録
2. 「ちがいます！」ボタン → 「素数判定_不正解」を登録

---

✅ これでできること

1. 出題された数字を見て、「素数です！」or「ちがいます！」ボタンを押す
2. 正解なら「〇」、不正解なら「×」が表示
3. メッセージボックスが出る
4. OKを押すと次の問題がランダムに出題される

---

⑤ クリア・ゲームオーバー判定を実装！

---

📌 クリア・ゲームオーバー判定つきの素数判定VBA

Sub 素数判定_正解()
    Dim wsSosu As Worksheet
    Dim wsGame As Worksheet
    Dim num As Double
    Dim rng As Range
    Dim found As Range
    Dim lastCorrect As Range
    Dim lastWrong As Range
    Dim correctCount As Integer
    Dim wrongCount As Integer
    
    ' シートをセット
    Set wsSosu = ThisWorkbook.Sheets("素数")
    Set wsGame = ThisWorkbook.Sheets("素数当てゲーム")
    
    ' B5の出題セルの値を取得
    num = wsGame.Range("B5").Value
    
    ' 素数シートのA2:A1230の範囲を検索
    Set rng = wsSosu.Range("A2:A1230")
    Set found = rng.Find(What:=num, LookAt:=xlWhole)
    
    ' 〇と×の最新のセルを取得
    Set lastCorrect = wsGame.Range("C22:L22").Find(What:="〇", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    Set lastWrong = wsGame.Range("C23:G23").Find(What:="×", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    
    ' すでに入力されている数をカウント
    correctCount = 0
    wrongCount = 0
    If Not lastCorrect Is Nothing Then correctCount = lastCorrect.Column - 2
    If Not lastWrong Is Nothing Then wrongCount = lastWrong.Column - 2
    
    ' 判定処理
    If Not found Is Nothing Then
        ' B5の値が素数 → 正解
        If correctCount < 10 Then wsGame.Cells(22, 3 + correctCount).Value = "〇"
    Else
        ' B5の値が素数でない → 不正解
        If wrongCount < 5 Then wsGame.Cells(23, 3 + wrongCount).Value = "×"
    End If
    
    ' クリア判定
    If wsGame.Range("L22").Value = "〇" Then
        MsgBox "ゲームクリア！おめでとうございます！", vbInformation
        ゲームリセット  ' ← Callは不要
        Exit Sub
    End If
    
    ' ゲームオーバー判定
    If wsGame.Range("G23").Value = "×" Then
        MsgBox "ゲームオーバー！またチャレンジしてね！", vbExclamation
        ゲームリセット  ' ← Callは不要
        Exit Sub
    End If
    
    ' 次の問題を出題
    次の問題を出題  ' ← Callは不要
    
End Sub

Sub 素数判定_不正解()
    Dim wsSosu As Worksheet
    Dim wsGame As Worksheet
    Dim num As Double
    Dim rng As Range
    Dim found As Range
    Dim lastCorrect As Range
    Dim lastWrong As Range
    Dim correctCount As Integer
    Dim wrongCount As Integer
    
    ' シートをセット
    Set wsSosu = ThisWorkbook.Sheets("素数")
    Set wsGame = ThisWorkbook.Sheets("素数当てゲーム")
    
    ' B5の出題セルの値を取得
    num = wsGame.Range("B5").Value
    
    ' 素数シートのA2:A1230の範囲を検索
    Set rng = wsSosu.Range("A2:A1230")
    Set found = rng.Find(What:=num, LookAt:=xlWhole)
    
    ' 〇と×の最新のセルを取得
    Set lastCorrect = wsGame.Range("C22:L22").Find(What:="〇", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    Set lastWrong = wsGame.Range("C23:G23").Find(What:="×", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    
    ' すでに入力されている数をカウント
    correctCount = 0
    wrongCount = 0
    If Not lastCorrect Is Nothing Then correctCount = lastCorrect.Column - 2
    If Not lastWrong Is Nothing Then wrongCount = lastWrong.Column - 2
    
    ' 判定処理
    If Not found Is Nothing Then
        ' B5の値が素数 → 不正解
        If wrongCount < 5 Then wsGame.Cells(23, 3 + wrongCount).Value = "×"
    Else
        ' B5の値が素数でない → 正解
        If correctCount < 10 Then wsGame.Cells(22, 3 + correctCount).Value = "〇"
    End If
    
    ' クリア判定
    If wsGame.Range("L22").Value = "〇" Then
        MsgBox "ゲームクリア！おめでとうございます！", vbInformation
        ゲームリセット  ' ← Callは不要
        Exit Sub
    End If
    
    ' ゲームオーバー判定
    If wsGame.Range("G23").Value = "×" Then
        MsgBox "ゲームオーバー！またチャレンジしてね！", vbExclamation
        ゲームリセット  ' ← Callは不要
        Exit Sub
    End If
    
    ' 次の問題を出題
    次の問題を出題  ' ← Callは不要
    
End Sub

Sub ゲームリセット()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("素数当てゲーム")
    
    ' エラーを無視（安全対策）
    On Error Resume Next
    
    ' ゲーム関連セルをクリア
    ws.Range("H3").ClearContents
    ws.Range("B5").MergeArea.ClearContents  ' 結合セル対応
    ws.Range("C22:L22").ClearContents
    ws.Range("C23:G23").ClearContents
    
    ' エラーハンドリング解除
    On Error GoTo 0
End Sub

📢 追加の動作
✅ 〇を10個並べたらゲームクリア！🎉
✅ ×を5個並べたらゲームオーバー！😱
✅ どちらの場合もメッセージを表示して、OKボタンを押すとゲームリセット
✅ ゲームリセットでH3・B5・判定結果をクリア！

📢 コマンドボタンの設定
「素数です！」ボタン → 素数判定正解 を登録 「ちがいます！」ボタン → 素数判定不正解 を登録

---

---

⑥ 完成＆プレイしてみよう！

---

🎮 プレイ後の感想（まとめ）

✅ シンプルだけどハマる2択ゲーム！
✅ 素数を学びながら楽しめるのが最高！
✅ 神級はガチでむずい！（笑）
✅ エラーなしでスムーズに動作！

---

---

🎤 まとめ＆締めの言葉

---

おわりに