[三流君] －－＞ [ＶＢＡで楽しく] －－＞ [バックナンバー一覧]
－－＞ No.084 Excel UserFormでコンボボックスを使用してみた

Excel UserFormでコンボボックスを使用してみた

メルマガ発行内容

＜Excel UserFormでコンボボックスを使用してみた＞
どうも、三流プログラマーのＫｅｎ３です。

今回は、
Excel UserFormでコンボボックスを使用してみた
そんなお話です。

サンプルファイルは、
http://www.ken3.org/vba/lzh/vba084.lzh
にvba084.xlsが保存されています。

/*
 * １．今回のキッカケ
*/

http://www.ken3.org/vba/excel-form.html
に設置してた、感想質問受付で、下記の質問が来ました。

---------------
 >Excelのフォームで、コンボボックスを使用したいのですが、
 >Accessで作るコンボボックスのような、リストの設定方法を教えてください。
 >
 >Private Sub ComboBox1_Change()
 >
 >
 >End Sub
---------------

ExcelのUserFormでコンボボックスを使うのかぁ。
Accessだと、クエリーやコントロールソースを使用して、
簡単に作れるのにね。
（もしかしてＥｘｃｅｌにも私が知らないだけであったりして・・・）

/*
 * ２．初期捜査、初動捜査
*/

コンボボックスを作り、いつものように、
me.ComboBox1.
と入力すると、プロパティやメソッドが表示される。

探りを入れると、
.AddItem
なんて、アイテムを追加するそれっぽいのが存在する。

サンプルを見ながら、
フォームのオープン時のイベントで、
２つのコンボボックスに値をセットしてみた。

１つ目は
固定値で、クー・チョキ・パーと順番にセット。

２つ目は、
シートの値からコンボボックスを作成してみた。
  A列コード B列商品名  C列単価
の複数列のデータをコンボボックスにセットしてみた。

シートのイメージは、

↑複数列のデータをセットしたイメージ

/*
 * ３．作成したサンプル
*/

フォームを開くイベントで、
コンボボックスにデータをセットした。

Private Sub UserForm_Initialize()
    '----------------------
    'コンボボックス１の設定
    '----------------------
    'Accessで言うと連結列かな 0のインデックス番号
    Me.ComboBox1.BoundColumn = 0

    'フォームの初期化でコンボボックスに値を代入する
    Me.ComboBox1.AddItem "グー"
    Me.ComboBox1.AddItem "チョキ"
    Me.ComboBox1.AddItem "パー"
    
    '----------------------
    'コンボボックス２の設定
    '----------------------
    Me.ComboBox2.BoundColumn = 2 '連結はB列の商品名
    Me.ComboBox2.ColumnCount = 3 '列数は3
    Dim YLINE As Integer
    Dim setY As Integer
    YLINE = 2 '２行目からデータセット
    setY = 0  'コンボボックスは０からなので
    While Len(Sheets("MST").Cells(YLINE, "A")) <> 0 'A列のデータで有無をチェック
        '.Additemで行を追加
        Me.ComboBox2.AddItem Sheets("MST").Cells(YLINE, "A")
        '.Listで該当列にデータをセット
        Me.ComboBox2.List(setY, 1) = Sheets("MST").Cells(YLINE, "B")
        Me.ComboBox2.List(setY, 2) = Sheets("MST").Cells(YLINE, "C")
        YLINE = YLINE + 1
        setY = setY + 1
    Wend

End Sub

ポイントは、
~~~~~~~~~~~~
ComboBox.AddItem
で、行が追加されます。
ComboBox.ColumnCount = で、列数を設定でき、
ComboBox.List(行, 列)で、データをセットすることが出来ます。

データが作成できたら、取り出しのテストですね。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Private Sub CommandButton1_Click()
    MsgBox "ComboBox1.text=" & Me.ComboBox1.Text  'グーなどのテキスト文字
    MsgBox "ComboBox1.value=" & Me.ComboBox1.Value  '値
End Sub

普通に、.Text .Valueで取り出してみました。
ComboBox.BoundColumn でAccessで言うと連結列を設定できます。
この辺も遊んでみてください。

