コンボボックスのリスト作成 (ID:82348)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 教えて下さい。 別シートにデータリストのようなものを作り、そこからデータを取得し、コンボボックスのリストを作成したいのです。 そのデータリストには随時データが追加されますので、コンボボックスのリストを開く度にリストは再作成しています。 そのため、DropButtonClickでリストを作成させました。 しかし。。 このイベントって、リストを開いたときも閉じたときも発生するんですね。 そのため、せっかくリストから選択し、BOXに表示されても消えてしまうんです。 以下にソースを付加します。 どうかアドバイスお願いします。。 Private Sub ComboBox1_DropButtonClick() Max = 4 Do If (Sheets("会社名一覧").Cells(Max, 2) = "") Then Exit Do End If Max = Max + 1 Loop ComboBox1.Clear For i = 4 To Max If (Sheets("会社名一覧").Cells(i, 2) <> "") Then Sheets("受注表発行").ComboBox1.AddItem Sheets("会社名一覧").Cells(i, 2) End If Next i End Sub