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

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

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

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

No.3 ベストアンサー 回答者： myRange 回答日時： 2009/08/04 21:05

>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


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

この回答へのお礼

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

お礼日時：2009/08/07 17:30

No.2 回答者： kmetu 回答日時： 2009/08/04 20:37

コンボボックスのリストをＡ列のX行目からY行目で取りたいと言うことでしょうか

でしたらプロパティのListFillRangeで設定できますよ。

参考
http://officetanaka.net/excel/function/tips/tips …

参考URL：http://officetanaka.net/excel/function/tips/tips …

この回答へのお礼

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

お礼日時：2009/08/07 17:33

No.1 回答者： xls88 回答日時： 2009/08/04 19:47

例えば、下記のようなことでどうでしょうか。

ActiveSheet.OLEObjects("ComboBox1").ListFillRange = "Sheet2!A1:A10"

この回答へのお礼

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

お礼日時：2009/08/07 17:32