Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
テーブルの複数列のデータをリストボックスに登録する
投稿日時: 20/01/03 10:54:20
投稿者: manatsu

次のようなテーブルをリストボックスに登録するためプロシージャを書きました。
 
No. くだもの
1 りんご
2 みかん
3 バナナ
4 かき
5 メロン
 
Private Sub UserForm_Initialize()
    With ListBox1
        .List = Sheets(1).ListObjects(1).DataBodyRange.Value
    End With
End Sub
 
結果はNo.のカラムしか表示されず2列にはなりません。
どこがまずいのでしょうか?
よろしくお願いします。

回答
投稿日時: 20/01/03 11:05:40
投稿者: WinArrow
投稿者のウェブサイトに移動

↓のコードを追加すればよいかと
 
        .ColumnCount = Sheets(1).ListObjects(1).DataBodyRange.Columns.Count
 
※ColumnWidth を省略すると、見映えが悪くなる可能性があるから、検討してみてください。

投稿日時: 20/01/03 11:39:49
投稿者: manatsu

WinArrow様
 
ありがとうございます。
複数列の場合はColumnCountプロパティ設定しなければいけないということなのですね。ちょっと調べればわかるレベルの質問をあげてしまい恥ずかしいです。
新年早々お手を煩わせてしまい申し訳ありません。
VBAに趣味ではまっています。今後ともよろしくお願い致します。