查询显示的问题，请各位老师帮忙，非常感谢

hqlin65

查询显示的问题，请各位老师帮忙，非常感谢，目前点击“入库”键时显示所有销售编号的资料。我希望点击“入库”键时显示销售编号中只含带“RK”字符的各项资料。请帮忙！谢谢

shiruiqiang

醉眼看尘世

1. Private Sub UserForm_Initialize()
   
2. 
   
3.     Brr = Sheet1.Range("B6:m" & [B65536].End(xlUp).Row + 1)
   
4.     x = Application.CountIf(Sheet1.Range("C:C"), "*RK*")
   
5.     ReDim Arr(1 To x, 1 To 4)
   
6.     x = 0
   
7.     For i = 1 To UBound(Brr, 1)
   
8.         If Brr(i, 3) Like "*RK*" Then
   
9.             x = x + 1
   
10.             For j = 1 To 4
    
11.                 Arr(x, j) = Brr(i, j)
    
12.             Next j
    
13.         End If
    
14.     Next i
    
15.    
    
16.     With Me.ListBox1
    
17.         .List = Brr
    
18.     End With
    
19. End Sub

复制代码

试下行不？注意:listBox，不需要那么多列

醉眼看尘世

shiruiqiang 发表于 2024-8-13 22:07

List多了些无效行

醉眼看尘世

刚才代码有问题，更正如下：

1. Private Sub UserForm_Initialize()
   
2. 
   
3.     Brr = Sheet1.Range("B6:m" & [B65536].End(xlUp).Row + 1)
   
4.     x = Application.CountIf(Sheet1.Range("C:C"), "*RK*")
   
5.     ReDim Arr(1 To x, 1 To 4)
   
6.     x = 0
   
7.     For i = 1 To UBound(Brr, 1)
   
8.         If Brr(i, 2) Like "*RK*" Then
   
9.             x = x + 1
   
10.             For j = 1 To 4
    
11.                 Arr(x, j) = Brr(i, j)
    
12.             Next j
    
13.         End If
    
14.     Next i
    
15.    
    
16.     With Me.ListBox1
    
17.         .List = Arr
    
18.     End With
    
19. End Sub

复制代码

hqlin65

shiruiqiang 发表于 2024-8-13 22:07

非常感谢，虽然 List多了些无效行，但也很好了，再次谢谢您！

shiruiqiang

shiruiqiang

既然有要求，修正一下

shiruiqiang

hqlin65

shiruiqiang 发表于 2024-8-13 22:37
既然有要求，修正一下

很棒！！！！，但里面有个小问题，当点击“查询”时，每点一次就增加一倍上去，不是清空后重新显示。

在窗体里面查询的语句中，我忘记删除：Sheet1.Range("B6:m20000" & lastrow).ClearContents '清空单元格
您可以先删除后试一下。谢谢！！