长期合同自动更新发货进度的问题？

尘沉097

问题如下~
如图1工作表[1月]，需要合同和数量这两列信息，同一合同对应的多个数量要合计显示

很多合同是长期合同，会出现跨月甚至跨年的情况，又需要实时跟踪每个合同对应的合计数量



我现在的做法是新建工作表[合同跟进]

第一步，先整理现有的所有合同，包括订单量，上年发货（下半部分）
第二步，建表，填入客户，合同，订单量，上年发货，会自动更新总的发货量，完成度

总发货量=上年发货+每月发货
1月发货=DSUM('1月'!C:H,$H$2,$C$3:$C$4)
以此类推......

但是这种方法要每个合同都放到表格里过一遍才能出结果，而且不能实时更新，就很鸡肋
所以想问问大神有没有好的解决办法？

表格详见附件哈~
新人第一次发帖，希望可以得到论坛大神的帮助哈！

zpy2

你的报表没看明白。
1月，2月的2张表是不是能合并记录到一张表，方便查询。
可以参考一下进销存。

sobili

希望对楼主有帮助。
我的解决方法是：Power Query + VBA。
首先，建立一个data文件夹。里面放源数据：发货量明细和现有合同。
其次，新建一张名为发货进度的工作簿。在工作表里先把data文件夹里的文件用PQ（Power Query）整理并导入名为辅助表的工作表里。如图：

接着，新建一张名为合同跟进的工作表。里面做个查询表如图：

最后，按Alt+F11。在VBA窗口中输入代码：

1. Sub 数据查询()
   
2. Application.ScreenUpdating = False
   
3. Sheet2.Visible = xlSheetVisible
   
4. Sheet2.Select
   
5. Range("A2").Select
   
6. Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
   
7. Range("G2").Select
   
8. Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
   
9. Sheet2.Visible = xlSheetHidden
   
10. Application.ScreenUpdating = True
    
11. End Sub

复制代码

文件保存为xlsm格式。完工！！！ 发货进度.rar (50.84 KB, 下载次数: 4)

2022-3-21 21:29 上传

点击文件名下载附件

补充下：单击A1单元格，即可汇总发货进度。

尘沉097

zpy2 发表于 2022-3-21 19:16
你的报表没看明白。
1月，2月的2张表是不是能合并记录到一张表，方便查询。
可以参考一下进销存。

12个月累计起来数据会有上万条，平时查起来不太方便，所以不太适合合并哈~

尘沉097

sobili 发表于 2022-3-21 21:32
希望对楼主有帮助。
我的解决方法是：Power Query + VBA。
首先，建立一个data文件夹。里面放源数据：发 ...

谢谢大神帮忙，我研究一下哈~