Excel VBA オプションボタンについて

質問

こんばんは
オプションボタンが５つあり、
登録ボタンが１つあるユーザーフォームを作りました。
このオプションにチェックを入れずに登録ボタンを押したときに
「必ず選択してください。」とメッセージを表示し、再度入力させるようにしたいのですが、どうしたらよいのでしょうか。
Excelのバージョンは2003です。
調べたところ
(1)で動きそうだ。ということが判ったのですがチェックを入れ値がtrueになるとエラーが発生して止まってしまいます。（理由がわかりません）
Private Sub commandbutton2_click()
Dim opt As ControlFormat, flg As Boolean
flg = False
For Each opt In frame1.Controls
If opt.Value = True Then '←ここの行でtrueだった場合のエラーが発生してしまう。
flg = True
Selection.Value = opt.Caption
End If
Next
Unload userform1
End Sub

(2)この方法で何とか動いたのですが、初めの方に書いたとおり、オプションボタンが選択されずに登録ボタンが押された場合、チェックするように促すメッセージを表示する方法がわかりません。また、できればユーザーホームの×ボタンを押せなくする方法もしくは、閉じられた場合にマクロを抜けるようにするにはどうしたらよいのでしょうか。宜しくお願い致します。
Private Sub commandbutton1_click()
Dim i As Integer

For i = 1 To 5
If Me.Controls("optionbutton" & i).Value = True Then
Selection.Value = Me.Controls("optionbutton" & i).Caption
End If
Next i

Unload userform1
End Sub

回答No.1

hana-hana3 · ベストアンサー

御要望の基本的な部分を載せてみました。
処理内容の詳細はＶＢＥからヘルプやネットを参考に解読して下さい。
あとは要望に従った処理になるように手を入れて見てください。

また、フォームに終了ボタンを付けないとフォームから終了する方法が無くなってしまうので注意して下さい。

'ラジオボタンのチェック
Private Sub CommandButton1_Click()

Dim i As Integer
Dim flg As Boolean

flg = False

For i = 1 To 5
If Me.Controls("OptionButton" & i).Value = True Then
flg = False
Exit For
Else
flg = True
End If
Next

If flg = True Then MsgBox "ラジオボタンを必ず選択してください。"

End Sub

'フォームに終了ボタンを付ける事。
Private Sub CommandButton2_Click()
Unload Me
End Sub

'フォームの [X] ボタンをキャンセルするための処理
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub