根据查询条件来精确/模糊查询

绿色心情小天使

各位好：
      用VBA根据查询条件：编码、名称、规格，和查找方式：精确/模糊来筛选已有的物料行。
请参阅附件，谢谢！
0813-B.rar (8.34 KB, 下载次数: 45)

2020-8-13 06:32 上传

点击文件名下载附件

丸子不是小孩子

模拟一下结果吧

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, mark, i, j, m, t
  arr = Range("a7:d" & Cells(Rows.Count, "a").End(xlUp).Row).Value
  mark = [a2:a4].Value '条件区
  t = [d4].Value '匹配方式
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(mark, 1)
      If Len(mark(j, 1)) Then '空为true
        If t = "精确" Then
          If mark(j, 1) <> arr(i, j) Then Exit For
        Else
          If InStr(arr(i, j), mark(j, 1)) = 0 Then Exit For
        End If
      End If
    Next
    If j = UBound(mark, 1) + 1 Then
      m = m + 1
      For j = 1 To UBound(arr, 2)
        arr(m, j) = arr(i, j)
      Next
    End If
  Next
  With [f7]
    .Resize(UBound(arr, 1), UBound(arr, 2) + 1).ClearContents
    .Resize(UBound(arr, 1)).NumberFormatLocal = "@"
    If m > 0 Then .Resize(m, UBound(arr, 2)) = arr
  End With
End Sub

绿色心情小天使

一把小刀闯天下 发表于 2020-8-13 07:01
Option Explicit

Sub test()

不符我意，根据条件筛选在原表格区域中，如下图。

zpy2

绿色心情小天使 发表于 2020-8-13 07:26
不符我意，根据条件筛选在原表格区域中，如下图。

SELECT rowid,* FROM 物料模糊查询明细表 WHERE regexp('304.*1000',[物料编码]||[物料名称]||[物料规格]||[库存数量])

组合字段查询一下

yech20

zpy2 发表于 2020-8-13 08:22
SELECT rowid,* FROM 物料模糊查询明细表 WHERE regexp('304.*1000',[物料编码]||[物料名称]||[物料规格] ...

这个好高级的

一把小刀闯天下

绿色心情小天使 发表于 2020-8-13 07:26
不符我意，根据条件筛选在原表格区域中，如下图。

Option Explicit

Sub test()
  Dim arr, mark, i, j, m, t
  Application.ScreenUpdating = False
  Rows(7).Resize(10 ^ 4).Hidden = False
  arr = Range("a7:d" & Cells(Rows.Count, "a").End(xlUp).Row).Value
  mark = [c2:c4].Value '条件区
  t = [d4].Value '匹配方式
  For i = UBound(arr, 1) To 1 Step -1
    For j = 1 To UBound(mark, 1)
      If Len(mark(j, 1)) Then '空为true
        If t = "精确" Then
          If mark(j, 1) <> arr(i, j) Then Exit For
        Else
          If InStr(arr(i, j), mark(j, 1)) = 0 Then Exit For
        End If
      End If
    Next
    If j < UBound(mark, 1) + 1 Then Rows(i + 6).Hidden = True
  Next
  Application.ScreenUpdating = True
End Sub

zpy2

yech20 发表于 2020-8-13 08:43
这个好高级的

http://club.excelhome.net/forum. ... =1503981&mobile
马马虎虎，如果数据多，速度应该还行。

绿色心情小天使

一把小刀闯天下 发表于 2020-8-13 08:45
Option Explicit

Sub test()

大神你好；
我测试了下，在条件区域中名称“钢”；规格“1219”，结果下面筛选出来的有2个不符要求。
在完整按钮下，显示整个清单。
下面为测试下有误。
我重新上传附件。
0813-B.rar (14.12 KB, 下载次数: 21)

2020-8-13 22:33 上传

点击文件名下载附件

zpy2

绿色心情小天使 发表于 2020-8-13 22:15
大神你好；
我测试了下，在条件区域中名称“钢”；规格“1219”，结果下面筛选出来的有2个不符要求。
...

是不是instr对*有点敏感，也可以试试sql 。。。