VBA100本ノック 41本目：暗算練習アプリ

公開日：2020-12-07　最終更新日：2021-02-02

VBA100本ノック 41本目：暗算練習アプリ

暗算練習アプリを作る問題です。
2つの四則演算ほ自動作成し採点します。

ツイッター連動企画です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。

VBAテスト用のサンプルデータはご自身でご用意ください。

出題

#VBA100本ノック 41本目
暗算練習アプリを作成します。
・整数2個と+-*/の演算子をランダムに選ぶ
・問題をInputBoxに表示
・入力値を採点
・全10問、最後に10点満点で点数をMsgBox表示
・キャンセルや未回答は次の問題に進む
※整数の範囲については暗算できる範囲で随意
※添付GIFを参考に

VBA作成タイム

この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。

他の人の回答および解説を見て、書いたVBAを見直してみましょう。

頂いた回答

出題ツイートの引用ツイートでの回答

解説

乱数から演算子を選択するところと、数値範囲を暗算できそうな範囲に絞るところと、
このあたりの工夫といったところでしょうか。
特に割り算では、小数が出てしまうと暗算はかなり厳しくなります。私には(笑)
文字列の計算式を計算するにはEvaluateが便利です。


  
    
      Sub VBA100_41_01()

　　Dim opeAry: opeAry = Array("+", "-", "*", "/")

　　Dim quest(1 To 3) As String, ans As String, score As Long, i As Long

　　score = 0

　　For i = 1 To 10

　　　　quest(2) = opeAry(乱数(LBound(opeAry), UBound(opeAry)))

　　　　Select Case quest(2)

　　　　　　Case "+"

　　　　　　　　quest(1) = 乱数(1, 99): quest(3) = 乱数(1, 99)

　　　　　　Case "-"

　　　　　　　　quest(1) = 乱数(1, 99): quest(3) = 乱数(1, quest(1))

　　　　　　Case "*"

　　　　　　　　quest(1) = 乱数(1, 99): quest(3) = 乱数(1, IIf(quest(1) < 10, 99, 9))

　　　　　　Case "/"

　　　　　　　　quest(3) = 乱数(1, 30): quest(1) = 乱数(1, 10) * quest(3)

　　　　End Select

　　　　ans = InputBox(prompt:=i & "問目" & vbLf & vbLf & Join(quest, " "), Title:="暗算練習")

　　　　If IsNumeric(ans) Then

　　　　　　If CDbl(ans) = Evaluate(Join(quest)) Then score = score + 1

　　　　End If

　　Next

　　Dim msg As String

　　Select Case score

　　　　Case 0:　　　　 msg = "まあ人間、不得意なこともあるさ、、、"

　　　　Case Is <= 5:　 msg = "次は頑張って、もう少し良い点を取ろう！"

　　　　Case Is <= 8:　 msg = "普通だ、あまりにも普通だ・・・"

　　　　Case Is = 9:　　msg = "ミスはある、人間だもの"

　　　　Case Else:　　　msg = "本気出してんじゃねえよ、空気読め！"

　　End Select

　　MsgBox "発表！" & vbLf & vbLf & score & "点" & vbLf & vbLf & msg

End Sub


Function 乱数(最小値, 最大値) As Long

　　Randomize

　　乱数 = Int((最大値 - 最小値 + 1) * Rnd() + 最小値)

End Function

そして、最後のメッセージにそれぞれ個性が出ていて楽しかったです。
今回は特に解説はありません。
VBAソースを掲載してあります。

補足

特に解説はありません。

サイト内関連ページ

第15回．四則演算と注釈（コメント）｜VBA入門

エクセルは表計算ソフトですから、計算が出来なくては話になりません。四則演算（加減剰余）は必須です。この四則演算で使う算術演算の演算子は、ワークシートの演算子と同じです。あわせて、注釈（コメント）の書き方も覚えましょう。

第23回．メッセージボックス（MsgBox）｜VBA入門

・MsgBox関数の構文・名前付き引数・MsgBox関数のbuttonsの定数・MsgBox関数の戻り値の定数・MsgBox関数の例文・MsgBoxの使い道

第24回．インプットボックス（InputBox）｜VBA入門

・InputBox関数の構文・名前付き引数・InputBox関数の例文

第100回．InputBoxメソッド（インプットボックス）

・InputBoxメソッド・InputBoxメソッドの使用例・最後に

文字列でのセル参照と文字列の計算式について（Evaluate,INDIRECT）

セルまたはセル範囲を表す文字列からセル参照する場合と、文字列としての計算式から計算する場合です。"Sheet1"の A1に、"Sheet2" B1に、"A1" "Sheet2"の A1に、"(2+3)*2" このよう…

Evaluateメソッド（文字列の数式を実行します）

・Evaluateメソッドの構文・Evaluateメソッドの解説と使用例・Evaluateメソッドの最後に

Rnd関数｜VBA関数

・Rnd関数・Rnd関数の注意点・Rnd関数の使用例

同じテーマ「VBA100本ノック」の記事

38本目：1シートを複数シートに振り分け
 39本目：数値リストの統合（マージ）
40本目：複数ブックの統合
41本目：暗算練習アプリ
42本目：データベース形式に変換
 43本目：CSV出力
 44本目：全テーブル一覧作成
 45本目：テーブルに列追加
 46本目：名前定義に使える文字
 47本目：Window操作
 48本目：配列と数値型

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA入門編
VBA100本ノック
41本目：暗算練習アプリ

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBA練習問題
VBA100本ノック 41本目：暗算練習アプリ