自动填充单价

18977971085

lsc900707 发表于 2018-6-23 20:38
我的理解是在2018-5-2 以后的按列表单价处理，之前的按旧单价处理，因为没有提供旧单价，所以缺省。

谢谢版主，效果刚刚的

18977971085

lsc900707 发表于 2018-6-23 20:38
我的理解是在2018-5-2 以后的按列表单价处理，之前的按旧单价处理，因为没有提供旧单价，所以缺省。

如果单价后加一组数据：如6月5日后价格1，2,3,4,5...........该怎么判断

lsc900707

18977971085 发表于 2018-6-26 17:56
如果单价后加一组数据：如6月5日后价格1，2,3,4,5...........该怎么判断

传个附件吧。

18977971085

根据不同月份填充不同单价

18977971085

lsc900707 发表于 2018-6-26 18:15
传个附件吧。

谢谢版主，附件已上传

lsc900707

18977971085 发表于 2018-6-27 08:41
谢谢版主，附件已上传

1. Sub gj23w98()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Set d1 = CreateObject("Scripting.Dictionary")
   
4.     Set d2 = CreateObject("Scripting.Dictionary")
   
5.     arr = Sheet2.[a1].CurrentRegion
   
6.     For i = 2 To UBound(arr)
   
7.         s = arr(i, 1) & arr(i, 2)
   
8.         d(s) = arr(i, 3)
   
9.         d1(s) = arr(i, 4)
   
10.         d2(s) = arr(i, 5)
    
11.     Next
    
12.     brr = [a1].CurrentRegion
    
13.     For i = 2 To UBound(brr)
    
14.         s = brr(i, 3) & brr(i, 5)
    
15.         If brr(i, 1) >= arr(1, 3) And brr(i, 1) <= arr(1, 4) Then
    
16.            brr(i, 7) = d(s)
    
17.         ElseIf brr(i, 1) >= arr(1, 4) And brr(i, 1) <= arr(1, 5) Then
    
18.            brr(i, 7) = d1(s)
    
19.         ElseIf brr(i, 1) >= arr(1, 5) Then
    
20.            brr(i, 7) = d2(s)
    
21.         End If
    
22.         brr(i, 8) = brr(i, 6) * brr(i, 7)
    
23.     Next
    
24.     [a1].CurrentRegion = brr
    
25. End Sub

复制代码

lsc900707

18977971085 发表于 2018-6-27 08:41
谢谢版主，附件已上传

附件供测试：

18977971085

lsc900707 发表于 2018-6-27 09:39

增加字典，我也想过的，就是没实行。谢谢版主