エクセルＶＢＡコンボボックスについて

質問

リスト欄のセルA3から下方向に大分類（A16まで14種類）があります。
コンボボックス1に大分類をリスト化して選べるようにしたいと思っています。

しかし、(1)のようにＶＢＡを記入して、マクロを実行すると、コンボボックス1には、
大分類で14個あるリストの4つしか出てきません。
-(1)（抜粋）---------------------------------------------------------

Private Sub UserForm_Initialize()

Dim MyVar1 As Variant
MyVar1 = Sheets("リスト").Range("A3:A" & Range("A3").End(xlDown).Row)

------------------------------------------------------------------

(2)のように記述してマクロを実行すると、コンボボックス1には、14個全てが表示されます。
-(2)（抜粋）---------------------------------------------------------

Private Sub UserForm_Initialize()
Dim MyVar1 As Variant
MyVar1 = Sheets("リスト").Range("A3:A16")

------------------------------------------------------------------

原因がわかる方、いらっしゃいませんか？
出来れば、リスト欄のA列は14個よりも増える可能性があるので、Range("A3:A" & Range("A3")
.End(xlDown).Row)のような範囲の指定がしたいです。

なお、リストシートのＡ3を選択して、「Ctrl+↓」でA16が選択されました。

回答No.1

keithin · ベストアンサー

必ずシートの指定を忘れず行います。
つまり
MyVar1 = Sheets("リスト").Range("A3:A" & Sheets("リスト").Range("A3").End(xlDown).Row)
のようにしてみます。
肝心のマクロ実行時点で「リスト」シートが表に出ていないと，ご質問のように上手く行かない事が考えられます。

＃実際にはWith　End Withで囲って書く場合も多くあります。

＃しばしば，
with worksheets("リスト")
myvar1 = .range("A3:A" & .range("A65536").end(xlup).row)
end with
などのように，A3からCtrl+↓じゃなくA列下端からCtrl+↑で末端を取得するやり方をよくします。

＃参考：
worksheetfunction.countaなどでA3:A16なりA3:A100なりの大きな範囲を対象として，そこに一体何個データがあるのか数えて,それを使うようなやり方も考えられます。

お礼

無事に解決しました！

ありがとうございます。