vba窗体查询数据后在listview显示

阿撩

哪位大神来帮我一下，查询了显示不出来，是定义数组的过程错了？

鄂龙蒙

工作表保护时要先解开密码的呀

YZC51

请参考

1. Sub cx()
   
2.     Application.ScreenUpdating = False
   
3.     Dim endrow As Long
   
4.     Dim i As Long, j As Long
   
5.     Dim r As Long
   
6.     Dim flag As Boolean
   
7.     ActiveSheet.Unprotect
   
8.     Range("A7:O" & Rows.Count).ClearContents
   
9.     Range("A7:O" & Rows.Count).Borders.LineStyle = xlNone
   
10.     r = 6
    
11.     With Sheet4
    
12.         endrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    
13.         For i = 3 To endrow
    
14.             flag = True
    
15.             If Range("A3") <> "" And Range("A3") <> .Cells(i, "A") Then
    
16.                 flag = False
    
17.             End If
    
18.             If Range("B3") <> "" And Range("B3") <> .Cells(i, "B") Then
    
19.                 flag = False
    
20.             End If
    
21.             If Range("C3") <> "" And Not .Cells(i, "E") Like "*" & Range("C3") & "*" Then
    
22.                 flag = False
    
23.             End If
    
24.             If Range("D3") <> "" And Not .Cells(i, "N") Like "*" & Range("D3") & "*" Then
    
25.                 flag = False
    
26.             End If
    
27.             If flag = True Then
    
28.                 r = r + 1
    
29.                 For j = 1 To 15
    
30.                     Cells(r, j) = .Cells(i, j)
    
31.                 Next
    
32.             End If
    
33.         Next
    
34.     End With
    
35.     ActiveSheet.Protect
    
36.     Application.ScreenUpdating = True
    
37. End Sub

复制代码