求帮助

caijiaqian

Private Sub TextBox1_Change()
    Dim Arr() As Variant
    Dim LastRow As Long, Count As Long, i As Long
    LastRow = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
    ReDim Arr(1 To 7, 1 To LastRow)
    Count = 1
    For i = 1 To LastRow
        If Sheet1.Cells(i, "A") = TextBox1.Text Then
            Arr(1, Count) = Cells(i, "A")
            Arr(2, Count) = Cells(i, "B")
            Arr(3, Count) = Cells(i, "C")
            Arr(4, Count) = Cells(i, "D")
            Arr(5, Count) = Cells(i, "E")
            Arr(6, Count) = Cells(i, "F")
            Arr(7, Count) = Cells(i, "G")
            Count = Count + 1
        End If
    Next
    ReDim Preserve Arr(1 To 7, 1 To Count)
    ListBox1.ColumnCount = 7
    ListBox1.List = Application.Transpose(Arr)
End Sub
问题1：显示不出标题   问题2：TextBox1_Change()后 通过CommandButton1_Click() 激活 问题3：添加textBOX2~3~4~5~6等查询条件实行多条件查询 4 如何添加设置listBOX 行高 列宽  居中 问题5 listbox统计出查询结果多少条  6 给listbox结果填充表格线！麻烦大神帮忙修改下

hzruziniu

要求提了一大堆，连个文件都懒得发，神仙也帮不了你。