コンボボックスの選択肢にエクセルの列を呼び出す

質問

質問させてください。
私はExcel2002、VB6.0を使用しています。
やりたいことは、

１、エクセルのA列内で記入されているセルをすべて検出
２、１で検出した文字をコンボボックスの選択肢に代入

以上となります。
基本的な操作かもしれませんが、いろいろ調べてみたのですがどうも見つからなくて困っています。
よろしくお願いします。

回答No.1

evil_lk · ベストアンサー

For i = 1 To 100
If Sheets("Sheet1").Cells(i, 1).Value <> "" Then
ComboBox1.AddItem (Sheets("Sheet1").Cells(i, 1))
End If
Next

とりあえず、１００行分。
空白だったら、抜けるという形も改造したらできます。

お礼

早速の回答ありがとうございます＾＾
なるほど、普通に範囲指定して検出してしまえばいいんですね。
たしかに、選択項目もそれほど大した数ではないのでコレで十分ですね。
ありがとうございました＾＾

回答No.3

don9don9

No.2です。
VB6.0でやるなら「VBレスキュー（花ちゃん）」というサイトが参考になりますよ。

参考URL：

http://hanatyan.sakura.ne.jp/

お礼

参考サイトありがとうございます＾＾
このサイト知りませんでした
参考にしたいと思います＾＾

回答No.2

don9don9

ExcelVBAでやりたいのですか？
VB6.0でやりたいのですか？

VB6.0でやりたいなら
・Excelを起動する
・ファイルを開く
・シートを選択する
という所から記述してやらないといけませんので。

お礼

ご指摘ありがとうございます＾＾
とりあえず、こちらのサイトを見て、起動、開く、シート選択の一連の流れは把握できそうなので、自力でがんばります！