如何把明细表单里面的码数下面的对应数字求和，悬赏100元（报价不合理可提出）

ai阿里云

想要把表二里面的码数下面的数字汇总到表一里面的相应码数的报单表格里面，数据大概有几千条，码数和金额都是数字，录入数据都是一整行，多的时候有100个数据（如果感觉悬赏不合理的可以@我重新悬赏）

jiaxinl

请查收附件，写的自定义函数AAA

ai阿里云

jiaxinl 发表于 2018-3-21 16:28
请查收附件，写的自定义函数AAA

老师，怎么我下载看的一下，那个报单里面都是显示＃VALUE！，请指教

jiaxinl

ai阿里云 发表于 2018-3-21 17:49
老师，怎么我下载看的一下，那个报单里面都是显示＃VALUE！，请指教

你有启用宏吗？

ai阿里云

jiaxinl 发表于 2018-3-21 18:11
你有启用宏吗？

启用的，你那边可以运行吗

jiaxinl

ai阿里云 发表于 2018-3-21 17:49
老师，怎么我下载看的一下，那个报单里面都是显示＃VALUE！，请指教

我用的office2010的是正常的，请看动态图

代码如下：
Function AAA(rng As Range) As Long
Dim d
Set d = CreateObject("scripting.dictionary")
With Sheet2
    For i = 3 To .Cells(.Rows.Count, 4).End(xlUp).Row Step 2
      For j = 4 To .Cells(i, .Columns.Count).End(xlToLeft).Column
        d(Val(.Cells(i, j))) = d(Val(.Cells(i, j))) + Val(.Cells(i + 1, j))
      Next j
    Next i
End With
If d.Exists(Val(rng)) Then AAA = d(Val(rng)) Else AAAA = ""
End Function

ai阿里云

jiaxinl 发表于 2018-3-21 18:37
我用的office2010的是正常的，请看动态图

代码如下：

有没有自己自动刷新呢，我在第二页一直在录入数据，第一页都没有变化，需要我手动拉公式，同时你把你的微信账号给我，我给你红包

jiaxinl

ai阿里云 发表于 2018-3-21 20:39
有没有自己自动刷新呢，我在第二页一直在录入数据，第一页都没有变化，需要我手动拉公式，同时你把你的微 ...

13790150245

jiaxinl

ai阿里云 发表于 2018-3-21 20:39
有没有自己自动刷新呢，我在第二页一直在录入数据，第一页都没有变化，需要我手动拉公式，同时你把你的微 ...

再代码前面加上一句
Application.Volatile  '将函数定义为易失性函数