如何进行两张表格多个条件的运算

louisyin

在入库管理工作表中将信息录入到库存信息中，已录入的项需要标记“已入库”
录入过程中涉及加法运算，下表为“入库管理”sheet

序号	状态	物料编号	物料名称	型号	批号	数量	单位
1	已入库	A-001-00001	部件A01	XXX	Lots180111	10	个
2		A-001-00001	部件A01	XXX	Lots180112	20	个
3		A-001-00003	部件A03	XXX	Lots180113	30	个
4		A-001-00004	部件A04	XXX	Lots180114	20	个
5		A-001-00005	部件A05	XXX	Lots180115	45	个
6		A-001-00006	部件A06	XXX	Lots180116	23	个
7		A-001-00007	部件A07	XXX	Lots180117	26	个
8		A-001-00008	部件A08	XXX	Lots180118	34	个
9		A-001-00009	部件A09	XXX	Lots180119	56	个
10		A-001-00010	部件A10	XXX	Lots180120	40	个
11		A-001-00001	部件A01	XXX	Lots180111	20	个

下表为“库存信息”sheet

序号	物料编号	物料名称	型号	批号	数量	单位
1	A-001-00001	部件A01	XXX	Lots180111	10	个

1.两表中物料编号相同，批次号不同的情况，需要新添加一行，完成之后入库管理中标记已入库
例如：第一项为已入库项，直接跳过，第二项要入库，物料编号都为A-001-00001，但批次号不同（已入库为批次号为Lots180111，当前入库项批次号为Lots180112），需要在库存信息sheet中新建一项录入信息。第二项完成已入库之后，在入库信息sheet中“状态栏”标记已入库。
2.库存信息中物料编号不存在的情况，需要新添加一行，完成之后入库管理中标记已入库.
例如：第三项在库存信息中不存在，需要在库存信息sheet中新建一项录入信息。第二项完成已入库之后，在入库信息sheet中“状态栏”标记已入库。
3.两表中物料编号相同，批次号相同的情况，直接进行加法运算，运算完成之后入库管理中标记已入库例如：第11项，退库之后，库存信息sheet中已存在（物料号和批次均相同），则进行加减运算，数量有10变为30.
请大神帮忙看看，条件句怎么写都不对。

liulang0808

建议楼主结合附件内容，举例说明吧
目前代码问题很多
建议使用字典处理

opiona

可以用SQL
将2个表合并： UNION ALL
然后求和，
3个条件结果都是：已入库，直接加上即可

louisyin

liulang0808 发表于 2018-6-22 08:17
建议楼主结合附件内容，举例说明吧
目前代码问题很多
建议使用字典处理

版主，描述已修改。字典想用但是不会，不知道该怎么写。附件我更新了

louisyin

opiona 发表于 2018-6-22 09:39
可以用SQL
将2个表合并： UNION ALL
然后求和，

能给些示例吗？SQL不怎么懂

不知道为什么

louisyin 发表于 2018-6-22 22:41
能给些示例吗？SQL不怎么懂

既然不懂SQL，要提示有嘛用呢？还是先基础的开始哦

liulang0808

1. Sub 按钮2_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("库存信息").UsedRange
   
5.     For j = 2 To UBound(arr)
   
6.         d(arr(j, 2) & arr(j, 5)) = j
   
7.     Next j
   
8.     r = UBound(arr) + 1
   
9.     arr = Sheets("入库管理").UsedRange
   
10.     With Sheets("库存信息")
    
11.         For j = 2 To UBound(arr)
    
12.             If arr(j, 2) <> "已入库" Then
    
13.                 arr(j, 2) = "已入库"
    
14.                 If d.exists(arr(j, 3) & arr(j, 6)) Then
    
15.                     .Cells(d(arr(j, 3) & arr(j, 6)), 6) = arr(j, 7) + .Cells(d(arr(j, 3) & arr(j, 6)), 6)
    
16.                 Else
    
17.                     Cells(j, 3).Resize(1, 6).Copy .Cells(r, 2)
    
18.                     d(arr(j, 3) & arr(j, 6)) = r
    
19.                     .Cells(r, 1) = r - 1
    
20.                     r = r + 1
    
21.                 End If
    
22.             End If
    
23.         Next j
    
24.     End With
    
25.     Sheets("入库管理").UsedRange = arr
    
26.     Application.ScreenUpdating = True
    
27. End Sub
    

复制代码

liulang0808

附件内容供参考。。。

louisyin

liulang0808 发表于 2018-6-23 11:05
附件内容供参考。。。

版主大人，非常感谢。测试了一下代码，上面三点问题都解决了。但是新出现了一个小问题。
入库管理sheet中仅有11项，但是会出多出6个已入库

序号	状态	物料编号	物料名称	型号	批号	数量	单位
1	已入库	A-001-00001	部件A01	XXX	Lots180111	10	个
2	已入库	A-001-00001	部件A01	XXX	Lots180112	20	个
3	已入库	A-001-00003	部件A03	XXX	Lots180113	30	个
4	已入库	A-001-00004	部件A04	XXX	Lots180114	20	个
5	已入库	A-001-00005	部件A05	XXX	Lots180115	45	个
6	已入库	A-001-00006	部件A06	XXX	Lots180116	23	个
7	已入库	A-001-00007	部件A07	XXX	Lots180117	26	个
8	已入库	A-001-00008	部件A08	XXX	Lots180118	34	个
9	已入库	A-001-00009	部件A09	XXX	Lots180119	56	个
10	已入库	A-001-00010	部件A10	XXX	Lots180120	40	个
11	已入库	A-001-00001	部件A01	XXX	Lots180111	20	个
	已入库
	已入库
	已入库
	已入库
	已入库
	已入库

同时库存信息中，新添加的项目会有很多空行。

序号	物料编号	物料名称	型号	批号	数量	单位
1	A-001-00001	部件A01	XXX	Lots180111	30	个
					0
22	A-001-00001	部件A01	XXX	Lots180112	20	个
23	A-001-00003	部件A03	XXX	Lots180113	30	个
24	A-001-00004	部件A04	XXX	Lots180114	20	个
25	A-001-00005	部件A05	XXX	Lots180115	45	个
26	A-001-00006	部件A06	XXX	Lots180116	23	个
27	A-001-00007	部件A07	XXX	Lots180117	26	个
28	A-001-00008	部件A08	XXX	Lots180118	34	个
29	A-001-00009	部件A09	XXX	Lots180119	56	个
30	A-001-00010	部件A10	XXX	Lots180120	40	个

详见测试文件

louisyin

liulang0808 发表于 2018-6-23 11:05
附件内容供参考。。。

arr和j在反复使用，看的不是很懂。  d(arr(j, 2) & arr(j, 5)) = j 知道是啥意思？代码基本改不动，望版主大人，帮帮忙