• ベストアンサー

Excel　VBA　コンボボックスの初期値の設定について

いつもお世話になっています。 Excel　VBA　コンボボックスの初期値の設定について教えてください。 ユーザーフォームを表示させた時、そこにあるコンボボックスには何も表示されていません。 コンボボックスのボタンを押すとちゃんと 「アジア」「ヨーロッパ」「アメリカ」等の語群が表示されます。 ユーザーフォームを表示させた時点でコンボボックスに「アジア」を表示させるにはどうすればいいか教えてください。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.2

UserForm Initialize ComboBox1.Text = ComboBox1.List(0)

その他の回答 (1)

  • mshr1962
  • ベストアンサー率39% (7418/18948)
回答No.1

フォームの開く時(Open)イベントで コンボボックスのValue値に"アジア"をセットすればいいのでは？

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルVBAでコンボボックスの非表示について

    最近VBAを勉強し始めたのですが、コントロールについてわかりませんので、ご教授お願いします。 コンボボックスを初期では非表示、トグルボタンをクリックすると、コンボボックスを表示させる方法を教えてください。 ユーザーフォームについてまだ未熟なので、すみませんがよろしくお願いします。

  • エクセルVBAでコンボボックス

    エクセルVBAのコンボボックスの使い方について質問します。 実現したいプログラムは 「チェックボックスから選んだ数字で計算するプログラム」 です。 具体的には… まず、コンボボックスをシート上に配置します。そのコンボボックスには 数字の1から10を選べるようにしておきます。 次に、コマンドボタンを配置します。これは単にプログラムをスタート させる目的です。 ユーザーは、まずコンボボックスから好きな数字を選択します。 そしてスタートボタン(コマンドボタン)を押します。 すると、選んだ数字の2倍がセルに表示されます。 さらに発展系としては… チェックボックスを4つ配置します。各チェックボックス には、+、-、×、÷を割り振っておきます。 また、コンボボックスを2つ用意し、それぞれ1～10の数字をリストにします。 ユーザーは、チェックボックスから好きな記号を選び、さらにコンボボックスから 好きな数字を選びます。そしてスタートボタンを押すと、選んだ数字を選んだ記号 で計算した値がセルに表示されます。 というようなプログラムを考えているのですが、うまくできません。 ポイントは、 ・チェックボックスにリストを入力する方法 ・チェックボックスの選択状態や、リストボックスから選ばれた数字を、 　変数として取得する方法 インターネットで調べているのですが、リストボックスに値を入れるのにもマクロを走らせ なければならない方法とか、ユーザーフォームでの説明ばかりでなかなか実現に至りません。 http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_userform05.html プログラムのイメージ図としては添付の図の通りです。 どのようにプログラムを書けばいいのでしょうか。

  • コンボボックスの自動更新について

    コンボボックスの自動更新について エクセルのＶＢＡで、ユーザーフォームを使用しています。 ユーザーフォームの中には「入力」ボタンとコンボボックスと テキストボックスがあります。 コンボボックスは、「ＡＢＣＤＥＦ」と６つのリストがあります。 ユーザーフォーム起動時には、コンボボックスは空欄で コンボボックスから、入力したい商品を選んで、入力ボタンを押して コンボボックスとテキストボックスの内容を入力・コンボボックスを 空欄に戻しています。 これを、「Ａ」を選んで入力ボタンをおしたら「Ｂ」が選ばれる。 「Ｂ」を選んで入力ボタンをおしたら「Ｃ」が選ばれるといったように コンボボックスに表示されるリストを自動で更新することは できないでしょうか？ Select case などを利用して組み立てようとしたのですが、 数時間以上調べても出来ません。 教えていただけると助かります。

  • Excel VBA コンボボックスの使い方

    　VBAでのコンボボックスの使い方をしらべているのですが、うまく見つかりません。コンボボックスのリストに登録するのはどうしたらよいのでしょうか？シート上のセル内のデータを使用しないとリストの登録は出来ないのでしょうか？VBA上で作成して、ユーザーフォームで選択できるようにしたいと思っています。VBAをはじめたばかりなので初歩的な質問で大変恐縮です。どなたかわかる方がいらっしゃったらお願い致します。

  • エクセルのコマンドボックスを初期値に戻す方法を教えてください。

    エクセルのコンボボックスに初期値を表示する方法を教えてください。 セル　A1に　"選んでください" 　　　A2に　りんご 　　　A3に　ばなな とあって、コンボボックスで「りんご」を選択すると 　セルB1に　2 、「ばなな」を選択すると　セルB1に 3 が返されるようにしています。 コマンドボタンを押すと、直近で何が選択されていても、 コンボボックスには　「選んでください」　セルB1には 1 が返されるようにしたいのですが、どうしたらいいでしょうか。　 エクセルの　ツール　→　ユーザー設定　→　ツールバー →　フォーム　から　持って来たコンボボックスには 「ドロップ1」という名前がついています。 また、コマンドボタンは　同様にエクセルの　ツール　→　ユーザー設定　→　ツールバー　→　フォーム　から 持ってきており、「ボタン1」という名前がついています。

  • ＶＢＡのコンボボックスでコメントみたいな表示はできないでしょうか？

    ＶＢＡでユーザーフォームにコンボボックスを設置してます。このコンボボックスを開くと現在１０項目位表示できるようにしているのですが、この表示内容の詳細をコメントみたいな感じで表示させることは可能なのでしょうか？たとえばコンボボックスで「スイッチ」と「ボタン」が選択できるとします。この状態では入力者はよく分からないため、たとえば「スイッチ」を選択する前に「スイッチ」の上にマウスのポインターを置くと「切り替えスイッチ」「ロータリースイッチ」等の詳細表示をエクセルのコメントとように表示させ、それを確認して入力者は選択をする。見たいな感じのことはできないのでしょうか？分かる人がいたら教えてください。よろしくお願いします。

  • テキストボックスのデフォルト設定とコンボボックスの更新について

    テキストボックスのデフォルト設定とコンボボックスの更新について エクセルのＶＢＡで、ユーザーフォームを使用しています。 ユーザーフォームの中にはコンボボックスとテキストボックスとボタンがあります。 コンボボックスには「ＡＢＣＤＥＦＧＨＩＪＫＬＭ」と合計13のリストがあります。 ユーザーフォーム起動時に、コンボボックスには最初のリスト(Ａ)が表示 されていて、「次へ」ボタンと「戻る」ボタンの２つを用意しています。 (1)ユーザーフォーム起動時にテキストボックスに「0」を入れる方法を教えていただけないでしょうか。 コンボボックスで「Ａ」が選択された状態で「次へ」ボタンをおしたら「Ｂ」が選ばれる。 「Ｄ」が選択された状態で「次へ」ボタンをおしたら「Ｅ」が選ばれる。 「Ｍ」が選択された状態で「次へ」ボタンをおしたら「Ａ」が選択される。（リストの最初に戻る。） というのは、次のＶＢＡで上手くいきました。 If Combobox1.ListIndex < Combobox1.ListCount - 1 Then Combobox1.Text = Combobox1.List(Combobox1.ListIndex + 1) Else Combobox1.Text = Combobox1.List(0) End If (2)しかし「Ｅ」が選択された状態で「戻る」ボタンをおしたら「Ｄ」が選ばれる。 「Ｇ」が選択された状態で「戻る」ボタンをおしたら「Ｆ」が選ばれる。 「Ａ」が選択された状態で「戻る」ボタンをおしたら「Ｍ」が選ばれる。（リストの最後に戻る。） といった内容のマクロがうまく組めません。 教えていただけると助かります。

  • Excel VBA コンボボックスについて

    Excel VBA コンボボックスを作成しましたが、リンクを張ってあるデータ文字数が多いと、指定したサイズのコンボボックスよりはみ出て、すべて見ることができません。 Excelの「折り返して表示」のように表示するためには、どのようにしたらいいのでしょうか。 また、 この質問の参考になる、サイトなどありましたら、教えてください。

  • エクセル　VBA コンボボックスで検索

    エクセルVBA初心者です。 シート1行目には工場名、2行目に見出し、3行目からデータが記入されています。 2行目に見出しとして、A列には作業者名、B列に工事番号、C列から作業時間などが記入されています。 ユーザーフォームにコンボボックス、コマンドボタンを設置し、コンボボックスには工事番号一覧が表示されるようにするところまではできましたが、コンボボックスで工事番号を選択し、コマンドボタンを実行することで、１シート内の一致する行だけを表示したいのですが、いろいろなサイトを参考に試してみたのですがうまくいきませんでした。 同じ内容のシートが複数ありますが、シート毎での検索・抽出をしたいと考えています。 どのようなコードを作成したら良いのかご教授願えたら幸いです。 よろしくお願い致します。

  • コンボボックスからテキストボックスに連続して値を出したい

    エクセルVBAのユーザーフォームで、コンボボックスで選択したものをコマンドボタンを押すことで、同じフォーム上のテキストボックスに表示するところまではできたのですが、同じテキストボックスに追記する形でコンボボックスで選択したものを表示したいのですが、可能でしょうか。テキストボックスは複数行表示できるようにプロパティのMultiLineはTlueに設定することはしたのですが、2回目以降コンボボックスで選択した後コマンドボタンを押してもそのまま上書きするようなコードしかわかりません。 テキストボックスに、20回目まで選択項目を追加表示し、最後にはエクセルのシートにそのデータをコピーしたいのです。果たして、そのようなことは可能でしょうか。可能であればどのように記述すればよいのでしょうか。ぜひ諸先輩方のお知恵をお貸しください。よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する