如何按工单号自动引用每天的入库量

huaxia5qiannian

请教各位大神：需求如下：1、如何利用VBA实现每天的允收数量自动添加到“生产7月”工作表P3：AT3对应日期的的列中（根据工单号实现自动引用）。例如：”生产7月“工作表第AB列从AB4开始往下的值等于工作表“7-13”第I列按工单号匹配引用的值。

huaxia5qiannian

大神呢？帮忙解决一下，万分感谢！

lsc900707

huaxia5qiannian 发表于 2018-7-21 07:59
大神呢？帮忙解决一下，万分感谢！

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> ActiveSheet.Name Then
   
5.             With sht
   
6.                 arr = .[a1].CurrentRegion
   
7.                 For i = 2 To UBound(arr)
   
8.                     s = arr(i, 1) & arr(i, 7)
   
9.                     d(s) = arr(i, 9)
   
10.                 Next
    
11.             End With
    
12.         End If
    
13.     Next
    
14.     brr = [a1].CurrentRegion
    
15.     For i = 4 To UBound(brr)
    
16.         For j = 16 To UBound(brr, 2)
    
17.             s = brr(3, j) & brr(i, 2)
    
18.             If d.exists(s) Then brr(i, j) = d(s)
    
19.         Next
    
20.     Next
    
21.     [a1].CurrentRegion = brr
    
22. End Sub

复制代码

lsc900707

huaxia5qiannian 发表于 2018-7-21 07:59
大神呢？帮忙解决一下，万分感谢！

使用代码前请注意：
分表日期列和总表日期格式要统一，你的有2018-7-13，2018/7/13
同理工单号列也要同一格式，否则没有正确结果显示。

lsc900707

附件仅供测试：

huaxia5qiannian

lsc900707 发表于 2018-7-21 09:14
附件仅供测试：

老师：如果我新建一个入库表进去，新增的入库表数据就不能引用进去，例如新增“7-17”、“7-18”的两个工作表，点击按钮后，“7-17”、“7-18”两个表的允收数量并没有按工单号引用到“生产7月”对应日期的列内？请老师再帮忙看看，谢谢！

huaxia5qiannian

lsc900707 发表于 2018-7-21 09:14
附件仅供测试：

可以了，老师，只要将入库表的入库日期改成和“生产7月”表的对应日期保持一致就可以了，谢谢！

huaxia5qiannian

lsc900707 发表于 2018-7-21 09:02
使用代码前请注意：
分表日期列和总表日期格式要统一，你的有2018-7-13，2018/7/13
同理工单号列也要同 ...

老师：我把代码复制到另外一个表就不行了！

huaxia5qiannian

huaxia5qiannian 发表于 2018-7-21 10:20
可以了，老师，只要将入库表的入库日期改成和“生产7月”表的对应日期保持一致就可以了，谢谢！

我加你QQ了，我把另外的一个表发给您看看！格式和这个表是一样的！

lsc900707

huaxia5qiannian 发表于 2018-7-21 11:50
我加你QQ了，我把另外的一个表发给您看看！格式和这个表是一样的！

你发1512381669吧，那个号好像被盗了。