[已解决]求助高手, listbox取值筛选问题

nyoyo

做了一个界面，listbox2取明细表当中的不重复值，然后点击当中的内容，在右边的listbox1当中筛选出符合条件的记录。。。
现在问题是，1、listbox2当中的取值如果太多的话，就做不到筛选，如附件中，点“名称24“的时候，不能筛选出结果。。。
                  2、当多次点击listbox，EXCEL出现“无法辩认的错误”信息
不知道怎么解决了，求助高手指教。

最佳答案

月排行榜 / 总排行榜

zjdh

2011-9-5 15:52

漏了以下红色字：
Private Sub ListBox2_Click()
    Dim cell As Range
    ListBox1.Clear
    Set x = Sheets("明细").Range("a2:a" & Sheets("明细").[a65536].End(xlUp).Row)
    With ListBox1
        .ColumnCount = 5
        .ColumnWidths = "45,80,45,30,30"
        .ListStyle = 1
        .MultiSelect = 1
        .BoundColumn = 1
    End With
    For Each cell In x
        If cell.Value = ListBox2.Text Then
            'MsgBox cell.Value
            'cell.Select
            ListBox1.AddItem
            For i = 0 To 4
                ListBox1.List(ListBox1.ListCount - 1, i) = cell.Offset(, i).Value
            Next
        End If
    Next cell
End Sub

跳转到最佳答案楼层

zjdh

漏了以下红色字：
Private Sub ListBox2_Click()
    Dim cell As Range
    ListBox1.Clear
    Set x = Sheets("明细").Range("a2:a" & Sheets("明细").[a65536].End(xlUp).Row)
    With ListBox1
        .ColumnCount = 5
        .ColumnWidths = "45,80,45,30,30"
        .ListStyle = 1
        .MultiSelect = 1
        .BoundColumn = 1
    End With
    For Each cell In x
        If cell.Value = ListBox2.Text Then
            'MsgBox cell.Value
            'cell.Select
            ListBox1.AddItem
            For i = 0 To 4
                ListBox1.List(ListBox1.ListCount - 1, i) = cell.Offset(, i).Value
            Next
        End If
    Next cell
End Sub

zjdh

以下几句绿色的是多余的：
Private Sub UserForm_Initialize()
Dim lastcell As Integer, rindex As Integer
Worksheets("明细").Activate
lastrow = [a65536].End(xlUp).Row
rid = Range(Cells(1, 1), Cells(lastrow, 5)).Address
UserForm1.ListBox1.RowSource = rid
.........................

nyoyo

回复 zjdh 的帖子

谢谢了，解了我的燃眉之急