- ベストアンサー
コンボボックス 値をもっと表示させたい
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
コンボボックスを選択し、ListRows プロパティを20にしてみてください。 ComboBox1.ListRows = 20
関連するQ&A
- 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をつくったら名前が適切でありませんとエラーがでました。 どのようにしたらいいですか？教えてください。
- ベストアンサー
- オフィス系ソフト
- コンボボックスにリストが表示されません・・・
ユーザーフォーム(UserForm)にコンボボックス(ComboBox1)を作ってリストを入れました。 しかしユーザーフォームを実行してもコンボボックスに何もリストが出てきません。 なにが悪いのでしょうか？チュートリアルどおりにやっているのですが・・・(T T) Private Sub UserForm_Initialize() With ComboBox1 .AddItem "東京" .AddItem "名古屋" .AddItem "福岡" End With End Sub Windows2000+Excel2000です。
- ベストアンサー
- オフィス系ソフト
- 同じコンボボックスを二つ以上作る方法
今同じ内容を表示するコンボボックスを二つ作ろうと思っているのですがつくり方がわかりません。 どのようにすれば一つのプログラムで二つのコンボボックスを作れるのでしょうか 例： 表示では はい いいえ プログラム： 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つ操作できると思うのですがどのようにすればよろしいでしょうか？
- ベストアンサー
- Visual Basic
- フォームのリストボックスに値を表示させたい
VBA フォームのリストボックスに値を表示させたい Ａ１→aaa Ａ２→bbb リストボックスに上記の値を表示させたいなら、 Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "Sheet1!A1:A2" End Sub で出来ますが、シート上のセルで表示する値を指定するのではなく、ＶＢＡ上で、リストボックスに表示させる値を指定したいのです。 Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "aaa,bbb" End Sub を実行すると、VBA実行時エラー380になってしまいます。 UserForm1.ListBox1.RowSource = "aaa;bbb" もダメでした。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ユーザーフォームのコンボボックスでINDIRECT関数を使うにはどのよ
ユーザーフォームのコンボボックスでINDIRECT関数を使うにはどのようにすればいいでしょうか？ Private Sub UserForm_Initialize() Me.ComboBox1.RowSource = "sheet1!B1:C1" ComboBox2 = "=INDIRECT(?)" End Sub ComboBox1で種類のリストが表示され、選んだ項目により ComboBox2のリストが表示されるようにしたいのですが うまくいきません。 1 2 3 4 A 種類 果物 野菜 B 果物 りんご たまねぎ C 野菜 いちご ピーマン D みかん レタス （すべて名前を定義しています。） VBAでINDIRECT関数を使うにはどのようにすればよいでしょうか？
- ベストアンサー
- オフィス系ソフト
- A1：C1のデータをコンボボックスに表示したい
度々失礼します。 図のように 横に表示されている値を コンボボックスに縦に表示する事は不可能でしょうか？ コンボボックスには あ い う と縦に表示したいです。 Private Sub UserForm_Initialize() Me.ComboBox1.RowSource = "a1:c1" End Sub をやっても 図のように「あ」しか表示されません。 行列入れ替え機能みたいなのがあればなって思っています。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- シート上のリストボックスに値を表示するには？
エクセル２００３です。 コントロールツールボックスからシートにリストボックスを設置しました。 ここに値を指定するにはどうすればいいでしょうか？ フォーム上のリストボックスなら Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "Sheet1!a2:a3" End Sub とすればいいのですが シートのイベントにInitializeはありません。 どこのイベントプロシージャーに 「リストボックスに値を表示する」というコードを書けばいいのでしょうか？ シートモジュールにに Private Sub ListBox1_Click() UserForm1.ListBox1.RowSource = "Sheet1!a2:a3" End Sub としても何も起こりません。 できればファイルを開いた時からリストボックスに値を表示させるようにしたいです。 ご教授よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAのコンボボックスに取り込むリストについて
すいません、EXCEL VBAのコンボボックスにデータを取り込む方法について教えていただきたいことがあります。 (1)「シート１」のＡ列にデータが入力されている (2)ユーザーフォームにコンボボックスを設置し、このＡ列のデータを取り込む。 このときにＡ列に入っているデータの数だけ取り組むにはどうしたらいいのでしょうか。 シート１ Ａ列 １行 １１ ２行 ２１ ３行 ３１ ・ ・ ・ ・ Private Sub UserForm_Initialize() ComboBox1.RowSource = Sheets("シート１").Range("？") End Sub ？の部分がわかりません。End(xlup)のようなものを使ってデータが入っている最後の行を調べるのかと思いましたが、どうもうまくいきませんでした。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 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 日だけを表示する方法をご教授ください
- ベストアンサー
- オフィス系ソフト
- リストボックスのスクロールバーをマウスで動かしたい
エクセル２００７です。 Sheet1のA列に 1行目から順に 1 2 3 4 5 6 7 8 9 10 といれました。 ユーザーフォームを新規作成し、リストボックスを設置しました。 VBAコードは、 Private Sub UserForm_Initialize() Me.ListBox1.RowSource = "Sheet1!a1:a10" End Sub にしました。 VBE画面でF5を押して、フォームを表示させるとリストボックスにスクロールバーが表示されますが、 フォームをクリックして、マウスホイールでぐりぐりしても、リストは動きません。 画像のように、４にカーソルをあて、グリグリしてもダメです。 どうしたら動くようになるのでしょうか？
- ベストアンサー
- オフィス系ソフト
お礼
プロパティのListRowsを見てみたら、８になってました。 うまく行きました。ご回答ありがとうございました。