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

  • このエントリーをはてなブックマークに追加
  • Pocket
  • LINEで送る

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

以下手順です。

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

手順は以上です!!

  • このエントリーをはてなブックマークに追加
  • Pocket
  • LINEで送る

SNSでもご購読できます。

コメント

  1. turkce より:

    I was extremely pleased to find this great site. I need to to thank you for ones time for this particularly fantastic read!! I definitely loved every bit of it and i also have you bookmarked to see new things on your web site. Dasi Connie Kielty

コメントを残す

*