listview отражает только отфильтрованные данные

Question

Я хочу показывать только отфильтрованные данные, но нижеприведенная кодировка извлекает все данные из электронной таблицы.

В представлении списка должны отражаться только данные, в которых значение столбца A соответствует textbox1.text. Пожалуйста помогите.

Dim item As ListItem 
Dim linhafinal As Integer 

ListView8.ListItems.Clear 

linhafinal = k + 1 

For i = 2 To linhafinal 
    Set item = ListView8.ListItems.Add(, , ws1.Cells(i, 1)) 
    item.ListSubItems.Add Text:=ws1.Cells(i, 2) 
    item.ListSubItems.Add Text:=ws1.Cells(i, 3) 
    item.ListSubItems.Add Text:=ws1.Cells(i, 4) 
    item.ListSubItems.Add Text:=ws1.Cells(i, 5) 
    item.ListSubItems.Add Text:=ws1.Cells(i, 6) 
    item.ListSubItems.Add Text:=ws1.Cells(i, 7) 
    item.ListSubItems.Add Text:=ws1.Cells(i, 8) 
    item.ListSubItems.Add Text:=ws1.Cells(i, 9) 
    item.ListSubItems.Add Text:=ws1.Cells(i, 10) 
Next 

Answer 1

Вы перебираете весь диапазон и добавляете его в список и, следовательно, получаете все данные. Проверьте, соответствует ли значение TextBox1.Text, а затем добавьте их.

Это вы пытаетесь (Непрошеный)?

Dim item As ListItem 
Dim linhafinal As Integer 

ListView8.ListItems.Clear 

linhafinal = k + 1 

For i = 2 To linhafinal 
    If ws1.Cells(i, 1).Value = TextBox1.Text Then 
     Set item = ListView8.ListItems.Add(, , ws1.Cells(i, 1)) 
     item.ListSubItems.Add Text:=ws1.Cells(i, 2) 
     item.ListSubItems.Add Text:=ws1.Cells(i, 3) 
     item.ListSubItems.Add Text:=ws1.Cells(i, 4) 
     item.ListSubItems.Add Text:=ws1.Cells(i, 5) 
     item.ListSubItems.Add Text:=ws1.Cells(i, 6) 
     item.ListSubItems.Add Text:=ws1.Cells(i, 7) 
     item.ListSubItems.Add Text:=ws1.Cells(i, 8) 
     item.ListSubItems.Add Text:=ws1.Cells(i, 9) 
     item.ListSubItems.Add Text:=ws1.Cells(i, 10) 
    End If 
Next 

Альтернативно, после фильтрации диапазона, проведите через видимый диапазон и затем добавьте их в список. В настоящее время вы добавляете все коды ...