|
>フォーム内ラジオボタンのチェックがされているか否かをGroup単位で調べたい
ユーザーフォーム内のオプションボタンだとして...
エクセルでは単にフォームと言うと [表示]-[ツールバー]-[フォーム]
あるいは、[データ]-[フォーム] をさすと思います。
>グループ単位でまとめてチェックできませんでしょうか?
グループ単位でチェックされたオプションボタンを取得する以下のような
関数を用いられては如何でしょう。
Private Function OptionButton(group As String) As MSForms.OptionButton
Dim ctl As MSForms.Control
For Each ctl In Controls
If TypeOf ctl Is MSForms.OptionButton Then
If ctl.GroupName = group And ctl.Value Then
Set OptionButton = ctl
Exit Function
End If
End If
Next
End Function
Private Sub CommandButton1_Click()
If OptionButton("Kind") Is Nothing Then 'チェックされていない
'''
End If
End Sub
|
|