【Excel】エクセルのフラッシュカードの作り方（ランダム）【アプリ：暗算】

この記事では、数字をランダムに表示し、全ての数字の合計を当てる「フラッシュ暗算」アプリをエクセルのVBAを使って作る方法を解説します。

エクセルのフラッシュカードの作り方（ランダム）1【完成形の確認】
エクセルのフラッシュカードの作り方（ランダム）2【ランダムな数字を選択された速さで入力された回数分表示する】
エクセルのフラッシュカードの作り方（ランダム）3【回答の確認】
まとめ　フラッシュ暗算をエクセルのVBAを使って作る方法

エクセルのフラッシュカードの作り方（ランダム）1【完成形の確認】

まずはこれから作るフラッシュ暗算アプリがどのようなものなのか確認しましょう。

フラッシュの速さを「速い」「普通」「遅い」から選べるようになっており、計算する回数には好きな数を入力できます。

A列は処理で使用するため、非表示となっていることに注意してください。

フラッシュの速さと計算する回数を入力してSTARTボタンを押すと、C2セルに1～10の数字がランダムに表示されます。

指定した回数分の数字を表示し終わると、回答を入力するメッセージボックスが表示されます。

回答を入力し、OKボタンを押しましょう。

回答が正解の場合は「正解！」と書かれたメッセージボックスが表示されます。

回答が不正解の場合は「残念！正解は○です。」と書かれたメッセージボックスが表示されます。

フラッシュの速さを入力しないままSTARTボタンを押すと、「フラッシュの速さを選択してください」と書かれたメッセージボックスを表示します。

計算する回数が未入力の場合も同様です。

また、計算する回数については、数字以外を入力してSTARTボタンを押した場合もエラーメッセージを表示するようにしています。

下記のコードで実装しています。


Sub flash()

Dim speed
Dim forNum
Dim i, j
Dim rndNum, sum
Dim userAnswer As Variant

speed = 0
rndNum = 0
sum = 0
userAnswer = 0

'数が表示されるセルを初期化
Range("C2") = ""

'フラッシュの速さが選択されていない場合は処理終了
If Range("C5").Value = "" Then
MsgBox "フラッシュの速さを選択してください", vbCritical
Exit Sub
End If

'選択された速さを保持
If Range("C5").Value = "速い" Then
speed = 500
End If
If Range("C5").Value = "普通" Then
speed = 1000
End If
If Range("C5").Value = "遅い" Then
speed = 1500
End If

'計算回数が入力されていない場合は処理終了
If Range("E5").Value = "" Then
MsgBox "計算する回数を入力してください", vbCritical
Exit Sub
End If

'計算回数に入力されている値が数値でない場合は処理終了
forNum = Range("E5").Value
If IsNumeric(forNum) = False Then
MsgBox "計算回数は数値で入力してください", vbCritical
Exit Sub
End If

For i = 1 To forNum
'乱数初期化
Randomize

'1から10までのランダムな整数を作成
rndNum = Int(Rnd() * 10 + 1)

'セルに表示
Range("C2") = rndNum

'合計を保持
sum = sum + rndNum

'空ループで速さを調節
For j = 0 To speed - 1
j = j + 1
Range("A1") = j
Range("A1") = ""
Next j

For j = 0 To speed - 1
j = j + 1
Range("C2") = ""
Next j

Next i

'数値入力のみ許可
userAnswer = Application.InputBox(Prompt:="答えを入力してください", Title:="回答", Type:=1)

'キャンセルボタン、Xボタンで閉じた場合
If userAnswer = False Then
MsgBox "入力がキャンセルされました。", vbInformation
Exit Sub
End If

If Abs(sum - userAnswer) < 0.1 Then
MsgBox "正解!", vbInformation
Else
MsgBox "残念！正解は" & Str(sum) & "です。", vbInformation
End If

End Sub