エクセル マクロ オプションボタン

質問

エクセル上にユーザーフォーム１を作り
OptionButton１～４作成
Captionには
OptionButton１）あ
OptionButton２）い
OptionButton３）う
OptionButton４）え
と名前を付けてOptionButton１をクリックすると
TextBox1に”あ”と表示するようにしたいです！
お願いします！
教えて下さい。
｛宣言は何？｝
Dim i As Integer
Dim s1 As String
For i = 1 To ３ Step 1
s1 = Me.Controls("OptionButton" & i).Caption
If Me.Controls("optionbutton" & i) = True Then
With UserForm１
.TextBox1.Value = s1
End With
End If
Next i
End Sub
上記の記述では無理でした！
教えて下さい。

回答No.1

masa_019 · ベストアンサー

こんにちは。

Private Sub OptionButton1_Click()
Me.TextBox1.Value = Me.OptionButton1.Caption
End Sub

Private Sub OptionButton2_Click()
Me.TextBox1.Value = Me.OptionButton2.Caption
End Sub
　・
　・
　・
のようにして、
オプションボタンの数だけ並べるのが簡単ではないでしょうか。

お礼

早速の返事ありがとうございます！
上手く出来ました。
本当に感謝しています。
ありがとうございます。