即効テクニック |
リストボックスのリストから行を削除するには、RemoveItemメソッドを使います。 サンプルマクロでは、Selectedプロパティでリストボックスの現在の選択状況を取得して、選択されている行を削除しています。 フォームにリストボックス「 ListBox1」とコマンドボタン「CommandButton1」を配置して下さい。フォームが開かれる時に発生するイベント「Initialize」では、リストボックスのリストにAddItemメソッドを使って項目を追加しています。 コマンドボタンがクリックされた時に発生するイベント「Click」では、リストボックスで選択されている行を削除しています。フォームを表示して、リストボックスの項目を選択後、コマンドボタンをクリックして確認してください。
Private Sub UserForm_Initialize() ListBox1.AddItem ("AAA") ListBox1.AddItem ("CCC") ListBox1.AddItem ("DDD") End Sub
Private Sub CommandButton1_Click() Dim i As Integer For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) Then ListBox1.RemoveItem (i) Exit For End If Next i End Sub