多选条件查询

w84322665

请大神帮忙完成多选条件查询VBA，黄色区域是可以输入数据的查询条件。附上素材。

LMY123

http://club.excelhome.net/forum. ... &extra=page%3D1

iwangyi

Sub ado()
Set CN = CreateObject("adodb.connection")
CN.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;EXTENDED PROPERTIES=EXCEL 8.0;DATA SOURCE=" & ThisWorkbook.FullName
Sql = "SELECT * FROM [SHEET1$A1:G10] WHERE 发生日期 BETWEEN # " & Cells(15, 3) & " # AND  # " & Cells(15, 5) & " #  and 收支摘要= '" & Cells(16, 3) & "' and 收支金额 between  " & Cells(17, 3) & " and  " & Cells(17, 5) & " And 备注 = " & Cells(18, 3) & " AND 月份 between " & Cells(19, 3) & " AND " & Cells(19, 5) & " AND  收支类型 ='" & Cells(20, 3) & "'"
Range("A22").CopyFromRecordset CN.Execute(Sql)
End Sub

iwangyi

楼主的 备注，月份字段举例为 数字型，而实际当中特别是备注多为字符，须将  备注 = " & Cells(18, 3) & "
改为 备注 =‘ " & Cells(18, 3) & " ’ 由数字型变量变为字符性变量

iwangyi

附件***********

一把小刀闯天下

Option Explicit

Sub test()
  Dim brr, i, j, n, arr
  brr = [b15].CurrentRegion
  brr(4, 4) = brr(4, 2): brr(6, 4) = brr(6, 2): brr(8, 4) = brr(8, 2)
  arr = [a1].CurrentRegion: n = 1
  For i = 2 To UBound(arr, 1)
    For j = 2 To UBound(arr, 2)
      If Len(brr(j + 1, 2)) Then
        If brr(j + 1, 2) > arr(i, j) Or brr(j + 1, 4) < arr(i, j) Then Exit For
      End If
    Next
    If j = UBound(arr, 2) + 1 Then
      n = n + 1
      For j = 1 To UBound(arr, 2): arr(n, j) = arr(i, j): Next
    End If
  Next
  With [i1]
    .Resize(Rows.Count, UBound(arr, 2)).ClearContents
    .Resize(n, UBound(arr, 2)) = arr
  End With
End Sub

w84322665

iwangyi 发表于 2018-8-6 21:22
附件***********

可以添加一个按钮点击查询？

w84322665

大神们，可以添加一个按钮然后查询？

iwangyi

当然可以------

zpy2

也可以结合正则在一个输入查询框内同时实现与，或条件筛选
Sheet1

2018年[8|1]月
搜索重置
SELECT rowid, * FROM Sheet1 WHERE 1=1 AND regexp('2018年[8|1]月',rowid||序号||发生日期||收支摘要||收支金额||备注||月份||收支类型) LIMIT 300;
rowid        序号        发生日期        收支摘要        收支金额        备注        月份        收支类型        新增
3        1        2018年8月5日        工资收入        1111        1        8        收入        修改删除
4        1        2018年8月6日        工资收入        1111        1        8        收入        修改删除
5        2        2018年8月7日        兼职收入        1111        11        8        收入        修改删除
6        1        2018年1月11日        就系想用        1        1        1        支出        修改删除
7        2        2018年1月12日        衫裤鞋袜        1        1        3        支出        修改删除
8        1        2018年1月13日        1        1                12        支出        修改删除
9        2        2018年1月14日        1        1                12        支出        修改删除


Sheet1

2018年[8|1]月.*支出
搜索重置
SELECT rowid, * FROM Sheet1 WHERE 1=1 AND regexp('2018年[8|1]月.*支出',rowid||序号||发生日期||收支摘要||收支金额||备注||月份||收支类型) LIMIT 300;
rowid        序号        发生日期        收支摘要        收支金额        备注        月份        收支类型        新增
6        1        2018年1月11日        就系想用        1        1        1        支出        修改删除
7        2        2018年1月12日        衫裤鞋袜        1        1        3        支出        修改删除
8        1        2018年1月13日        1        1                12        支出        修改删除
9        2        2018年1月14日        1        1                12        支出        修改删除