VBA ユーザーフォーム リストボックス

質問

教えてください。
現在下記のようなコードでリストボックスに対象セルの値を表示しています。
Private Sub UserForm_Initialize()
ListBox1.List = Range(Range("M5"), Cells(Rows.Count, 14).End(xlUp)).Value
End Sub

この時、例えば別シート（仮にsheet3）のセルを表示したい場合
どのようにすればいいでしょうか？
ListBox1.List = sheets("sheet3").Range(Range("M5"), Cells(Rows.Count, 14).End(xlUp)).Value
としてもエラーになってしまいます。

よろしくお願いします。

回答No.1

HohoPapa · ベストアンサー

提示のコードを踏襲するのでれば

　With ThisWorkbook.Sheets("sheet3")
　　ListBox1.List = Range(.Range("M5"), .Cells(Rows.Count, 14).End(xlUp)).Value
　End With

こんな感じと思います。

お礼

ありがとうございます。
目的が果たせました。

回答No.2

SI299792

ListBox1.List = Range(Sheets("sheet3").Range("M5"), Sheets("sheet3").Cells(Rows.Count, 14).End(xlUp)).Value
ですね。前の方の回答でもいいです。
なぜこうなるか、次のように分解すればわかると思います。
　　Set Cell1 = Sheets("sheet3").Range("M5")
　　Set Cell2 = Sheets("sheet3").Cells(Rows.Count, 14).End(xlUp)
　　ListBox1.List = Range(Cell1, Cell2).Value
’
１つの式にまとめると、バグの元です。私ならこうします。
'
　　Dim Row As Long
'
　　Row = Sheets("sheet3").Cells(Rows.Count, "N").End(xlUp).Row
　　ListBox1.List = Range("sheet3!M5:N" & Row).Value
エラーが出ても変数Row を見ればどこが悪いかわかるからです。

お礼

ご丁寧な解説までしていただき本当にありがとうございます。
また一つ勉強になりました。