VBAコンボボックスの内容が反映されない

超初心者で、申し訳ございません。下記のようなコードを入力しましたが、
プルダウンは動くのですが、選択することが出来ません。誤りを指摘していただきたく、ご教授の程よろしくお願いします。

Private Sub UserForm_Initialize()
With MainForm.ComboBox1
.List = Sheets("data").Range("A2:A11").Value
.ListIndex = 0
End With

Private Sub ComboBox1_Change()
With MainForm.ComboBox1
.List = Sheets("data").Range("A2:A11").Value
.ListIndex = 0
End With
End Sub

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2008/02/11 12:08

＞.List = Sheets("data").Range("A2:A11").Value

は、コンボボックスに選択用のデータをセットする事。

＞.ListIndex = 0

は、リストのデータを０番目（未選択）に設定すること。

ComboBox1_Change() イベントは、リストのデータが選択（変更）された時に機能するものです。
事前にUserForm_Initializeでデータのセットも初期化もされているので、同様のコードは不要です。

ComboBox1_Change()では、選択されたリストのデータを取得して何をしたいのかを記述する部分です。

この回答へのお礼

ListIndex = 0を削除したら、無事に回避できました。
超初心者の質問、ご回答ありがとうございました。

お礼日時：2008/02/11 13:32

No.2 回答者： dsuekichi 回答日時： 2008/02/11 12:12

> プルダウンは動くのですが、選択することが出来ません。

Changeイベントで、Initializeイベントと同じ事をしているんですから、
当然、毎回リセット（先頭を、選択し直し）されますよね・・・