[[20170801143018]]　『1004アプリケーション定義エラーについて』（ゆみこ）　ページの最後に飛ぶ

『1004アプリケーション定義エラーについて』（ゆみこ）

お世話様です
教えていただけたら　幸いです

ユーザーフォーム上リストボック１のリスト配置を
A列データを配置したいのですが
エラ-が出てしまいます

何処がいけないのでしょうか
ご指導お願いいたします

Private Sub UserForm_Initialize()
Dim r As Variant

   Set r = Worksheets("Sheet3").Range("A1:A" & Range("A" & Rows.Count).End(xlUp))
         ListBox1.List = r.Value

End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 Set r = Worksheets("Sheet3").Range("A1:A" & Range("A" & Rows.Count).End(xlUp))
 を
 Set r = Worksheets("Sheet3").Range("A1:A" & Worksheets("Sheet3")Range("A" & Rows.Count).End(xlUp))
 とするか
 With Worksheets("Sheet3")
     Set r = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp))
 End With
 ではどうか。

（ねむねむ） 2017/08/01(火) 14:42

 >Worksheets("Sheet3").Range("A1:A" & Range("A" & Rows.Count).End(xlUp))

 Worksheets("Sheet3").Range("A1:A" & Worksheets("Sheet3").Range("A" & Rows.Count).End(xlUp).row)

or

 Worksheets("Sheet3").Range("A1", Worksheets("Sheet3").Range("A" & Rows.Count).End(xlUp))
（BJ） 2017/08/01(火) 14:46

 被ったが。

 見落とし。
 Range("A" & Rows.Count).End(xlUp)
 は
 Range("A" & Rows.Count).End(xlUp).Row
 か。
（ねむねむ） 2017/08/01(火) 14:47

 Range("A" & Rows.Count).End(xlUp)
 だと親シートが指定されていないため、その時にアクティブなシートを対象としてしまう。
 アクティブなシートがSheet3で有ればいいが違った場合はSheet3以外のシートのA列の最終行を探すことになってしまう。
（ねむねむ） 2017/08/01(火) 14:50

むねむね様
BJ　様

有難う御座いました

指定を最後まで掛けないといけないのですね

勉強になりました
（ゆみこ） 2017/08/01(火) 14:52

コメント返信：

[ 一覧(最新更新順) ]

[[20170801143018]] 『1004アプリケーション定義エラーについて』（ゆみこ） ページの最後に飛ぶ

[[20170801143018]]　『1004アプリケーション定義エラーについて』（ゆみこ）　ページの最後に飛ぶ