VBA クイズ作成
お目に留めていただきありがとうございます。
クイズを出題するフォームを作成しているのですが行き詰まってしまいました、、。
大変恐縮ではありますが、お知恵を拝借したく質問させていただきました。
フォームのイメージとしましては
OptionButton1~5に問題を表示
解答ボタン（CommandButton1)をクリックすると正解か不正解かをMsgBoxに表示
（何も選択していない場合はエラーメッセージを表示）
次へボタン（CommandButton２）をクリックすると次の問題へと移り変わる
終了ボタン（CommandButton３）をクリックするとページを閉じる
クイズ作成にあたりWorksheets(1)に以下のものを記入してあります。
No 問題 答１ 答２ 答３ 答４ 答５ 正解
問１ 如月 きらつき きさらぎ ききつき きさつき きさづき 2
問２ 弥生 やよい やせい やしょう やいき よせい 1
問３ 五月 ごがつ ごつき さつき いつき みつき 3
問４ 神無月 かんなづき かんなつき かんなずき かみなずき かみなづき 1
問５ 師走 しはしる しそう しっそう じそう しわす 5
A３~A7までNo
B３~B7まで問題
C3~C7まで答１
D3~D7まで答２
E3~E7まで答３
F3~F7まで答４
G3~G7まで答５
H3~H7まで正解
私が進められたところは、以下のコードまでとなります。
Private Sub CommandButton1_Click()
If OptionButton1 = False And OptionButton2 = False And OptionButton3 = False And OptionButton4 = False And OptionButton5 = False Then
ret = MsgBox("答えを選択してください！！", 48, "注意")
End If
End Sub
Private Sub UserForm_initialize()
TextBox1 = Worksheets(1).Cells(3, 2)
OptionButton1.Caption = Worksheets(1).Cells(3, 3)
OptionButton2.Caption = Worksheets(1).Cells(3, 4)
OptionButton3.Caption = Worksheets(1).Cells(3, 5)
OptionButton4.Caption = Worksheets(1).Cells(3, 6)
OptionButton5.Caption = Worksheets(1).Cells(3, 7)
End Sub
お力添えいただければ大変嬉しいです。よろしく御願い致します。
お礼
ありがとうございます！！