複数列のデータは、
^^^^^^^^^^^^^^^^^^
Private Sub CommandButton2_Click()
    MsgBox "ComboBox2.text=" & Me.ComboBox2.Text    'テキスト文字
    MsgBox "ComboBox2.value=" & Me.ComboBox2.Value  '値
    MsgBox "ComboBox2.Column(0)=" & Me.ComboBox2.Column(0)
    MsgBox "ComboBox2.Column(1)=" & Me.ComboBox2.Column(1)
    MsgBox "ComboBox2.Column(2)=" & Me.ComboBox2.Column(2)
End Sub

と
ComboBox.Column(列番号)で、列を指定して、値を取り出すことができます。


テストはボタンのクリックイベントでしたが、
質問にあった、
 >Private Sub ComboBox1_Change()
 >
 >
 >End Sub
で、値が変わった時に処理も可能です。

/*
 * ４.まだまだ、探りが足りないんだけど
*/

Accessにある、
各項目の列幅の指定
項目名の表示（一行目に表示する／しない）
コントロールソースの指定
など、探らないといけない項目はいろいろとあります。

ヘルプを見ながら、プロパティを探り、
遊んでみてください。

/*
 * ５．終わりの挨拶
*/

ExcelのUserForm で コンボボックスを使用したテストでした。

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

フィードバック

VBA系の→[掲示板]←を覗く、質問を書き込む

評価・感想

ページフッター(リンクや広告など)

[三流君(TOP ken3.org へ戻る)]
-- [VBA系TOPへ]
---- [VBA系バックナンバー目次へ移動]
------ [VBAでIEを操作 CreateObject("InternetExplorer.application")]・・・実は当店一番人気、VBAでIEを操作するサンプルです
------ [VBAでOutlookの操作 CreateObject("Outlook.Application")]・・・Outlookを使い、メール関係の処理です
------ [Access から Excel 連携 CreateObject("Excel.Application")]・・・人気のAccessからExcelへデータ書き出しなどです
------ [AccessのUserForm/サブフォームを操作]・・・アクセスでフォームを使ったサンプルです
------ [Accessのレポートを操作]・・・レポートを操作してみました
------ [Access クエリー関係やその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です
------ [Excel UserForm(ユーザーフォーム)を操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
------ [ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
------ [Excel関係関数、その他]・・・その他Excel関係です
------ [VBAでテキストファイル(*.txt,*.html,*.csv)の操作]・・・テキストファイルを使ったサンプルです
------ [VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます

広告
-- [通販系の売れ筋広告へ] ←主に楽天やAmazonのランキングです
blog
-- [三流君の作業日記] ← 日々の作業を少々
-- [通販あしあと] ← 通販ページの足跡を一覧で羅列

情報を探す

情報を探すならGoogleかな？

↓Web全体、サポート情報(support.microsoft.com)や三流君VBA(ken3.org)から検索する

あとは、項目別にMSでお勉強かな？
◆ マイクロソフトサイトの歩き方
◇ How-To インデックス
◇ FAQ インデックス
◇ スキルレベル別おすすめコンテンツ
◇ テクノロジマップ
◇ テーマ別技術資料一覧

書籍の購入

Webだけじゃさすがに勉強しきれないので、プログラミング関係の書籍も読んでみては？？

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。
お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック

下記、私が設定したキーワードですが、こんな感じで資料や書籍を探ってみては？
[VBA全体を把握する] -- やはり全体をさらっと見たいですよね。
[SQL関連でＤＢ力UP] -- システムはデータベース設計が重要
[ADO接続を探る] -- VBAなのでADO接続を押さえておく
[Windows APIを探る] -- さらにAPIになて知ってれば強力だ！
[.NETを探る] -- と言っても時代は.NETに流れてるし
プログラミング以外でも知りたいことは多くって、
[人間関係] -- で、客先・上司、まわりに気を使い。
[プログラマーの自己啓発] -- プログラムだけじゃなくいろいろと向上したいよ
[コーチング・育成] -- 先輩になったら後輩(部下)の面倒をみてね。
そんなこんなでプログラマーっていろいろと大変なんだってば・・・

Excel UserFormでコンボボックスを使用してみた

メルマガ発行内容