コンボボックスのリスト作成

ひで 2004-03-02 15:15:19 No: 82348 IP: [192.*.*.*]

教えて下さい。
別シートにデータリストのようなものを作り、そこからデータを取得し、コンボボックスのリストを作成したいのです。
そのデータリストには随時データが追加されますので、コンボボックスのリストを開く度にリストは再作成しています。
そのため、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

編集削除

□Ｄ 2004-03-03 16:18:15 No: 82349 IP: [192.*.*.*]

単純ですけど、フラグで管理しては

Private Sub ComboBox1_DropButtonClick()
    Static MenuDown As Boolean
    MenuDown = MenuDown Xor True
    If Not MenuDown Then Exit Sub

    ' ここに処理をいれる

End Sub

編集削除