|
こんにちは。
ユーザーフォーム上に、
Frame3,Frame4,Frame5,Frame6 の4つのフレームがあります
今のままだと、Frame3でオプションボタンを一つ選択でき、Frame4でもオプションボタンを選択できちゃう為、2個選択している状態になってます
上記4つのフレーム内にあるオプションボタンの選択を1つだけしか選択できないようにするにはどうしたらよいのでしょうか?
どうしてもうまくいかなくて困っています
どうかよろしくお願いします
あともう一つなんですが…
一度、●に選択したオプションボタンを○に戻す方法はないでしょうか?
今のコードは、とりあえず、複数オプションボタンがTrueになっていたら、Falseに戻して、選択し直してもらうようにしてあります
Private Sub CommandButton1_Click()
Dim cntFrm As Integer, cntOptTrue As Integer
Dim i As Integer, j As Integer
cntFrm = 6 'フレームの数
For i = 3 To cntFrm
For j = 1 To Me.Controls("Frame" & i).Controls.Count
If Me.Controls("Frame" & i).Controls(j - 1).Value = True Then
cntOptTrue = cntOptTrue + 1
End If
Next j
Next i
If cntOptTrue = 1 Then
Else
For k = 3 To cntFrm
For p = 1 To Me.Controls("Frame" & k).Controls.Count
Me.Controls("Frame" & k).Controls(p - 1).Value = False
Next p
Next k
MsgBox "WO選択を複数選択しているか、未選択です"
Exit Sub
End If
|
|