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

以下手順です。

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

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

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

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


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」選択

手順は以上です!!