按日期查询每个物料的最新价格

mcy318

按日期自动查询最新价.rar (8.49 KB, 下载次数: 24)

2018-8-29 16:52 上传

点击文件名下载附件

那位朋友帮我写一代码，或函数，根据表中选择的日期后直接查询所有物料的最新价格

719404338

1. Sub t()
   
2. Dim d, i%
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     For i = 2 To Sheet1.[a65536].End(3).Row
   
5.          
   
6.       If Range("e" & i) <= Sheet2.Range("b2") Then
   
7.     d(Range("a" & i).Value) = Range("d" & i)
   
8.     End If
   
9.     Next
   
10.    
    
11.     For i = 4 To Sheet2.[a65536].End(3).Row
    
12.     With Sheet2
    
13.      .Range("e" & i) = d(.Range("a" & i).Value)
    
14.      End With
    
15.      Next
    
16. End Sub

复制代码

mcy318

719404338 发表于 2018-8-29 17:10

代码没运行，还有就是你这代码运行的话调出来的是小于所选日期的所有同一产品的所有价格而不是最新价格

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     s = [b2]
   
4.     arr = Sheet1.[a1].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         If arr(i, 5) >= s Then d(arr(i, 1)) = arr(i, 4)
   
7.     Next
   
8.     brr = [a3].CurrentRegion
   
9.     For i = 3 To UBound(brr)
   
10.         If d.exists(brr(i, 1)) Then brr(i, 5) = d(brr(i, 1))
    
11.     Next
    
12.     [a3].CurrentRegion = brr
    
13. End Sub

复制代码

lsc900707

一个能手级，哎。参考附件：

mcy318

lsc900707 发表于 2018-8-30 08:15
一个能手级，哎。参考附件：

你这个和上面查询表中B2单元格的条件没配合的，光是最新价。

mcy318

Sub gj23w98()
    Set d = CreateObject("Scripting.Dictionary")
    s = [b2]
    arr = Sheet1.[a1].CurrentRegion
    For i = 2 To UBound(arr)
        If arr(i, 5) <= s Then d(arr(i, 1)) = arr(i, 4)
    Next
    brr = [a3].CurrentRegion
    For i = 3 To UBound(brr)
        If d.exists(brr(i, 1)) Then brr(i, 5) = d(brr(i, 1))
    Next
    [a3].CurrentRegion = brr
End Sub

这样改成小于等于才对

mcy318

lsc900707 发表于 2018-8-30 08:15
一个能手级，哎。参考附件：

感谢，惭愧呀

mcy318

好像还不对，你这样抓 出来的数据是当选2016年3月时，代码1004应该没价格才对，而你还是抓 出价格来了

719404338

我的1004、1007没有价，怎么不对呢？