Excel VBA フレームを使用してオプションボタンをグループ化する

• オブジェクト（必須）
  Frame【ﾌﾚｰﾑ】コントロールオブジェクトの「オブジェクト名」を指定します。

Private Sub CommandButton1_Click()
Dim コントロール1 As Control
Dim コントロール2 As Control
For Each コントロール1 In Frame1.Controls
If コントロール1.Value = True Then Exit For
Next
For Each コントロール2 In Frame2.Controls
If コントロール2.Value = True Then Exit For
Next
On Error GoTo エラー処理
MsgBox "Frame1で選択されたボタン:" & コントロール1.Caption & vbCrLf & _
"Frame2で選択されたボタン:" & コントロール2.Caption
Exit Sub
エラー処理:
MsgBox "ボタンを選択してください。"
End Sub

2行目【Dim コントロール1 As Control】
Frame1に配置されているOptionButton【ｵﾌﾟｼｮﾝﾎﾞﾀﾝ】をControls【ｺﾝﾄﾛｰﾙｽﾞ】プロパティで参照して格納するオブジェクト変数「コントロール1」をオブジェクト型(Control)で宣言します。

3行目【Dim コントロール2 As Control】
Frame2に配置されているOptionButton【ｵﾌﾟｼｮﾝﾎﾞﾀﾝ】をControls【ｺﾝﾄﾛｰﾙｽﾞ】プロパティで参照して格納するオブジェクト変数「コントロール2」をオブジェクト型(Control)で宣言します。

4行目【For Each コントロール1 In Frame1.Controls】
For Each【ﾌｫｱ　ｲｰﾁ】　ステートメントを使用して繰り返し処理の始まりです。オブジェクト変数「コントロール1」にControls【ｺﾝﾄﾛｰﾙｽﾞ】プロパティで参照したFrame1内のコントロール（OptuionButton）を順に格納して繰り返します。

5行目【If コントロール1.Value = True Then Exit For】
If【ｲﾌ】ステートメント（条件分岐）を使用してFrame1内のコントロール（OptionButton）が格納されている変数「コントロール1」をOptionButton【ｵﾌﾟｼｮﾝﾎﾞﾀﾝ】コントロールオブジェクトのValue【ﾊﾞﾘｭｰ】プロパティで参照して「参照した値がTrueの場合にExit For【ｴｸﾞｼﾞｯﾄﾌｫｰ】ステートメントで繰り返し処理を途中で抜ける」を定義します。

Exit For【ｴｸﾞｼﾞｯﾄﾌｫｰ】ステートメントで処理を抜けるときオブジェクト変数「コントロール1」には、値がTrueのCommandButton【ｺﾏﾝﾄﾞﾎﾞﾀﾝ】すなわち、ボタンが選択されているCommandButton【ｺﾏﾝﾄﾞﾎﾞﾀﾝ】が格納されています。

6行目【Next】
4行目のFor Each【ﾌｫｰｲｰﾁ】ステートメントからここまでのForm1に設定されているOptionButtonの設置数の回数または、値がTrueのOptionButtonが見つかるまで繰り返します。

7行目～9行目
Frame2内のコントロール処理です。4行目～6行目のFrame1内のコントロール処理と同じ内容です。

10行目【On Error GoTo エラー処理】
Frame【ﾌﾚｰﾑ】コントロール内のOptionButton【ｵﾌﾟｼｮﾝﾎﾞﾀﾝ】が選択されていない場合、オブジェクト変数の「コントロール1」または「コントロール2」にOptionButtonコントロールオブジェクトが格納されていないので次のMsgBox関数の値で使用しているCaption【ｷｬﾌﾟｼｮﾝ】プロパティでエラーが発生します。On Error【ｵﾝｴﾗｰ】ステートメントとGoTo【ｺﾞｳﾄｩ】ステートメントを使用して、エラーが発生した場合、処理を「エラー処理:」ラベルがある14行目までジャンプしてエラーを回避します。

11行目～12行目【MsgBox “Frame1で選択されたボタン:” & コントロール1.Caption & vbCrLf & _
“Frame2で選択されたボタン:” & コントロール2.Caption】
変数「コントロール」に格納されたそれぞれのTrue（ボタンが選択されている）のOptionButtonをCaption【ｷｬﾌﾟｼｮﾝ】プロパティで設定されている文字列を取得してMsgBox関数を使用して選択されている「ボタン」をユーザーに伝えます。

13行目【Exit Sub】
Exit Sub【ｴｸﾞｼﾞｯﾄｻﾌﾞ】ステートメントを宣言してSub【ｻﾌﾞ】プロシージャーを途中で抜けます。

14行目～16行目【エラー処理:
MsgBox “ボタンを選択してください。”
End Sub】
エラーが発生した場合の処理です。ボタンが選択されていないことを伝えEnd 【ｴﾝﾄﾞ】ステートメントでSub【ｻﾌﾞ】プロシージャーを終了します。

Private Sub CommandButton1_Click()
Dim コントロール1 As Control
Dim コントロール2 As Control
For Each コントロール1 In Frame1.Controls
If コントロール1.Value = True Then Exit For
Next
For Each コントロール2 In Frame2.Controls
If コントロール2.Value = True Then Exit For
Next
On Error GoTo エラー処理
With Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
.Value = コントロール1.Caption
.Offset(0, 1).Value = コントロール2.Caption
End With
Exit Sub
エラー処理:
MsgBox "ボタンを選択してください。"
End Sub

12行目【.Value = コントロール1.Caption】
With【ｳｨｽﾞ】ステートメントで指定したA列の値が入力されている行の次の行のセルにオブジェクト変数「コントロール1」の
Caption【ｷｬﾌﾟｼｮﾝ】（コントロールに表示されている文字列）を代入します。

13行目【.Offset(0, 1).Value = コントロール2.Caption】
With【ｳｨｽﾞ】ステートメントで指定したセルの位置からOffset(0, 1)で列を右に1列ずらした位置、すなわちB列に
オブジェクト変数「コントロール2」のCaption【ｷｬﾝﾌﾟｼｮﾝ】を代入します。