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)
-
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
メッセージボックスのボタン名変更
Visual Basic(VBA)
-
-
4
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
5
Visual Basicでクイズを作成!!
PowerPoint(パワーポイント)
-
6
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
7
Excelで正解数を求める数式が知りたいです
Excel(エクセル)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
10
EXCELでワークシートを開いたらマクロを自動実行したい
Excel(エクセル)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
13
エクセルで四択問題をランダムに出題したい。
その他(Microsoft Office)
-
14
Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について
Visual Basic(VBA)
-
15
UserForm1.Showでエラーになります。
工学
-
16
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
17
エクセルマクロ:複数列 重複があった場合、メッセージと印入れる方法
Excel(エクセル)
-
18
【エクセル】シート内の表をUserFormに画像として表示させる方法
Excel(エクセル)
-
19
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
20
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ExcelVBA】値を変更しながら...
-
VBA 複数のエクセルから一つの...
-
VBA 別ブックからコピペしたい...
-
VBA 何かしら文字が入っていたら
-
VBAで大量のファイルをシート名...
-
FileCopy時のエラー
-
Vba SelStart、SelLen教えてく...
-
【マクロ】1つのマクロの中に...
-
ExcelのVBAコードについて教え...
-
ユーザーフォームに別シートか...
-
Excel VBA 定義されたプロージ...
-
Excel VBA ダブルクリックで入...
-
VBA ユーザーフォーム ボタンク...
-
VBA 複数条件の分岐処理の上手...
-
VBAに詳しい方教えてください。
-
VBAを使用した時間管理
-
Excelのマクロでワードのテキス...
-
【ExcelVBA】インデックスが有...
-
VBAコンボボックスで選択した値...
-
エクセルについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロ&VBAでユーザーフ...
-
Pythonのプログラムで8クイーン...
-
VBAユーザーフォームでテキスト...
-
Go Live CSのわかりやすい本
-
画面上の文字を読み取るシステ...
-
転移学習とディープラーニング...
-
息子は中学1年軽度知的障害があ...
-
パソコンができるってどのレベル?
-
ノーコードツールについて
-
chatgptはどこで学習しているの...
-
chatgptはすごい勢いで使われて...
-
最近義務教育の中にソフト関連...
-
写真加工で使うパソコン機器、...
-
Unityでカスタムメイドみたいな...
-
シーケンサー 動作確認 フリ...
-
RoboFormについて
-
外付けHDDを認識しない
-
世の中に出るには高校普通科の...
-
無料パソコン学習 Windowsの操...
-
シリアルナンバーを紛失してし...
おすすめ情報
■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
を入れてます。