ユーザーフォーム オプションボタン について

質問

ユーザーフォーム内にオプションボタンを21個作っており、

Private Sub CommandButton1_Click()

Dim SerchArea As Range

'検索範囲(シート名指定）
Set SearchArea = Sheets("1").Range(Range("A:A"), Range("A:A").End(xlDown))

'検索処理(引数：LookAt に xlWhole で完全一致

Set FoundCell = SearchArea.Find( _
What:=Me.TextBox1.Value, _
SearchOrder:=xlByRows, _
LookAt:=xlWhole, _
LookIn:=xlValues, _
MatchCase:=False)

'商品コードが無い場合の処理
If FoundCell Is Nothing Then
MsgBox "ありません！", vbCritical
GoTo ExitHandler
End If
'見つかった場合の処理
With FoundCell
Me.TextBox1.Value = .Offset(0, 0).Value
Me.TextBox2.Value = .Offset(0, 11).Value
Me.TextBox3.Value = .Offset(0, 12).Value
Me.TextBox4.Value = .Offset(0, 4).Value

テキストボックスにセルの値が入るようにしており、追加でオプションボタンを付けて更新としたいのですが、21個のうちどれか一つを選択して、その値をZ列に反映させたいのですが

Private Sub CommandButton2_Click()
With FoundCell

.Offset(0, 13).Value = Me.TextBox20.Value
.Offset(0, 4).Value = Me.TextBox4.Value
.Offset(0, 5).Value = Me.TextBox5.Value

ここの追加でオプションボタンを設定するにはどうすれば良いでしょうか？

回答No.1

watabe007 · ベストアンサー

>21個のうちどれか一つを選択して、その値をZ列に反映させたいのですが
オプションボタンの値とは？　Captionと、判断しましが・・・
Private Sub CommandButton2_Click()
　　With FoundCell
　　　　For i = 1 To 21
　　　　　　If Me.Controls("OptionButton" & i).Value = True Then
　　　　　　　　.Offset(0, 25).Value = Me.Controls("OptionButton" & i).Caption
　　　　　　　　Exit For
　　　　　　End If
　　　　Next