マクロでコンボボックスのリストの設定方法

前へ 次へ
このQ&Aのポイント
  • マクロを使ってExcelのコンボボックスにリストを設定する方法について教えてください。
  • 他のワークブックから参照する場合、ワークブックを開く必要があるのか教えてください。
  • ワークブックを開かずに値を参照する方法があれば教えてください。
回答を見る
  • ベストアンサー

マクロでコンボボックスのリストの設定について

マクロを記述しているワークブック内では UserForm.ComboBox1.RowSource = "D2:D" & Range("D65536").End(xlUp).Row とすると希望通りのリストがコンボボックスに入るのですが、 他のワークブックからの参照ができないので教えてください。 C:\Documents and Settings\taro\デスクトップ にあるワークブック（abc.xls)のsheet1のD列をコンボボックスに入れるにはどのように書けばいいですか？ 最初に WorkBoooks.open = (ThisWorkbook.path & "\abc.xls") などを記入する必要がありますか？ できればワークブックを開けることなく値を参照したいです。 よろしくお願いします。

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

  • ベストアンサー
  • popesyu
  • ベストアンサー率36% (1782/4883)
回答No.1

RowSourceを使うのであれば開かざるを得ません。そういう仕様です。 下記はBook1が開かれた状態でしたら動作します。 ListBox1.RowSource = "'[Book1.xls]Sheet1'!A1:A10" 他の方法としてはブックを開いても非表示にしておくとか、あるいは透過させる方法や、セルを直接参照させるとかその辺の方法で開くことなく（開いたと見せかけずに）値を参照させることはできます。 具体的な方法は「VBA　workbooks.open 非表示」あたりで検索されてください。

nanasupra
質問者

お礼

ありがとうございます。そういう仕様なんですね。。。 "'[Book1.xls]Sheet1'!A1:A10"　は "'[Book1.xls]Sheet1!'A1:A10"　とやっていたのでできなかったようです。 それだけでも大変勉強になりました。ありがとうございます。

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

