エクセル（Excel）の技。知ってましたか・・・。

初期費用0円！格安スマホ【UQmobile】





マイクロソフトアクセスの記事はこちら

人気ブログランキングへ




にほんブログ村


コンボボックス


通常は前回のような使用法ではありませんね。

コンボボックスにリストを記録してそこの中から何かを選択して、

どこかに表示させるというのが一般的です。

やってみましょう。

Private Sub CommandButton2_Click()

Dim data As Variant

data = Sheets("sheet4").Range("F2:F17")

ComboBox1.List = data

End Sub

上記は最も簡単にシート４にある相手先リストをdataという変数にして、

コンボボックスのリストに追加したという方法です。

今回は「リスト追加」というボタンを押すことにより、シートのリストが追加されたという事です。

ただしこの方法も、ユーザーフォームを一度閉じると元に戻ってしまいます。



「リスト追加」ボタンを押すことなく、最初からリストを表示したいですよね。



上記赤枠部分の左側を「UserForm」とし、右側を「Initialize」にします。

これはどういうことかと言うと、ユーザーフォームを開いたときの初期状態

という意味です。

開いたときにコンボボックスにリストを登録します。

Private Sub UserForm_Initialize()

Dim data As Variant

data = Sheets("sheet4").Range("F2:F17")

ComboBox1.List = data

End Sub

上記のように、１行目の「Private Sub UserForm_Initialize()」が変わっているだけで、

後の内容は同じです。




上記のようにユーザーフォームを開いた段階でコンボボックスにリストを追加しています。







┏━[PR]━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
　WordPressに特化したレンタルサーバー『wpXレンタルサーバー』
　─────────────────────────────────
　・最新の高性能サーバーマシン＆高速ネットワーク
　・大容量30GB、月額1,000円(税抜)〜
　・リバースプロキシによるキャッシュなど、専用の高速システムを採用
　・専用の管理ツールから簡単セットアップ
　・過去14日間のデータの自動バックアップ機能
　・独自ドメイン対応 ＆ 1契約につき10個のWordPress運用が可能
　─────────────────────────────────
　　https://px.a8.net/svt/ejp?a8mat=2NR2G3+DDNP6A+CO4+ZR2VN
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