关于按条件查询的问题 大家进来帮帮忙啊 谢谢了

mye680

如何按照编码 或 名称 验收日期 出库日期条件进行查询，可按单个条件也可多条件，还有日期查询可以设置几号到几号这一点时间的入库物资或出库物资。高手帮忙看看吧

zxsea_7426

这个使用sql最方便，可惜我不会。

mye680

zxsea_7426 发表于 2023-2-11 20:28
这个使用sql最方便，可惜我不会。

没关系 再看看高手有办法吗

wang-way

1. Sub wang-way()
   
2.     arr = Sheet1.Range("a1").CurrentRegion.Value
   
3.     With Sheet2
   
4.         Key = .Range("b1").Value
   
5.         If Key <> "" Then
   
6.             .UsedRange.Offset(2).Clear
   
7.             r = 2
   
8.             For i = 2 To UBound(arr)
   
9.                 ar = WorksheetFunction.Index(arr, i, 0)
   
10.                 txt = Join(ar, ",")
    
11.                 If InStr(txt, Key) > 0 Then
    
12.                     r = r + 1
    
13.                     .Cells(r, 1).Resize(1, UBound(arr, 2)).Value = ar
    
14.                 End If
    
15.             Next i
    
16.         End If
    
17.     End With
    
18. End Sub
    

复制代码

mye680

感谢高手 我试试