関連するQ&A

  • 同じコンボボックス、リストボックスを使うには？

    よろしくお願いします。 今、ユーザーフォームを使って製造計画表を作っています。 コンボボックスで会社名、リストボックスで会社ごとの製品名を選択させるとこまで出来ました。 １日に３つの製品を作ることが出来るので、同じ中身のコンボボックス、リストボックスを使って３つ作りたいと思っています。 ユーザーフォームの形的にはこのような感じですが。 １．　コンボボックス　　リストボックス ２．　コンボボックス　　リストボックス ３．　コンボボックス　　リストボックス 今は、１．のとこだけは出来たのですが、２．３．は１．と同じコードをコピーして必要と思われるとこだけをコンボボックス２と変えたりしてみたのですが、上手くいきませんでした。こんなコードですが。 Private Sub UserForm_initialize() 'ComboBox1セット Dim ico As Long ico = 1 With ThisWorkbook.Worksheets("Sheet1") Do While .Cells(1, ico) <> "" Me.ComboBox1.AddItem .Cells(1, ico).Value ico = ico + 1 Loop End With Me.ComboBox1.SetFocus End Sub Private Sub ComboBox1_Change() 'ListBox1セット Dim ico As Long 'Me.ListBox1.Clear ico = Me.ComboBox1.ListIndex + 1 With ThisWorkbook.Worksheets("Sheet1") Me.ListBox1.List = .Range(.Cells(2, ico), _ .Cells(.Cells(Rows.Count, ico).End(xlUp).Row, ico)).Value End With End Sub ＶＢＡも初めたばかりで質問の内容もわかりづらいとも思いますが、よろしくお願いします。

  • VBA コンボボックスの条件分岐

    コンボボックスの条件分岐のコードが間違っているみたいで 調べても分からなかったので質問します。 やりたいこと 『マスタ』という名前のシート内のセルを参照し マスタシートには C2セル『A』C3セル『B』C4セル『C』と それぞれアルファベットがあります。 そこでコンボボックスを使用し コンボボックス22にC2～C4セルを選択できるようにし 例えばC2セルを選択したら コンボボックス21の参照範囲をマスタシート内の D2～D13セルを選択できるようにし C3セルを選択したら コンボボックス21の参照範囲をマスタシート内の E2～E13セルを選択できるようにしたいのです。 すいませんがコードを記載して頂けますと 助かります。 Private Sub UserForm_Activate() '----------------------- With ComboBox22 .ColumnCount = 2 .ColumnWidths = "90;10" .RowSource = "マスタ!C2:C4" End With '↑こうすればコンボボックス22のマスタシートのC2からC4まで値を選択できるようになります。 '------------------------わかりやすく区切っています。 '--------------------------------------- If UserForm1.ComboBox22 = "A" Then With ComboBox21 .ColumnCount = 2 .ColumnWidths = "90;10" .RowSource = "マスタ!D2:D13" End With End If '↑コンボボックス22の値が（C２セルの値がAなら）コンボボックス21をマスタシートのD2からD13までを選択できるようにしたい If UserForm1.ComboBox22 = "B" Then With ComboBox21 .ColumnCount = 2 .ColumnWidths = "90;10" .RowSource = "マスタ!E2:E13" End With End If '↑コンボボックス22の値が（C3セルの値がBなら）コンボボックス21をマスタシートのE2からE13までを選択できるようにしたい '----------------------------------------区切っています。 End Sub

  • Excel　コンボボックス2つ以上の時のコード

    ユーザーフォームでコンボボックスを2つ作ったのですが、1つだけのときはうまくいったのですが、二つ目をつくったら、エラーが出てしまいました。 コード入力は、Initializeに入力してあります。 Private Sub UserForm_Initialize() ComboBox1.Style = fmStyleDropDownCombo ComboBox1.RowSource = "sheet1!F2:F7" ComboBox1.ListIndex = -1 End Sub Private Sub UserForm_Initialize() ComboBox2.Style = fmStyleDropDownCombo ComboBox2.RowSource = "sheet2!B2:B3" ComboBox2.ListIndex = -1 End Sub コンボボックス1だけはうまくいったのですが、コンボボックス2をつくったら名前が適切でありませんとエラーがでました。 どのようにしたらいいですか？教えてください。

  • EXCEL VBAのコンボボックスに取り込むリストについて

    すいません、EXCEL VBAのコンボボックスにデータを取り込む方法について教えていただきたいことがあります。 (1)「シート１」のＡ列にデータが入力されている (2)ユーザーフォームにコンボボックスを設置し、このＡ列のデータを取り込む。 このときにＡ列に入っているデータの数だけ取り組むにはどうしたらいいのでしょうか。 シート１ 　　　Ａ列 １行　１１ ２行　２１ ３行　３１ 　・　　　・ 　・　　　・ Private Sub UserForm_Initialize() ComboBox1.RowSource = Sheets("シート１").Range("？") End Sub ？の部分がわかりません。End(xlup)のようなものを使ってデータが入っている最後の行を調べるのかと思いましたが、どうもうまくいきませんでした。 よろしくお願いします。

  • エクセルマクロについて　コンボボックスについて

    コンボボックスについて質問が２つあるのですが、 １．コンボボックスのリストに、シートに記載の値や文字を採用するにつき、 プロパティのRowSourceに、B1:B100 と記述しますが、 ＡＢＣと複数シートがありまして、どのシートからコンボボックスを起動しても、ＡシートのＢ１～Ｂ５を指定したい場合、プロパティのRowSourceはどのような記述をしたらよいのでしょうか？ ２．UserFormで入力を制御したいのですが、その中に複数入力項目がありまして、その都度全部入力することはありません。 たとえば、元金、利息、月々返済額と３つある場合で、月々返済額だけ変更して、元金、利息は前の数値をそのままで入力したいとき、どのような工夫（記述）をしたらよいでしょうか？ 言い方を変えますと、UserFormを起動したときは、前回入力したそれぞれの数値がUserFormに表示されているようにしたいのです。 ちなみにエクセル２００３、ＯＳ＝ＸＰです。 どうかよろしくお願いします。

  • コンボボックスにリストが表示されません・・・

    ユーザーフォーム(UserForm)にコンボボックス(ComboBox1)を作ってリストを入れました。 しかしユーザーフォームを実行してもコンボボックスに何もリストが出てきません。 なにが悪いのでしょうか？チュートリアルどおりにやっているのですが・・・(T T) Private Sub UserForm_Initialize() With ComboBox1 .AddItem "東京" .AddItem "名古屋" .AddItem "福岡" End With End Sub Windows2000+Excel2000です。

  • win7 コンボボックス複数配置

    VBA初心者です。 ユ－ザ－フォ－ムにてコンボボックスを３箇所配置し、それぞれ別シ－トを参照しＡ列にコンボ１、Ｂ列にコンボ２、Ｃ列にコンボ３にするにはどうしたらいいでしょうか、教えてください。 Private Sub UserForm_Initialize() Dim i As Integer combobox1.Clear For i = 1 To Worksheets("項目デ－タ").Cells(Rows.Count, 1).End(xlUp).Row combobox1.AddItem Worksheets("項目デ-タ").Cells(i + 2, 1).Value Next End Sub この文章は１つはできますが2つ3つ・・・の文章がわかりません。お願いします。 エクセル2010を使用してます。

  • EXCEL　VBAのコンボボックスで日だけを表示する方法

    EXCELのVBAを使って経費の打ち込みをするマクロを作っています その中で、コンボボックスで日付を選択するようにしました コンボボックスに表示する日付はセルから「RowSource」で取り出しました セルの日付の入力形式は「2008/10/1」です そのセルの書式設定で表示形式を「ユーザー定義で d (日だけ表示)」としています なので、コンボボックスで選択して表示する際も日だけを表示したいのですがうまくいきません ComboBox1 = Format(ComboBox1, "d") とすると、コンボボックス内で数字がちらちらしてランダムに数字が表示されてしまいます ComboBox1 = Format(ComboBox1, "m月d日") この形だと、きちんと「10月1日」の様に表示されます Private Sub UserForm_Initialize() With ComboBox1 .RowSource = "sheet1!A1:A5"　'日付のセル End With End Sub Private Sub ComboBox1_Change() ComboBox1 = Format(ComboBox1, "m月d日") End Sub 日だけを表示する方法をご教授ください

  • 同じコンボボックスを二つ以上作る方法

    今同じ内容を表示するコンボボックスを二つ作ろうと思っているのですがつくり方がわかりません。 どのようにすれば一つのプログラムで二つのコンボボックスを作れるのでしょうか 例： 表示では はい いいえ プログラム： Private Sub UserForm_Initialize() ComboBox1.AddItem "はい" ComboBox1.AddItem "いいえ" End Sub Private Sub UserForm_Initialize() ComboBox2.AddItem "はい" ComboBox2.AddItem "いいえ" End Sub ↑のような作り方ではなく簡略化して Private Sub UserForm_Initialize() ComboBox●.AddItem "はい" ComboBox●.AddItem "いいえ" End Sub ●部を変更できれば一つのプログラムでコンボボックスを2つ操作できると思うのですがどのようにすればよろしいでしょうか？

  • コンボボックスのクリア方法について教えて下さい（vb6.5）

    コンボボックスのクリア方法について教えて下さい（vb6.5） ComboBox1で選択したものによって、 ComboBox2で表示するものを変えたいと思っています。 ただ、一度ComboBox1で選択した後にComboBox2を開くと、 ComboBox2は前回のものがどんどん足されていきます。 コンボボックスのクリア方法について、 どの様にすればよいかご教示のほど、 宜しくお願い致します。 Private Sub ComboBox1_Change() UserForm1.ComboBox2.RemoveItem (0) If ComboBox1.Text = 1 Then UserForm1.ComboBox2.AddItem "A" UserForm1.ComboBox2.AddItem "B" UserForm1.ComboBox2.AddItem "C" ElseIf ComboBox1.Text = 2 Then UserForm1.ComboBox2.AddItem "D" UserForm1.ComboBox2.AddItem "E" UserForm1.ComboBox2.AddItem "F" Else UserForm1.ComboBox2.AddItem "G" UserForm1.ComboBox2.AddItem "H" UserForm1.ComboBox2.AddItem "I" End If End Sub -------------------------------------- Private Sub UserForm_Initialize() UserForm1.ComboBox1.AddItem "1" UserForm1.ComboBox1.AddItem "2" UserForm1.ComboBox1.AddItem "3" End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する