Excelマクロのコンボボックスに関して

質問

マクロを初めて扱います。
どなたか詳しい方、ご教授ください。

Excelのシート上にActiveXのコンボボックスを作成しました。
このコンボボックスに同じブックの別シートのＡ列のX行目からY行目までを格納したいと考えております。

どうかコードの書き方をお教えいただけませんでしょうか？

回答No.3

myRange · ベストアンサー

>Excelのシート上にActiveXのコンボボックスを作成しました

ActiveXコントロールとありますので
フォームツールバーのコントロールと区別はついてるわけですね。
ま、別に確認するようなことでもないですが。。。(^^;;;

■Sheet１上に、Combobox1　があるものとする

（１）Sheet２のＡ１からＡ９までのデータをセットする場合

Sheets("Sheet1").ComboBox1.List = Sheets("Sheet2").Range("A1:A9").Value

（２）Sheet２のＡ１からＡ列データ最終行をセットする場合
　　　（要するにＡ列のデータが増減する場合）

Dim LastRow As Long
LastRow = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Sheet1").ComboBox1.List = Sheets("Sheet2").Range("A1:A" & LastRow).Value

（３）増減しても上記のようにするのは面倒な場合
　　　（要するに、Ａ列全てを対象にする場合）

Sheets("Sheet1").ComboBox1.List = Sheets("Sheet2").Range("A:A").Value

■（２）の方法をお勧めします。
以上です。

お礼

最終行をセットしたかったので（２）の方法で実現しました。
言葉足らずで失礼しました。
ありがとございました。

回答No.2

kmetu

コンボボックスのリストをＡ列のX行目からY行目で取りたいと言うことでしょうか
でしたらプロパティのListFillRangeで設定できますよ。

参考
http://officetanaka.net/excel/function/tips/tips05.htm

参考URL：

http://officetanaka.net/excel/function/tips/tips05.htm

お礼

ありがとうございます。
最終行をセットしたかったので今回は別方法をとらせて頂きました。
言葉足らずですみませんでした。

回答No.1

xls88

例えば、下記のようなことでどうでしょうか。
ActiveSheet.OLEObjects("ComboBox1").ListFillRange = "Sheet2!A1:A10"

お礼

ありがとうございます。
最終行をセットしたかったので今回は別方法をとらせて頂きました。
言葉足らずですみませんでした。