按单号查找数据到查询表

pingok

按单号查找数据到查询表：把数据表的内容按单号倒入查询表，有没有老师帮下忙。

pingok

静待高手出现，，，

lsc900707

有没有订单号相同而日期，客户，销售人不同的情况呢？

pingok

lsc900707 发表于 2019-4-20 19:30
有没有订单号相同而日期，客户，销售人不同的情况呢？

没有，，订单号是唯一识别

719404338

1. Sub t()
   
2. Dim i, j, arr, d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. arr = Sheet4.Range("b2:l" & Sheet4.[l65536].End(3).Row)
   
5. j = 1
   
6. For i = 1 To UBound(arr)
   
7. If arr(i, 10) = [i3] Then
   
8. d(i) = Array(j, arr(i, 2), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 11))
   
9. j = j + 1
   
10. End If
    
11. Next i
    
12. [a6:h10000] = ""
    
13. i = 6
    
14. For Each sj In d.items
    
15. Range("a" & i & ":h" & i) = sj
    
16. i = i + 1
    
17. Next
    
18. End Sub

复制代码

一指禅62

1. Sub 查询()
   
2.     Dim arr, i&, j%, key$, a(), n&, x%
   
3.     arr = Sheet2.Range("A1").CurrentRegion
   
4.     key = Sheet1.Range("E4")
   
5.     If key = "" Then MsgBox "请输入订单号！": Exit Sub
   
6.     For i = 4 To UBound(arr)
   
7.         If arr(i, 11) = key Then
   
8.             n = n + 1: ReDim Preserve a(1 To 8, 1 To n)
   
9.             If n = 1 Then x = i
   
10.             a(1, n) = n: a(8, n) = arr(i, 12)
    
11.             For j = 2 To 7
    
12.                 a(j, n) = arr(i, j)
    
13.             Next
    
14.         End If
    
15.     Next
    
16.     Application.ScreenUpdating = False
    
17.     With Sheet1.Range("A6:H10000")
    
18.         .ClearContents
    
19.         .Borders.LineStyle = xlNone
    
20.     End With
    
21.     If n > 0 Then
    
22.         Sheet1.Range("B4:D4") = Array(arr(x, 10), arr(x, 8), arr(x, 9))
    
23.         With Sheet1.Range("A6").Resize(n, 8)
    
24.             .Value = WorksheetFunction.Transpose(a)
    
25.             .Borders.LineStyle = xlContinuous
    
26.         End With
    
27.     Else
    
28.         MsgBox "没有这个订单号！"
    
29.     End If
    
30.     Application.ScreenUpdating = True
    
31. End Sub

复制代码

一指禅62

订单号查询.zip (32.39 KB, 下载次数: 51)

2019-4-20 19:50 上传

点击文件名下载附件

pingok

719404338 发表于 2019-4-20 19:39

日期，客户，销售人，订单号，没见有获得过来

pingok

一指禅62 发表于 2019-4-20 19:50

谢谢！解决了问题，666

719404338

pingok 发表于 2019-4-20 19:52
日期，客户，销售人，订单号，没见有获得过来

代码放在sheet3中