オプションボタンによってドロップダウンリストの値を変更！

選択するオプションボタンによってドロップダウンリストの値を変えます！

以下手順です。

1,オプションボタンを用意（フォームコントロール）

任意の場所にセットします。

2. VBE画面を起動
　・Altキーを押しながら[F11]キーを押します。
　・左画面のプロジェクト上で右クリック　→　「挿入」　→　「標準モジュール(M)」を選択

3. Module１にコード記載
以下ソース

Option Explicit

Sub Beatles()

　Dim ws As Worksheet
　Set ws = ActiveSheet

　With ws.Range(“B5”).Validation
　　.Delete
　　.Add Type:=xlValidateList, _
　　Formula1:=”ジョンレノン,ポールマッカートニー,ジョージハリスン,リンゴスター”
　End With

End Sub

Sub Stones()

　Dim ws As Worksheet
　Set ws = ActiveSheet

　With ws.Range(“B5”).Validation
　　.Delete
　　.Add Type:=xlValidateList, _
　　Formula1:=”ミックジャガー,キースリチャーズ,ブライアンジョーンズ,チャーリー・ワッツ,ロンウッド”
　End With

End Sub

4. マクロ登録

・それぞれにマクロを登録します。
「ローリングストーンズ」右クリック　→　「マクロ登録」選択

「Stones」　→　「OK」

「ビートルズ」右クリック　→　「マクロ登録」選択

「Beatles」　→　「Ok」選択

手順は以上です！！