Question

我创建了一个用户窗体，该窗体在打开时会在名为lstNewDisplay的列表框中显示工作簿（单元格A到H）中的数据我下面有一段代码，该代码根据在文本框txtNewSearch中输入的值过滤数据我想创建一个按钮，该按钮可以删除从列表框lstNewDisplay中选择的行，并将该行从工作表的行中删除。该按钮将需要能够删除已过滤和未过滤数据的行。我尝试了一些不同的代码来使它工作，但是当数据被过滤时，它将删除错误的行。但是，我已经成功删除了未过滤的行。如果无法让代码同时删除已过滤和未过滤的数据，我宁愿从列表框和工作簿中删除已过滤的数据行。

很抱歉，如果我不能很好地解释这一点，那么我对通过和学习一直很陌生。

感谢您提供的任何帮助。

Private Sub CommandButton6_Click()
lstNewDisplay.RowSource = ""
lstNewDisplay.Value = ""
Dim i As Long
On Error Resume Next
Me.lstNewDisplay.Clear
For i = 2 To Application.WorksheetFunction.CountA(Sheet2.Range("A:A"))
For x = 1 To 8
a = Len(Me.txtNewSearch.Text)
If Left(Sheet2.Cells(i, x).Value, a) = Me.txtNewSearch.Text And Me.txtNewSearch.Text <> "" Then
Me.lstNewDisplay.AddItem Sheet2.Cells(i, 1).Value
For c = 1 To 8
Me.lstNewDisplay.List(lstNewDisplay.ListCount - 1, c) = Sheet2.Cells(i, c + 1).Value
Next c
End If
Next x
Next i
End Sub

Answer 1

所以，这就是我想出的...尝试一下，看看它对您有用。我不得不修改您的大多数代码。

要实现您的目标，我要做的第一件事就是更改Private Sub UserForm_Activate()事件，因为您可能正在使用lstNewDisplay.RowSource =为列表框分配范围，这是我们需要知道列表中的每一行是从工作表的哪一行开始的，这样我们以后就可以告诉excel要删除的工作表的那一行。

所以我的活动看起来像这样...

注意：我正在使用集合全局变量来保留工作表行以供以后使用。

Option Explicit
Private coll As Collection
Private Sub UserForm_Activate()

 Dim LastRow As Long
 Dim a As Long
 Dim b As Long
 Dim i As Long

 LastRow = Sheets("Filter").Cells(Rows.Count, "A").End(xlUp).Row
 Set coll = New Collection

 a = 0
 b = 1

 For i = 2 To LastRow

 coll.Add i
 With Me.lstNewDisplay

 .AddItem
 .List(a, 0) = Sheets("Filter").Cells(i, 1)
 .List(a, 1) = Sheets("Filter").Cells(i, 2)
 .List(a, 2) = Sheets("Filter").Cells(i, 3)
 .List(a, 3) = Sheets("Filter").Cells(i, 4)
 .List(a, 4) = Sheets("Filter").Cells(i, 5)
 .List(a, 5) = Sheets("Filter").Cells(i, 6)
 .List(a, 6) = Sheets("Filter").Cells(i, 7)
 .List(a, 7) = Sheets("Filter").Cells(i, 8)

 End With

 b = b + 1
 a = a + 1

 Next

End Sub

这就是我编码过滤器按钮的方式...

Private Sub btnFiltered_Click()

  Dim LastRow As Long
  Dim LastColumn As Long
  Dim c As Range
  Dim a As Long
  Dim b As Long
  Dim firstaddress As String

  If Me.txtNewSearch.Text <> "" Then

  Set coll = New Collection
  Me.lstNewDisplay.RowSource = ""
  Me.lstNewDisplay.Clear

  LastRow = Sheets("Filter").Cells(Rows.Count, "A").End(xlUp).Row
  LastColumn = Sheets("Filter").Cells(2, Columns.Count).End(xlToLeft).Column

  a = 0
  b = 0

  With Sheets("Filter").Range(Cells(2, 1), Cells(LastRow, LastColumn))
  Set c = .Find(Me.txtNewSearch.Text, LookIn:=xlValues, LookAt:=xlWhole)

  If Not c Is Nothing Then
  firstaddress = c.Address

   Do

   With Me.lstNewDisplay
  .AddItem

  .List(a, 0) = Sheets("Filter").Cells(c.Row, 1)
  .List(a, 1) = Sheets("Filter").Cells(c.Row, 2)
  .List(a, 2) = Sheets("Filter").Cells(c.Row, 3)
  .List(a, 3) = Sheets("Filter").Cells(c.Row, 4)
  .List(a, 4) = Sheets("Filter").Cells(c.Row, 5)
  .List(a, 5) = Sheets("Filter").Cells(c.Row, 6)
  .List(a, 6) = Sheets("Filter").Cells(c.Row, 7)
  .List(a, 7) = Sheets("Filter").Cells(c.Row, 8)

  a = a + 1

  End With

  coll.Add c.Row

  Set c = .FindNext(c)

  If c Is Nothing Then
  GoTo DoneFinding
  End If

  Loop While c.Address <> firstaddress
  End If

DoneFinding:
  End With

  End If


End Sub

最后是删除按钮...

Private Sub btndelete_Click()

Dim i As Long
Dim a As Long
Dim item As Variant

For i = 0 To Me.lstNewDisplay.ListCount - 1

If Me.lstNewDisplay.Selected(i) Then

For a = 1 To coll.Count

If Sheets("Filter").Cells(coll.item(a), 1).Text = Me.lstNewDisplay.List(i, 0) And Sheets("Filter").Cells(coll.item(a), 8).Text = Me.lstNewDisplay.List(i, 7) Then

Me.lstNewDisplay.RemoveItem (i)
Sheets("Filter").Rows(coll.item(a)).EntireRow.Delete
coll.Remove (a)
Exit For

End If

Next

End If

Next

End Sub

VBA，如何从列表框中的工作表中删除筛选的数据

1 个答案: