VBAのクイズの作り方で質問があります。
参考にしたURL→https://www.sejuku.net/blog/93087
正解の表示に出来ず困っています。
不正解です。0番名の選択肢が正解です。とMsgBoxが出てきます。
サイト通りにやってみましたが中々うまくいけません。
どうかご教授お願い致します。
後、ランダムではなく上から順番に問題を出したいのですが、どのようなコードを書けばいいでしょうか?
よろしくお願いいたします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
Call QuizCreate
Sub QuizCreate() で
pubIntAnserNo に代入された値を確認してみましょう
#2 抜けていました
quizNo = 0
この0を変数にしてボタン押下ごとに +1する
No.2
- 回答日時:
こんにちは
pubIntAnserNoが0と言う事は
Public pubStrQuestion As String '質問
Public pubStrAnser1 As String '選択肢1
Public pubStrAnser2 As String '選択肢2
Public pubStrAnser3 As String '選択肢3
Public pubIntAnserNo As String '正解No
グローバル変数になっていますか?
グローバル変数については
https://www.sejuku.net/blog/68356
後・・・
quizNo = Int(5 * Rnd + 1) ->>
quizNo = 0 のちに見出し分が+されているようです。
No.1
- 回答日時:
こんにちは
>不正解です。0番名の選択肢が正解です。とMsgBoxが出てきます。
原因はいろいろ考えられるので、その上だけでは特定はできません。
・シートに正解番号が記されていない
・正解番号がパブリック変数になっていない
・正解番号を変数に設定していない
などなどが考えられます。
>サイト通りにやってみましたが中々うまくいけません。
「やったつもり」と「やっている」は全く違います。
丹念に見直してみましょう。
>ランダムではなく上から順番に問題を出したいのですが、~
ランダムに番号(quizNo)を決める代わりに、番号の初期値を1にしておいて、次の問題の時には順次 +1 してゆくようにすれば良いでしょう。
番号が5を超えたらどうするのか
・1に戻る
・ランダムに切り替える
・「ネタ切れ!」と表示する
などについては、質問者様のお考えによります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで早押しゲームを作りたい 4 2022/05/12 13:46
- Excel(エクセル) ランダムで四択の問題を作る場合にvbaで何を学べばいいでしょうか。 1 2022/04/14 16:45
- Java 問題作成のWebアプリの作り方を教えてください 1 2022/11/26 22:01
- Excel(エクセル) Excel VBAのことでお聞きしたいことがあり、ご教授お願いします。 下記の3つの図形があり、この 3 2022/08/08 17:57
- 英語 問題 : I visit the ( ) with my mom every week. 3 2022/08/15 23:49
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- 工学 半導体の問題について質問があります。 写真のような少数キャリア密度を求める問題なのですが、どうしても 3 2023/02/19 00:11
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
4択問題のプログラムでランダムに出題する処理で困っています
Visual Basic(VBA)
-
メッセージボックスのボタン名変更
Visual Basic(VBA)
-
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
-
4
Visual Basicでクイズを作成!!
PowerPoint(パワーポイント)
-
5
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
6
Excelで正解数を求める数式が知りたいです
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
9
EXCELでワークシートを開いたらマクロを自動実行したい
Excel(エクセル)
-
10
【エクセルのマクロ】クリップボードのbitmapをフォームに表示させたい
Visual Basic(VBA)
-
11
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
12
UserForm1.Showでエラーになります。
工学
-
13
エクセルマクロ:複数列 重複があった場合、メッセージと印入れる方法
Excel(エクセル)
-
14
【エクセル】シート内の表をUserFormに画像として表示させる方法
Excel(エクセル)
-
15
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
16
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
17
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
18
ランダムで四択の問題を作る場合にvbaで何を学べばいいでしょうか。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
久しぶりのプログラミング
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
-
Excelのマクロについて教えてく...
-
エクセルVBA
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
現在のブックを閉じないで、マ...
-
VBAなくなるの?
-
ExcelのVBAコードについて教え...
-
【マクロ】1つのマクロの中に...
-
Vba SelStart、SelLen教えてく...
-
Vtube Studio での背景透過を残...
-
VBAで大量のファイルをシート名...
-
Outlookの「受信日時」「件名」...
-
郵便番号検索APIにてget Elemen...
-
ユーザーフォームに別シートか...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロ&VBAでユーザーフ...
-
画面上の文字を読み取るシステ...
-
Pythonのプログラムで8クイーン...
-
C++でのウインドウハンドルやWi...
-
WPS Officeって有料ですか?
-
インストールCDをCDディスクの...
-
息子は中学1年軽度知的障害があ...
-
パソコンができるってどのレベル?
-
RoboFormについて
-
chatgptはすごい勢いで使われて...
-
chatgptはどこで学習しているの...
-
最近義務教育の中にソフト関連...
-
ノーコードツールについて
-
Frieve Audio ASIOの設定について
-
学校のパソコンを使ってのメール
-
シリアルナンバーを紛失してし...
-
外付けHDDを認識しない
-
音声読み上げソフトの読み間違...
-
パワーディレクターの強制終了
-
Balabolkaというソフトで漢字の...
おすすめ情報
■UserForm1のコードです。
続きは
If pubIntAnserNo = selectOptionNo Then
MsgBox "正解です!おめでとうございますー!"
Exit Sub
Else
MsgBox "不正解です。" & pubIntAnserNo & "番名の選択肢が正解です。", vbCritical
Exit Sub
End If
End Sub
■Module1に
UserForm1.Show
■Module2に
Public pubStrQuestion As String
Public pubStrAnser1 As String
Public pubStrAnser2 As String
Public pubStrAnser3 As String
Public pubStrAnserNo As String
を入れてます。