求大神指点如何做查询

月落天涯 · 发表于 2019-1-30 08:30

需要达到的效果是，在查询表的p2单元格里填入业务员，客户名，订单号，物料名称等信息之中的任何一种，都可以查到所需内容，比如在P2单元格填入某订单号，点击查询按钮，就可查到该订单所发的所有物料信息，填入业务员名字，就可以查到该业务员经手的所有订单等，有劳各位大神，多谢！

月落天涯 · 发表于 2019-1-30 08:32

请各位大神相助

chxw68 · 发表于 2019-1-30 08:45

楼主这样设计不合理，怎么区分在P2单元格里输入的是客户名还是业务员？

蓝桥玄霜 · 发表于 2019-1-30 08:48

请见代码。

月落天涯 · 发表于 2019-1-30 08:54

chxw68 发表于 2019-1-30 08:45
楼主这样设计不合理，怎么区分在P2单元格里输入的是客户名还是业务员？

这也是迫不得已，原本做查询的时候，要做很多张表来针对各种情况，比如订单查询一张，客户一张，很是繁琐，并且用的公式，卡的爬不动，所以来求助，看看大神有没有方法可以把多种查询做在同一张表上，输入查询条件，不拘于P2一个单元格，也可以不同查询，条件分别填入不同单元格，只要能多查询放在一张表就可以了，劳烦大神！

zpy2 · 发表于 2019-1-30 09:07

月落天涯发表于 2019-1-30 08:54
这也是迫不得已，原本做查询的时候，要做很多张表来针对各种情况，比如订单查询一张，客户一张，很是繁琐 ...

多条件查询，汇总查询做到一起也行的

zpy2 · 发表于 2019-1-30 09:09

月落天涯发表于 2019-1-30 08:54
这也是迫不得已，原本做查询的时候，要做很多张表来针对各种情况，比如订单查询一张，客户一张，很是繁琐 ...

http://5809c7f4.nat123.cc:15216/bsbm/pdo/eh2/a20/a2001/show_table.php
手机应该也行。

lsdongjh · 发表于 2019-1-30 09:09

Sub Test()
Dim shSource As Worksheet, shResult As Worksheet
Dim lngRow As Long, arrSource As Variant, arrTemp As Variant
Dim strTemp As String, strFind As String, lngID As Long
Set shSource = Sheets("明细")
Set shResult = Sheets("查询")
strFind = Trim(shResult.Range("P2").Value)
If strFind = "" Then
MsgBox "请输入查询内容"
Exit Sub
End If
lngRow = shSource.Range("A" & Rows.Count).End(xlUp).Row
arrSource = shSource.Range("A4:N" & lngRow)
shResult.Range("A4:N" & Rows.Count).Clear
lngID = 4
For lngRow = LBound(arrSource) To UBound(arrSource)
arrTemp = Application.WorksheetFunction.Index(arrSource, lngRow, 0)
strTemp = Join(arrTemp, "|")
If InStr(strTemp, strFind) > 0 Then
shResult.Range("A" & lngID).Resize(1, UBound(arrTemp)) = arrTemp
lngID = lngID + 1
End If
Next
End Sub

复制代码

月落天涯 · 发表于 2019-1-30 10:10

lsdongjh 发表于 2019-1-30 09:09

多谢大神，完美解决！

		自动登录	找回密码
密码			免费注册

[求助] 求大神指点如何做查询

评分