【VBA】エクセルのリストフォームが小さいのでユーザーフォームで作ってみる

excelvba エクセル

データの入力規則から作るトグルリストはサイズを変えることができません。

しょうがないのですが、シートが広い場合などは出現したリストが小さくて操作しにくい場合があります。

多少面倒ですが自作のリストでサイズ変更できたほうが便利なので作ってみましょう。

ただ、前提として1リストにつき1つの設定が必要なので数が多いリストに関しては不向きなのでご了承ください。

デモのエクセルはこんな感じです。

スポンサーリンク

ボタンを作成

「開発」⇒「挿入」⇒「activexコントロール」のコマンドボタンを作成します。(マクロ登録ができれば何でも大丈夫です。)

そのボタンに下記を記述します。

caption(ボタン内の表示文字)を「▼」とかにするとトグルっぽくなります。

 

標準モジュール

標準モジュールにはPublic変数を指定しておきます。

変数名に気を付けてください。

ユーザーフォーム

ユーザーフォームの見た目はこんな感じです。

ダウンロードはこちら

list.zip (58 ダウンロード)

簡単ですね。

肝はsheetモジュールからユーザーモジュールに変数を渡すというところです。

これにはpublic変数が必要になりますが取り扱いに気を付けてください。

 

コメント

タイトルとURLをコピーしました