ListViewから項目を削除するときのVBAランタイムエラー35600

Question

ランタイムエラー35600「範囲外のインデックス」に関して助けを求めます。

Multicolumn-ListViewからCombobox-Valueと一致しないすべてのアイテムを削除しようとしています。 しかし、削除プロセス中、私のコードは、listitems-indexが選択された項目のインデックスより小さいPointに達したようです。

どのように私はそれを解決することができます知っていますか？ここでの私の感想は次のとおりです。

Private Sub ComboBox1_Change() 

Dim i As Integer 
Dim strSearch As String 

strSearch = Me.ComboBox1 

For i = 1 To ListView1.listItems.Count 
    If Me.ListView1.listItems(i).SubItems(3) = strSearch Then 
     Me.ListView1.listItems(i).Checked = True 
    End If 
Next i 
For i = 1 To ListView1.listItems.Count 
    If ListView1.listItems(i).Checked = False Then 
     Me.ListView1.listItems.Remove (ListView1.selectedItem.Index) 
    End If 
Next i 

End Sub 

Answer 1

あなたは（これだけ第二のループのために）逆の順序でそれらを削除してみてください。リスト項目の数よりも（多くのおそらくカウンタは、すべてのループの後に再評価されていないため、高すぎる数の原因要素の数よりも高くなる

For i = ListView1.listItems.Count To 0 Step -1 

：私は基本的に、それがどのように見えると思いますその結果、インデックスの範囲外の例外が発生する）。

Answer 2

'Removing part 
With ListView1 
    For i = .ListItems.Count To 1 Step -1 
     If Not .ListItems(i).Checked Then 
      .ListItems.Remove i 
     End If 
    Next 
End With