EXCELVBA リストボックスで選択項目を全部表示したい

リストボックスに２０位の選択項目を入れました。
初期には”選択してください。”と表示されています。▼ボタンで項目を表示すると上部半分位しか表示されません。
項目全部を表示するにはプロパティのどこをどう指定すればよいでしょうか？

質問者からの補足コメント

• ユーザフォーム上のリストボックスです。

    補足日時：2020/02/07 17:56

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2020/02/08 00:03

こんばんは、

＞ユーザフォーム上のリストボックスです。
のようですが、どうせなので色々あるの回答します。

入力規則によるドロップダウンリストは、8つが最大表示の仕様です

シート上のフォームコントロール
リストボックス　サイズで変える
コンボボックス　オブジェクトの書式設定＞ドロップダウンリストの行数で変える

シート上のActiveXコントロール
リストボックス　サイズで変える　Heightプロパティ
コンボボックス　ListRowsプロパティ

UserForm上のフォームコントロール
リストボックス　サイズで変える　Heightプロパティ
コンボボックス　ListRowsプロパティ

各プロパティウインドウから出来ます。

VBAで設定する場合
シート上のActiveXコントロール
各オブジェクトがあるとします。
標準モジュール
Sub Sheet_ActiveXコントロール()
　　With Worksheets("Sheet1").ComboBox1
　　　　.ListRows = 25
　　End With
　　With Worksheets("Sheet1").ListBox1
　　　　.Height = 430
　　End With
End Sub

UserForm上のフォームコントロール
各オブジェクトがあるとします。
対象UserFormモジュール（例）
Private Sub UserForm_Initialize()’例
　　With UserForm1.ComboBox1
　　　　.ListRows = 25
　　End With
　　With UserForm1.ListBox1
　　　　.Height = 400
　　End With
End Sub

サンプルVBAは、各オブジェクトがなければ、エラーになります。
数値に関しては暫定値です。
私は、この様にしています。参考まで

この回答へのお礼

ListboxのListLowsに表示したい件数を設定すればいいのですね？
うまく表示されました。
ありがとうございます。

お礼日時：2020/02/10 23:45

No.1 回答者： よろずやkinchan 回答日時： 2020/02/07 16:33

データの入力規則のリスト

シート上のフォームコントロールのリストボックス あるいは コンボボックス
シート上のActiveXコントロールのリストボックス あるいは コンボボックス
ユーザーフォーム上のリストボックス あるいは コンボボックス

のどれの話でしょうか？