リストボックス

HOME >>リストボックス

今回はリストボックスについて書いていきます。

リストボックスはネットを使っていれば見た事はあると思います。

リスト項目が選択できるものですね。

例として簡単な物を作ってみます。

リストボックスは「コントロール」の部品から「リストボックス」を選択してください。

設置したい場所に設置します。

今回はＡ６のセルに入力した内容を「追加」ボタンを押すと登録

Ｃ６の番号の値をリストボックスから削除する処理を作ります。

追加処理

'ボタンの名前　+　_Ｃｌｉｃｋ
Private Sub button_Click()
'リストボックスにアイテムを追加する
ListBox1.AddItem (Range("A6").Value)

End Sub

Ａｄｄｉｔｅｍで追加できます。

削除処理

'ボタンの名前　+　_Ｃｌｉｃｋ
Private Sub button_Click()
Dim i As Integer
i = Range("C6").Value - 1
'リストボックスからアイテムを削除する
ListBox1.RemoveItem (i)
End Sub

他によく使うメソッドとしてクリアー処理があります。

Ｃｌｅａｒで初期化されます。

これをしないとどんどん追加されていきます。

その他のプロパティとしては

・LinkedCell
　選択したリストの値を指定したセルに出力します
　 ListBox1.LinkedCell = "Ｂ３"

・ListCount
　リストのカウントを返します。
　変数=ListBox1.ListCount

・ListFillRange
　セル範囲でリストの中身を設定します
　ListBox1.ListFillRange = "D2:D12"

次はコンボボックスについて書いていきたいと思います。