ExcelVBAのシートをリストボックスに取り込みたい

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
ExcelVBAでシートの内容をそのままリストボックスの中に反映させるテストをしています。

http://officetanaka.net/excel/vba/tips/tips158.htm

を参考に６列８行あるデータをリストボックスの中に反映させようとしても１列の値のみだけしか反映
されません。

本当は６列８行をそのまま取り込みたいのですが、どのようにすれば良いかわかりません。

発生している問題・エラーメッセージ

特になし

該当のソースコード

Private Sub CommandButton1_Click()
   ListBox1.List = Range(Range("A1"), Cells(Rows.Count, 1).End(xlUp)).Value
End Sub

補足情報（FW/ツールのバージョンなど）

Excel２０１９　VBA

Answer 1

まずは、リストボックスのプロパティの ColumnCount を 6 に設定してください。
これでリストボックスが６列になります。

次に、下記のようにコードを修正してください。

Private Sub CommandButton1_Click()
   ListBox1.List = Range(Range("A1"), Cells(Rows.Count, 6).End(xlUp)).Value
End Sub

これで１列目から６列目のデータが表示されるはずです。

A1からデータのある範囲をすべて表示したい場合は、下記のようなコードでもOKです。

Private Sub CommandButton1_Click()
   ListBox1.List = Range("A1").CurrentRegion.Value
End Sub

Comments

[webillion]

ご回答、ありがとうございます。コードをそのまま貼り付けてみましたが、やはりリストボックスには一列目しか表示されませんでした。

[webillion]

結果は一列目だけが表示され、２列目以降がブランクのままでした。

[hatena19]

リストボックスのプロパティの ColumnCount を 6 に設定というのは、確実にしましたか。
２つめのコードは試してみましたか。それはどうなりました。

[webillion]

リストボックスのプロパティの ColumnCount を 6 に設定というのは、確実にしましたが、結果は一列だけ反映されます。また、２つ目のコードも同様にコピペして保存、実行したところ、結果は一列だけ反映されます。

[hatena19]

現在アクティブなシートのA1からF8(６列８行)に確実にデータがある
ユーザーフォームのリストボックスの幅は十分広い。
以上を確認したうえで、下記のコードを試してみてください。

Private Sub CommandButton1_Click()
　ListBox1.ColumnCount = 6
　ListBox1.ColumnWidths = "1cm;1cm;1cm;1cm;1cm;1cm"
　ListBox1.List = Range("A1:F8").Value
End Sub

どうなりますか。

[webillion]

ありがとうございます。６行８列がきちんと反映されました。文字の幅は調整できそうです。何が原因だったのでしょうか。

[hatena19]

> 何が原因だったのでしょうか。
ユーザーフォームのデザイン画面でのColumnCountプロパティの設定がうまくいっていなかったぐらいしか、想像つかないですね。

どちらにしてもうまくいってよかったです。