繰り返し処理について

質問

設問をA列に、回答欄をB列に設定した10問程の
正誤問題の一覧を作ろうとしています。
（B１に問題文、B２に正または誤で回答）

セルを選択時にオプションボタンが出るようにし、
選択したものがセルに入力されるように
プログラムを組みました。

現在入力しているコードは以下のものになります。

●User Form

Private Sub CommandButton1_Click()

If OptionButton1.Value = True Then
Worksheets(1).Range("B2").Value = OptionButton1.Caption

ElseIf OptionButton2.Value = True Then
Worksheets(1).Range("B2").Value = OptionButton2.Caption
End If

End Sub

●Sheet1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

UserForm1.Show

End Sub

これと同じことがB3～B11でも繰り返されるようにするには
どのようにコードを入力すれば良いでしょうか。
（Do～LoopやFor each～Nextを使用するのでしょうか？）

また、現在はどのセルを選択してもオプションボタンが出るように
なっているのですが、B2を選択したときにだけ出すようにすることは
可能でしょうか？

初歩的な質問かもしれませんが、
全く検討がつかないのでご回答お願い致します。

回答No.2

hallo-2007 · ベストアンサー

＞C2,D2が選択された時にもオプションボタンが出て・・・
ということは、
＞設問をC列に、回答欄をD列に設定した10問程の・・・
の場合もあるということでしょうか？

ActiveCell.Column　で選択した列の番号がでます。
A列を選択した場合
ActiveCell.Column　は　１
C列を選択した場合
ActiveCell.Column　は　３
ですので

Private Sub CommandButton1_Click()
j = ActiveCell.Column + 1
i = ActiveCell.Row
If OptionButton1.Value = True Then
Worksheets(1).Cells(i,j).Value = OptionButton1.Caption

ElseIf OptionButton2.Value = True Then
Worksheets(1).Cells(i,j).Value = OptionButton2.Caption
End If
End Sub

選択した列の一つ右側に結果が入ると思いますが。

お礼

よくわかりました！ありがとうございます。

お礼が遅くなりすみません。

回答No.1

hallo-2007

一例です。
回答したい問題文の行を選択したとします。
Private Sub CommandButton1_Click()
i = ActiveCell.Row
If OptionButton1.Value = True Then
Worksheets(1).Range("B" & i).Value = OptionButton1.Caption

ElseIf OptionButton2.Value = True Then
Worksheets(1).Range("B" & i).Value = OptionButton2.Caption
End If
End Sub

お礼

早速のご回答ありがとうございます。

大変不躾ではございますが、お手すきの際に補足の質問にご回答頂けると大変助かります。

補足

C2,D2が選択された時にもオプションボタンが出て、その内容がセルに反映されるようにするには
・オプションボタンを新たに設置
・コードのBをCやDに書き換える
必要があるという事でしょうか？