ExcelVBAでクイズソフトを作成しているのですが、模擬問題の機能追加に悩んでいます

Question

URLに作成したソフトを載せてます。
コンボボックスから参照するシートとその範囲をせっていしてから出題するソフトなのですが、これにコマンドボタンを押すとshee1から１５問、sheet２から１０問、sheet3から１０問順次出題する模擬問題の機能を追加したいのですが、色々試したのですがやり方が分からず困っています。どうすればいいのでしょうか
firestorage.com/download/ced35fa828f3dc4d236ea931f1c7237ca7c9151d
作成したソフトです

Answer 1

URLが途中で省略されているため
ソフトを参照することが出来ません

URLが省略されない形で、掲載頂けますでしょうか？

Comments

[koarakko]

すいませんでした。
訂正しました

[KenichiKajiwara]

ざっとソースを拝見しましたが
既に、以下の機能は出来ているように見えます。
1.選択されたシートから問題を出力する
2.問題シートの表示・非表示

上記が出来ていることを前提にお話ししますと
「1.」と同様に
問題シートをFor文で順次選択し
選択したシートに対して「2.」の処理と同様に
そのシートから問題をN件選択するように
行えば、実現できるかと思います。

※同じような処理が所々出てくるため、
　シートの選択や問題の選択などはサブルーチン化すると
　あとから、機能を追加しやすくなります。

[koarakko]

解答ありがとうございます
そのFor文で順次選択のやり方がわからないんです。
見よう見まねでコンボボックスを使ってシートを選択するやり方はできるのですが、コマンドボタンを使って、シートを選択してするやり方がわからないんです

[KenichiKajiwara]

koarakkoさんのコードを参考に書くと
以下のようなコードで順次シートを選択することができます

For targetSheetNo = 2 To Worksheets.Count
'問題1つ目から順次問題シートを選択する
Set tws = Worksheets(targetSheetNo)
i = tws.Cells(Rows.Count, 1).End(xlUp).Row
Next targetSheetNo

[koarakko]

ありがとうございます
参考にさせていただきます

[koarakko]

教えていただいたので実行したところ、必ず問題数は１０問まで出題するようになり、選択するシートが必ずsheet４になっているのですが、どうしてなんでしょうか
あと、最後まで問題を進めて正解数を表示するプログラムに写ったときにエラーが起きてしまいます
これは何が原因なんでしょうか。私自身も調べているのですが、助言いただけると幸いです

[koarakko]

選択するシートと問題数の問題だったのですが
targetSheetNo = 2
Set tws = Worksheets(targetSheetNo)
i = tws.Cells(Rows.Count, 1).End(xlUp).Row
に変更したら問題解決しました。
しかしやはり最後まで問題を解くと、エラーが起きてしまいます

[KenichiKajiwara]

> 最後まで問題を進めて正解数を表示するプログラムに写ったときにエラーが起きてしまいます
こちら、どんなエラーでしょうか？

一度、現在の状態をアップして頂ければざっと確認します

[koarakko]

返信ありがとうございます。
問題文や変数名や小さいところを変更しました。
正解数を表示しようとしたときのエラーですが、模擬問題にかかわらず、前までできていた科目や問題数を選んでからする機能でもこのエラーが出てきてしまいました。
urlです
http://firestorage.jp/download/803c095f0f2e97465549e1945e89989fb846382c

[koarakko]

すいません、URLが間違っていました。
少しお時間頂きます

[koarakko]

urlです
http://firestorage.jp/download/3a0726b026fc75e8b843ea4e753f4531fdd068a4

[koarakko]

模擬問題はともかく、科目や選択数を選択する方はなにもプログラムを変えていないので、シートのほうを変えたのが原因かと考えてます

[KenichiKajiwara]

時間があまりなく、さっとしか見れていませんが
とりあえず、エラーとなっている箇所は以下となっていました。
UserForm2の140行目

> Check = "不正解　　正解は【" & tws.Cells(List(MIN), 2) & "】"
上記に関して、例えば１０問、問題を行った場合は、Listの状態は
2～11となっており、MINは12となっていました

そのため、Listには12番目の要素がなくて、配列オーバーのエラーとなっていました。
恐らく、MINはMIN - 1になるのかなと想像しています
※ソース全体を見きれていないため、意図と違った場合はすみません

[koarakko]

解答ありがとうございます。
アドバイス通りしたらできるようになりました

[koarakko]

あと、このプログラムの正解かどうかを見極めるプログラムなんですけど間違ってますよね？