Excel VBA 処理の共通化

Question

複数あるオプションボタンのうちどれかにチェックを入れ、
ボタンを押すと、上部のテキストボックスに文字を表示します。
オプションボタンは実際には、画像に表示されているもの以外も多数あります。
オプションボタンの記述(Private Sub ○○ボタン_Click())などを共通化することはできますでしょうか。
よろしくお願いします。

Option Explicit

Dim todofuken As String

Private Sub ボタン_Click()
    TextBox1.Value = todofuken
End Sub

Private Sub 愛知ボタン_Click()
    todofuken = 愛知ボタン.Tag
End Sub

Private Sub 大阪ボタン_Click()
    todofuken = 大阪ボタン.Tag
End Sub

Private Sub 東京ボタン_Click()
    todofuken = 東京ボタン.Tag
End Sub

Answer 1

下記が参考になりますか。

Excel VBA オプションボタンで選択された項目を取得する

Comments

[mnbwqz]

ありがとうございました。