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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
4択問題のプログラムでランダムに出題する処理で困っています
Visual Basic(VBA)
-
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
メッセージボックスのボタン名変更
Visual Basic(VBA)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
Visual Basicでクイズを作成!!
PowerPoint(パワーポイント)
-
6
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
7
エクセルで四択問題をランダムに出題したい。
その他(Microsoft Office)
-
8
4択問題の解答に図を使いたいのです。
Visual Basic(VBA)
-
9
UserForm1.Showでエラーになります。
工学
-
10
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
11
EXCELでワークシートを開いたらマクロを自動実行したい
Excel(エクセル)
-
12
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
13
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
14
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
15
メッセージボックスの選択ボタンのテキストを変更したい
Visual Basic(VBA)
-
16
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
17
Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について
Visual Basic(VBA)
-
18
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
19
VBAで別モジュールへの変数の受け渡し方法
Visual Basic(VBA)
-
20
Excelで正解数を求める数式が知りたいです
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Pythonのプログラムで8クイーン...
-
Excelマクロ&VBAでユーザーフ...
-
画面上の文字を読み取るシステ...
-
ノーコードツールについて
-
写真加工で使うパソコン機器、...
-
動画変換ソフトについて
-
RoboFormについて
-
外付けHDDを認識しない
-
息子は中学1年軽度知的障害があ...
-
AutoCADのライセンスについて
-
無料パソコン学習 Windowsの操...
-
プログラミングの勉強が進みません
-
Windows7でフォトムービーを作...
-
得点力学習DSソフト(高校受験...
-
最近義務教育の中にソフト関連...
-
世の中に出るには高校普通科の...
-
パソコンを自由に使える為に!
-
パソコンからファクス送受信し...
-
Unityでカスタムメイドみたいな...
-
ain’tについて 今高1なんですが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロ&VBAでユーザーフ...
-
画面上の文字を読み取るシステ...
-
最近義務教育の中にソフト関連...
-
外付けHDDを認識しない
-
無料パソコン学習 Windowsの操...
-
写真加工で使うパソコン機器、...
-
世の中に出るには高校普通科の...
-
パワーディレクターの強制終了
-
息子は中学1年軽度知的障害があ...
-
シーケンサー 動作確認 フリ...
-
ローマ字学習タイピング 寿司打...
-
学習教材の映像制作会社教えて...
-
プログラミングの勉強が進みません
-
RoboFormについて
-
音声読み上げソフトの読み間違...
-
パソコンができるってどのレベル?
-
Windows10のPCのアプリを他のPC...
-
chatgptはどこで学習しているの...
-
chatgptはすごい勢いで使われて...
-
ビデオカメラからパソコンに取...
おすすめ情報
■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
を入れてます。