前提・実現したいこと
VBAのオプションボタンを利用して、6個の選択肢から、3個を選び、それが正解か不正解かを判別するクイズのプログラムが作りたいです。
###ここに質問の内容を詳しく書いてください。
オプションボタンでは、1個の選択肢は選べるのですが、2個目以降の選択肢を押すと、その前のチェックが消えてしまいます。複数を選択するコードの書き方が分かりません。教えてください。よろしくお願いします。
発生している問題・エラーメッセージ
該当のソースコード
Excel VBA
ソースコード
Private Sub UserForm_Initialize()
Dim y As Integer
For y = 1 To 6
With Me.Controls("OptionButton" & y)
.MultiSelect = fmMultiSelectMulti
Me.Controls("OptionButton" & y).BackColor = RGB(200, 255, 200)
OptionButton1.Caption = "1/2" OptionButton2.Caption = "1/4" OptionButton3.Caption = "1/5" OptionButton4.Caption = "1/6" OptionButton5.Caption = "1/8" OptionButton6.Caption = "1/10" End With
Next y
End Sub
Private Sub CommandButton1_Click()
Dim myMSG As String
Dim i As Integer
For i = 1 To 6 If Me.Controls("OptionButton" & i).Value = True Then myMSG = Me.Controls("OptionButton" & i).Caption End If Next i myMSG = myMSG & vbCrLf & "???I??????????" MsgBox myMSG
End Sub
Private Sub OptionButton1_Click()
OptionButton1.Value = True
End Sub
Private Sub OptionButton2_Click()
OptionButton2.Value = True
End Sub
Private Sub OptionButton3_Click()
OptionButton3.Value = True
End Sub
Private Sub OptionButton4_Click()
OptionButton4.Value = True
End Sub
Private Sub OptionButton5_Click()
OptionButton5.Value = True
End Sub
Private Sub OptionButton6_Click()
OptionButton6.Value = True
End Sub
試したこと
補足情報(FW/ツールのバージョンなど)

回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/07/09 09:00