多条件查询窗体版（无密码保护）（再次更新）

wdwlywpl

感谢分享。。。

忘情的城市

很实用，记录哪里在搞个清除按钮就好了，我百度加了个清除

1. Sub 清除()
   
2. 
   
3. Range("A2:P500").ClearContents
   
4. 
   
5. End Sub

复制代码

能不能不要记录，查询的内容以查询的关键词新建表并命名

风中飞翔的叶子

谢谢楼主分享

xzl1976

学习了，谢谢分享！！！！！！！！！！！

burkefu

学习一下，感谢分享，下载啦

qy8866

非常好的设计思路和构架,感谢楼主的辛勤付出!学习了
现有模块是查询三条件的交集,楼主能否辛苦一下,再做一个用三个条件分别查询并集的模块?


关于记录表生成部分代码,当仅查询到一个数据时,记录表中会多出三次重复记录(虽然不影响后面数据的录入,但看起来不够完美和美观).

如果把这部分代码修改为下面,可完美解决上面的问题:

    x = Sheets("查询").Cells(1, 8).Value + 2   
    y = Sheets("查询").Cells(1, 14).Value
    Z = Sheets("查询").Cells(1, 15).Value + 1
    If x > 3 Then   
    Sheets("查询").Range(Sheets("查询").Cells(3, 1), Sheets("查询").Cells(x, y)).Copy Sheets("记录").Range(Sheets("记录").Cells(Z, 3), Sheets("记录").Cells(Z + x, y + 2))
    Sheets("记录").Range(Sheets("记录").Cells(Z, 1), Sheets("记录").Cells(Z + x - 3, 1)) = Now()
    Sheets("记录").Range(Sheets("记录").Cells(Z, 2), Sheets("记录").Cells(Z + x - 3, 2)) = Sheets("查询").Cells(1, 3)
    End If
    If x = 3 Then     
    Sheets("查询").Range(Sheets("查询").Cells(3, 1), Sheets("查询").Cells(x, y)).Copy Sheets("记录").Range(Sheets("记录").Cells(Z, 3), Sheets("记录").Cells(Z + x - 3, y + 2))
    Sheets("记录").Range(Sheets("记录").Cells(Z, 1), Sheets("记录").Cells(Z + x - 3, 1)) = Now()
    Sheets("记录").Range(Sheets("记录").Cells(Z, 2), Sheets("记录").Cells(Z + x - 3, 2)) = Sheets("查询").Cells(1, 3)
    End If



End Sub