自动填充单价

18977971085

要求对比日期大小，再根据 强度等级，浇筑方式 来填充对应价格
例 2018-4-27  c30  泵送 价格就是 337
谢谢

lsc900707

字典匹配问题：

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

复制代码

不知道为什么

看你附件和你描述，不知道你说的是什么逻辑

lsc900707

附件供参考：

不知道为什么

lsc900707 发表于 2018-6-23 20:06
附件供参考：

大版，楼主需求的时间匹配您的代码如何实现的？

lsc900707

不知道为什么 发表于 2018-6-23 20:18
大版，楼主需求的时间匹配您的代码如何实现的？

忘记这么一茬了，呵呵。

lsc900707

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

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

复制代码

不知道为什么

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

大版辛苦了！如果求助者能把需求说的清晰，附件提供的规范，能让老师们少走很多弯路啊！呵呵

lsc900707

不知道为什么 发表于 2018-6-23 21:15
大版辛苦了！如果求助者能把需求说的清晰，附件提供的规范，能让老师们少走很多弯路啊！呵呵

是的。
近期你很活跃，辛苦了！

不知道为什么

lsc900707 发表于 2018-6-23 21:20
是的。
近期你很活跃，辛苦了！

谢谢大版的肯定。我在论坛也得到了很多老师们得帮助，现在也想通过多参与多练习来提高自己处理表格的能力。