![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
VBAのクイズの作り方で質問があります。
参考にしたURL→https://www.sejuku.net/blog/93087
正解の表示に出来ず困っています。
不正解です。0番名の選択肢が正解です。とMsgBoxが出てきます。
サイト通りにやってみましたが中々うまくいけません。
どうかご教授お願い致します。
後、ランダムではなく上から順番に問題を出したいのですが、どのようなコードを書けばいいでしょうか?
よろしくお願いいたします。
![「Excelマクロ&VBAでユーザーフォー」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/0/543131758_61fcc0fc1781f/M.png)
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で保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
EXCELでワークシートを開いたらマクロを自動実行したい
Excel(エクセル)
-
8
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
9
VBA 複数のセルの値をテキストボックスに表示する
Excel(エクセル)
-
10
エクセルマクロ:複数列 重複があった場合、メッセージと印入れる方法
Excel(エクセル)
-
11
UserForm1.Showでエラーになります。
工学
-
12
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
13
Excelで正解数を求める数式が知りたいです
Excel(エクセル)
-
14
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
15
ランダムで四択の問題を作る場合にvbaで何を学べばいいでしょうか。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのマクロについて教え...
-
ExcelVBA修正のお願い
-
エクセルのマクロについて教え...
-
VBAコードについて教えてくださ...
-
[vb.net] 起動したFrom2を閉じ...
-
エクセルのVBAコードについて教...
-
[VB.net] ボタン(Flat)のEnable...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBA 別ブックからコピペしたい...
-
重複確認
-
Excel(M365) Vlookup/セル反転(...
-
エクセルのVBAコードについて教...
-
コードを直していただきたいで...
-
{ CONTROL Forms.Label.1}が...
-
マクロの記録を使用したマクロ...
-
Excel VBA 定義されたプロージ...
-
VBA 複数の各シートに行を追加...
-
配列のペースト出力結果の書式...
-
VBA実行後に元のセルに戻りたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロ&VBAでユーザーフ...
-
VBAユーザーフォームでテキスト...
-
画面上の文字を読み取るシステ...
-
転移学習とディープラーニング...
-
「正規表現クロスワード」について
-
visual C++ 2005 EEの学習
-
勉強君。って...
-
webデザインの勉強で、HTML/CSS...
-
Frieve Audio ASIOの設定について
-
シリアルナンバーを紛失してし...
-
パワーディレクターの強制終了
-
シーケンサー 動作確認 フリ...
-
System\\CurrentControlSetとは?
-
音声読み上げソフトの読み間違...
-
SQUATをWindows7で使いたい。
-
勉強と学習と学問はどれが大切...
-
windows XP搭載ノートPCを使え...
-
パソコンで文字をアーチ状に打...
-
ビデオプレーヤーで写真を見る...
-
皆様に質問です コスパの良いノ...
おすすめ情報
■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
を入れてます。