Excel VBAコンボボックスについて

はじめまして、コンボボックスで選択したデータをセルに書き出すプログラムを作成しております。
コンボボックスプロパティのListFillRangeで範囲を指定していますが、途中空白のセルがあるため、空白セルまでコンボボックスに取り込まれてしまいます。
このListFillRangeの範囲を設定したまま、空白はコンボボックスに取り込まないようにする方法ってあるんでしょうか？？お分かりになる方いらっしゃいましたら、お願い致します。

No.1 ベストアンサー 回答者： KenKen_SP 回答日時： 2004/11/16 18:30

こんにちは。

Excelのバージョンはお書きになった方が良いと思います。

＞コンボボックスプロパティのListFillRangeで範囲を指定しています

ここが良くわからなかったのですが、VBAコンボボックスとのことですから、ユーザーフォームに貼り付けたComboBoxコントロールかと思います。
次のプロシージャをUserForm_Initializeイベントなどでコールするのでは、ダメですか？

'コンボボックスにアイテム追加
Private Sub SetComboboxItem()

　　Dim rngSRC As Range
　　Dim rngCEL As Range
　　Dim cmbCtl As Control

　　'コンボボックスコントロール
　　Set cmbCtl = Me.ComboBox1
　　'データ範囲
　　Set rngSRC = ActiveSheet.Range("A1:A7")

　　'初期化
　　cmbCtl.Clear
　　'アイテム追加
　　For Each rngCEL In rngSRC
　　　　With rngCEL
　　　　　　If .Value <> "" Then '空なら追加しない
　　　　　　　　cmbCtl.AddItem CStr(.Value)
　　　　　　End If
　　　　End With
　　Next rngCEL
　　Set rngSRC = Nothing
　　Set cmbCtl = Nothing

End Sub

はずしていたら、すみません。

この回答へのお礼

ご回答ありがりがとうございます。シート上にあるコンボボックスを作りました。UserFormを作る程でもなかったので、一番簡単な方法でやっていました。上記のソースは今後の参考にさせて頂きたいとおもいます。ありがとうございました。

お礼日時：2004/11/16 21:09

No.2 回答者： imogasi 回答日時： 2004/11/16 19:27

色々やって見ましたが駄目のようですね。

範囲名（名前の定義）使用も許してくれない。
「空白行を無視する」みたいな設定はないでしょう。
（１）スペース行を飛ばして、本来の項目設定方法AddItemを使って、設定する。
（２）別列にスペース行を除いたデータ列を作る。
（注　関数でも出来ます）
そして出来あがった列を対象にListFillRangeで範囲を指定する。

この回答へのお礼

ありがとうございます。
「空白行を無視する」みたいな設定はないでしょう。
プロパティでそういう設定が有ればと思ったのですが。。
あまり、データ量を多くしたくなかったのですが、仕方ないですね。こちらの方法でやってみますね。ありがとうございました。

お礼日時：2004/11/16 21:10