Excel如何在一个表里输入流水账时，在另一表里自动显示某系列内容

2961513086

当我在入库表中输入每日入库单时，会根据各个供应商，在其应付款表里自动生成来货明细。。那样我就不用再到各个供应商表中再输入一次，了样如;入库表：
日期  供应商  产品  数量   单价   
7.1    张三     手机    100   1500
7.1    李四    电子狗   200    300
7.2     王五    行车仪    300    500
7.3     李四     车充       500     10

同时在供应商表中电子狗的供应商自动示：李四
日期   产品       数量      单价
7.1     电子狗   200    300  
7.3      车充      500   10


请大家帮忙下，，谢谢！！

七彩屋

上传模拟数据，这个不难。

2961513086

七彩屋 发表于 2015-7-26 19:22
上传模拟数据，这个不难。

你好，表格要怎么传上去？

七彩屋

压缩文件可以上传

2961513086

这样。。可以吗？

七彩屋

1. Private Sub Worksheet_Activate()
   
2. Range("a5:g" & Cells(Rows.Count, "b").End(xlUp).Row + 1).ClearContents
   
3.     arr = Sheets("入库表").UsedRange
   
4. For x = 2 To UBound(arr)
   
5.   If arr(x, 2) = [A2] Then
   
6.   Sheets("入库表").Range("c" & x & ":f" & x).Copy Range("b" & Cells(Rows.Count, "b").End(xlUp).Row + 1)
   
7.   Sheets("入库表").Range("A" & x).Copy Range("A" & Cells(Rows.Count, "B").End(xlUp).Row)
   
8.     End If
   
9. Next
   
10. End Sub

复制代码

七彩屋

点击工作表自动分类汇总.rar (11.32 KB, 下载次数: 26)

2015-7-26 21:07 上传

点击文件名下载附件

七彩屋

点击A2单元格分类汇总.rar (16.89 KB, 下载次数: 14)

2015-7-26 20:48 上传

点击文件名下载附件
这样会不会更方便一点

2961513086

七彩屋 发表于 2015-7-26 20:48
这样会不会更方便一点

入库表输数据后，不会在其相对应的供应商表中自动显示。。。？？

2961513086

2961513086 发表于 2015-7-27 10:16
入库表输数据后，不会在其相对应的供应商表中自动显示。。。？？

帮设置一下。。谢谢