• 締切済み

コンボボックスのリスト内容表示の仕方

エクセル マクロ VBA の質問です。ユーザーフォーム（UserForm1)にあるコンボボックス(ComboBox1)にリストを表示したいのですが。 全部という項目と（これはできてます） エクセルのシートA4からA列の空白行までの値を項目として表示したいのですが、いまいちうまくいきません。 教えていただけると助かります。

みんなの回答

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.1

開いているブックで、Sheet1のA4:A８に 東京 大阪 福岡 鹿児島 沖縄 とあるとします。コンボのアイテムに使います。 ユーザーフォーム１を挿入し１つコンボボックスを貼り付けます。 Userform1のコードで Private Sub UserForm_Initialize() d = Range("A200").End(xlUp).Row MsgBox d UserForm1.ComboBox1.RowSource = "a4:A" & d End Sub を作ります。 ("A200").は適当に、データがありえない下の方のセルでよい。 MsgBox dは確認用です。一度確認したら抹消のこと。 最下行を捉えるコードも定石だし RowSourceもプロパティを出せばわかるし 何も新しく知る事項は無いですよ。 上記はVBAでの話で、VBとVBAの違いはAdditemなどで違いがある。

tacong
質問者

お礼

ありがとうございます。上記の方法で解決しました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

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

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

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

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

  • コンボボックス　値をもっと表示させたい

    アクセスならフォームのプロパティに「リスト行数」と日本語で書いてあるから探しやすいのですが エクセルフォームのコンボボックスのリスト行数を変更するにはどうすればいいでしょうか？　 VBE画面でプロパティを見ても探せません。 Private Sub UserForm_Initialize() Me.ComboBox1.RowSource = "a1:a20" End Sub としたのですが、スクロールしないと、8行目までしか表示されません。 ２０行目まで表示させる方法をご教授ください。

  • VBA コンボボックス項目追加？

    エクセル　VBA　コンボボックスの項目入荷についてですが 入力フォームを開いたときに Private Sub UserForm_Activate() ComboBox1.AddItem ("本社") ComboBox1.AddItem ("東京支社") ComboBox1.AddItem ("大阪支社") End sub のようにコンボボックスに項目をだすことはわかったのですが、 フォームをを開いたときにワークシートを全てを自動で 項目に表示する方法はありますでしょうか？ 宜しくお願いいたします。

  • VBA コンボボックス　リスト表示について

    初心者ですいません エクセル　VBAのフォームでコンボボックス３つと、テキストボックス３つがあります シートのListにA～Ｆ列までのデータがあり、コンボボックス１にA列のリストを表示し コンボボックス２にA列で選んだリストを参照したB列のリストを表示し、コンボボックス３ にコンボボックス１，２で選んだリストを参照し、C列のリストを表示した後、 コンボボックス１，２，３で選ばれたもののD列、E列分をテキストボックス１，２に 反映しようと思っておりますがうまくいきません どのようにしたらよいか、おしえてください 宜しくお願いします ちなみに、リストの内容は Ａ列　　　Ｂ列　　　C列　　　　　Ｄ列　　　Ｅ列 テレビ　42インチ　　HDD内蔵　　台　　　　100,000 テレビ　32インチ　　BD内蔵　　　台　　　　　80,000 テレビ　19インチ　　　　　　　　　 台　　　　　50,000 ビデオ　HDD　　　１TB　　　　　台　　　　100,000　　 ビデオ　HDD　　　500GB　　　 台　　　　　80,000 ビデオ　BD　　　　　　　　　　　 台　　　　　70,000 が、入ってます 希望は、質問の際のカテゴリ選択のようになればよいのですが．．． さらに、希望を言えば、自動で、行ごとに1,2,3...と番号を振るようにしており スピンボタンで番号を選べば、登録された上記のデータをフォームに反映させるようにしております これもうまくいきません お願いばかりで申し訳ありませんが 宜しくお願いします

  • Excel VBA　リストボックスの複数列表示の方法について

    すいません、エクセルVBAのユーザーフォームのリストボックスの表示方法について質問があります。 シートのセルに 　　 A列 　 D列　　　G列 1行 りんご　　赤　　　120円 2行　みかん　　黄　　　130円 3行　すいか　　緑 110円 4行　りんご　　赤 160円 . ・・・　　・　　　・・・ . と、50行まで値を入れます。 VBAでユーザーフォームを挿入し、 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "りんご" .AddItem "みかん" .AddItem "すいか" End With End Sub でコンボボックスの値を設定し、次に Private Sub ComboBox1_Change() Dim i As Integer For i = 1 To 50 If Cells(i, 1).Value = ComboBox1.Value Then With ListBox1 .ColumnCount = 3 .AddItem Cells(i, 1) End With End If Next i End Sub このときコンボボックスと同じ値の行について、 リストボックスにA列、D列、G列を表示させるにはどうしたらいいのでしょうか。 例えばコンボボックスで「りんご」を選択したときに、 リストボックスを りんご　赤　120円 りんご　赤　160円 と表示させたいのですが、 .AddItem Cells(i, 1) では一列だけしか表示できません。 Rowsorceを使ってみたりしましたが、どうにもうまく出来ませんでした。 よろしくお願いいたします。

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

    テキストボックスのデフォルト設定とコンボボックスの更新について エクセルのＶＢＡで、ユーザーフォームを使用しています。 ユーザーフォームの中にはコンボボックスとテキストボックスとボタンがあります。 コンボボックスには「ＡＢＣＤＥＦＧＨＩＪＫＬＭ」と合計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)しかし「Ｅ」が選択された状態で「戻る」ボタンをおしたら「Ｄ」が選ばれる。 「Ｇ」が選択された状態で「戻る」ボタンをおしたら「Ｆ」が選ばれる。 「Ａ」が選択された状態で「戻る」ボタンをおしたら「Ｍ」が選ばれる。（リストの最後に戻る。） といった内容のマクロがうまく組めません。 教えていただけると助かります。

  • エクセル　マクロ　コンボボックスリスト

    sheet1の場所でボタンクリックでフォーム表示。その中でコンボボックスリストを作成。 sheet3にデーターをA列に作りました。 １）フォームの中のコンボボックスをクリックしてリスト表示させた　い。マクロの記述を教えてください。 ２）コンボボックスリストに表示した文字をsheet2に記録するボタンを作ったがマクロの記述を教えてください。

  • コンボボックスの初期表示について

    コンボボックスの初期表示についてですが、 試験できる環境がないため、以下の認識で正しいか教えてください。 コンボボックス1行目を表示 ComboBox1.SelectedIndex = 0 コンボボックス2行目を表示 ComboBox1.SelectedIndex = 1 空白を表示 ComboBox1.SelectedIndex = null or "" 文字を表示 ComboBox1.SelectedIndex = "表示"

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

    よろしくお願いします。 今、ユーザーフォームを使って製造計画表を作っています。 コンボボックスで会社名、リストボックスで会社ごとの製品名を選択させるとこまで出来ました。 １日に３つの製品を作ることが出来るので、同じ中身のコンボボックス、リストボックスを使って３つ作りたいと思っています。 ユーザーフォームの形的にはこのような感じですが。 １．　コンボボックス　　リストボックス ２．　コンボボックス　　リストボックス ３．　コンボボックス　　リストボックス 今は、１．のとこだけは出来たのですが、２．３．は１．と同じコードをコピーして必要と思われるとこだけをコンボボックス２と変えたりしてみたのですが、上手くいきませんでした。こんなコードですが。 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 ＶＢＡも初めたばかりで質問の内容もわかりづらいとも思いますが、よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する