多表再汇总

yaozong

simpman 发表于 2014-12-18 16:56
对不起晚看到了，只要汇总表加几条啊，表1的几条也可删吧？这样效率比函数高多了，函数算白整了，我也要学 ...

表1的代码可删除（忘记删了）
单价靠函数查找引用的，也可在编辑事件中解决
具体应有个各类规格的价格表
上个带函数公式的附件看看（也许能在thisworkbook里写各表通用代码）

simpman

yaozong 发表于 2014-12-18 20:08
表1的代码可删除（忘记删了）
单价靠函数查找引用的，也可在编辑事件中解决
具体应有个各类规格的价格表 ...

函数如表1第9行，代码是不是如表3？不知通用的怎么写？改了关键字，发现分表中F列的跳转失效了，还是不会。

yaozong

simpman 发表于 2014-12-18 23:22
函数如表1第9行，代码是不是如表3？不知通用的怎么写？改了关键字，发现分表中F列的跳转失效了，还是不会 ...

参考附件               

yaozong

simpman 发表于 2014-12-18 23:22
函数如表1第9行，代码是不是如表3？不知通用的怎么写？改了关键字，发现分表中F列的跳转失效了，还是不会 ...

参考附件               

simpman

yaozong 发表于 2014-12-19 09:28
参考附件

高，实在高，这样这个表可减肥好多，要不您把金额也给算了吧，用量乘单价。序号可能多个起始点。。。

yaozong

另加数量填上后，金额自动生成。

simpman

yaozong 发表于 2014-12-19 10:57
另加数量填上后，金额自动生成。

想照着您的样子，增加K列的查询还是没搞出来，请指正。

simpman

yaozong 发表于 2014-12-19 10:57
另加数量填上后，金额自动生成。

删除品号时会出错！！

yaozong

simpman 发表于 2014-12-19 15:02
删除品号时会出错！！

其中一句改一下
Sub test()
   Dim arr, i
   Set d = CreateObject("Scripting.Dictionary")
   Set e = CreateObject("Scripting.Dictionary")
   arr = Sheet2.Range("a1", Sheet2.Cells(Rows.Count, 7).End(3).Offset(1)).Value
   For i = 2 To UBound(arr)
      d(arr(i, 3)) = Array(arr(i, 4), arr(i, 5), arr(i, 7), arr(i, 6))
      e(arr(i, 3)) = Array(arr(i, 6))
   Next
End Sub

yaozong

另外，数据表有点看不懂：
A类与B类的关系，如果数量相同、单价相同，后面的金额也相同，似孚没必要分类。