EXCEL VBAのコンボボックスに取り込むリストについて

すいません、EXCEL VBAのコンボボックスにデータを取り込む方法について教えていただきたいことがあります。

(1)「シート１」のＡ列にデータが入力されている
(2)ユーザーフォームにコンボボックスを設置し、このＡ列のデータを取り込む。
このときにＡ列に入っているデータの数だけ取り組むにはどうしたらいいのでしょうか。

シート１
　　　Ａ列
１行　１１
２行　２１
３行　３１
　・　　　・
　・　　　・

Private Sub UserForm_Initialize()
ComboBox1.RowSource = Sheets("シート１").Range("？")
End Sub

？の部分がわかりません。End(xlup)のようなものを使ってデータが入っている最後の行を調べるのかと思いましたが、どうもうまくいきませんでした。
よろしくお願いします。

No.2 ベストアンサー 回答者： onlyrom 回答日時： 2008/04/24 22:27

>ComboBox1.RowSource = Sheets("シート１").Range("？")

これでは、”シート１”　がアクティブの場合しか上手くいきません。
シート１がアクティブでなくても上手く動作させるためには、シート名も付加すること。


リストが、Sheet2　の　A1～任意行までの場合
'------------------------------------------------------
Private Sub UserForm_Initialize()
　Dim LastRow As Long
　LastRow = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
　ComboBox1.RowSource = "Sheet2!A1:A" & LastRow
End Sub
'-------------------------------------------------------

また、リスト範囲の値を直に設定する方法もありますが、
それはも少し慣れてからでいいでしょう。
以上。
　

この回答へのお礼

できました！ありがとうございます！

ComboBox1.RowSource = "Sheet2!A1:A" & LastRow
の部分が自分は知らないコードで悪戦苦闘していました。
またよろしくお願いいたします。

お礼日時：2008/04/24 23:26

No.1 回答者： imogasi 回答日時： 2008/04/24 21:45

無理に（Sheet1は平凡なので）Sheet4のA1:A4に

x
y
z
d
と入れて
Private Sub UserForm_Initialize()
d = Worksheets("Sheet3").Range("A100").End(xlUp).Row
'sgBox d
Me.ComboBox1.RowSource = "A1:A" & d
End Sub
を作っておくと、
フォームを開くと
コンボに
x
y
z
d
が出ましたよ。
RowSourceはRange表示で指定なく、文字列表示指定のようだ。これも経験。

この回答へのお礼

できました。
Me.ComboBox1.RowSource = "A1:A" & d
というコードを知らなくて自分で色々と試してみましたが
どうしてもできませんでした。非常に助かります。
また何かありましたらよろしくお願いいたします。

お礼日時：2008/04/24 23:28