[已解决]根据日期和数量进行递减

白耀凡

购买日期	规格	数量		返回日期	规格	数量		购买日期	规格	数量	返回数量	差异
11月2日	A	100		11月2日	A	200		11月2日	A	100	100	0
11月2日	B	100		11月2日	B	50		11月2日	B	100	100	0
11月2日	C	100		11月2日	C	100		11月2日	C	100	100	0
11月2日	D	100		11月2日	E	100		11月2日	D	100	100	0
11月2日	E	100		11月3日	B	150		11月2日	E	100	100	0
11月3日	A	100		11月3日	D	200		11月3日	A	100	100	0
11月3日	D	100		11月3日	F	200		11月3日	D	100	100	0
11月3日	F	100		11月3日	G	200		11月3日	F	100	100	0
11月3日	G	100		11月3日	H	100		11月3日	G	100	100	0
11月3日	H	100		11月3日	I	100		11月3日	H	100	100	0
11月3日	I	100		11月4日	E	98		11月3日	I	100	100	0
11月4日	B	100						11月4日	B	100	100	0
11月4日	E	100						11月4日	E	100	98	-2
11月4日	F	100						11月4日	F	100	100	0
11月4日	G	100						11月4日	G	100	100	0
	表一				表二				表一表二得到表三

求助求助

最佳答案

月排行榜 / 总排行榜

grf1973

2015-11-5 16:09

1. Sub tt()
   
2.     arr = Range("a2:e" & [a65536].End(3).Row)
   
3.     brr = Range("e2:g" & [e65536].End(3).Row)
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For i = 1 To UBound(brr)    '各规格返回总数量
   
6.         x = brr(i, 2)
   
7.         d(x) = d(x) + brr(i, 3)
   
8.     Next
   
9.     For i = 1 To UBound(arr)
   
10.         x = arr(i, 2): sl = arr(i, 3)
    
11.         If d(x) > sl Then
    
12.             arr(i, 4) = sl
    
13.             d(x) = d(x) - sl
    
14.         Else
    
15.             arr(i, 4) = d(x)
    
16.         End If
    
17.         arr(i, 5) = arr(i, 4) - arr(i, 3)
    
18.     Next
    
19.     [i2].Resize(UBound(arr), 5) = arr
    
20. End Sub
    

复制代码

跳转到最佳答案楼层

yorkchenshunan

看不明白表三是怎么来的，能不能解释一下

grf1973

1. Sub tt()
   
2.     arr = Range("a2:e" & [a65536].End(3).Row)
   
3.     brr = Range("e2:g" & [e65536].End(3).Row)
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For i = 1 To UBound(brr)    '各规格返回总数量
   
6.         x = brr(i, 2)
   
7.         d(x) = d(x) + brr(i, 3)
   
8.     Next
   
9.     For i = 1 To UBound(arr)
   
10.         x = arr(i, 2): sl = arr(i, 3)
    
11.         If d(x) > sl Then
    
12.             arr(i, 4) = sl
    
13.             d(x) = d(x) - sl
    
14.         Else
    
15.             arr(i, 4) = d(x)
    
16.         End If
    
17.         arr(i, 5) = arr(i, 4) - arr(i, 3)
    
18.     Next
    
19.     [i2].Resize(UBound(arr), 5) = arr
    
20. End Sub
    

复制代码

grf1973

请看附件。

grf1973

“数据在同一工作薄下的两个表内，按钮在第三个表，代码应该怎么改呢？ ”

白耀凡

grf1973 发表于 2015-11-6 11:17
“数据在同一工作薄下的两个表内，按钮在第三个表，代码应该怎么改呢？ ”

谢谢！