リストボックスのリストをシートのセル範囲で表示する

質問

リストボックスのリストをシートのセル範囲で表示する
おはようございます。
朝から行き詰っています。
リストは、シートのセル範囲で列の離れたリストを複数表示させる。

下のようにしたのですが、うまくできません。
よろしくアドバイスをお願いします。

With ListBox2
.ColumnCount = 3
.ColumnWidths = "150;150;150"
.RowSource = "受注物件!C5:D，F5：F" & Worksheets("受注物件").Cells(Rows.Count, 5).End(xlUp).Row
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
End With

回答No.1

hige_082 · ベストアンサー

＞リストは、シートのセル範囲で列の離れたリストを複数表示させる。
列の離れたリストは次のように処理します

With ListBox2
.ColumnCount = 4
.ColumnWidths = "150;150;0;150"
.RowSource = "受注物件!C5:F" & Worksheets("受注物件").Cells(Rows.Count, 5).End(xlUp).Row
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
End With

参考まで

お礼

ありがとうございました。
解決できました。