選択するオプションボタンによってドロップダウンリストの値を変えます!
以下手順です。
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」選択
手順は以上です!!
最近のコメント