◆◆MS-Excel2000スキルアップ講座/VBA編◆◆

コントロールツールボックスのコンボボックスへセルの値を追加する

ワークシート上にコントロールツールボックスのコンボボックスを作ってそこにセルに入力済みのデータを入れたい場合の例を説明します。

コマンドボタンのクリックなりワークシートのアクティベートなり所望のイベントを拾って、

Private Sub CommandButton1_Click()
    Dim i As Integer

    ComboBox1.Clear

    For i = 0 To 9
        ComboBox1.AddItem (i)
        ComboBox1.List(i) = Sheets("Sheet1").Cells(i + 1, 1)
    Next i
End Sub

とすると目的の動作になります。（上の例ではリストに加えたいデータが Sheet1 の A1 から A10 のセルにある場合です）