多表再汇总

simpman

yaozong 发表于 2014-12-21 08:34
附件

这么早改好了，改动也不少啊，发现这样的话跳转失效了，G，k列的下拉列表可去掉，有一万多个品号，这样选效率不高，实际操作是BOM那里粘过来的。

yaozong

simpman 发表于 2014-12-21 10:24
这么早改好了，改动也不少啊，发现这样的话跳转失效了，G，k列的下拉列表可去掉，有一万多个品号，这样选 ...

強制变量后，未调整好，造成跳转失效。

yaozong

数据量大时，不适宜编辑事件，
可先复入品号，然后填上数量，再一次性引用其它项目及计算金额。
用数组处理会提高速度
（前堤是复入的品号在“价格表”是存在的）

simpman

yaozong 发表于 2014-12-21 11:56
数据量大时，不适宜编辑事件，
可先复入品号，然后填上数量，再一次性引用其它项目及计算金额。
用数组处 ...

Private Sub CommandButton1_Click()
Application.EnableEvents = True
End Sub

这个什么作用？为什么放在表1（sheet9)放到其他地方就出错？

yaozong

simpman 发表于 2014-12-21 12:22
Private Sub CommandButton1_Click()
Application.EnableEvents = True
End Sub

这个按钮1的代码在调试时用的（忘删了）

yaozong

数据量大时，不适宜编辑事件，
可先复入品号，然后填上数量，再一次性引用其它项目及计算金额。
用数组处理会提高速度
（前堤是复入的品号在“价格表”是存在的）

各分表通用代码

Sub zz() ''条件引用与计算
  Dim d, arr, brr, s$, t$, i, m
  Set d = CreateObject("Scripting.Dictionary")
  arr = Sheet2.UsedRange.Value
  brr = ActiveSheet.UsedRange.Offset(1).Value
  m = UBound(brr)
  For i = 2 To UBound(arr)
     d(arr(i, 3)) = Array(arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7))
  Next
  ReDim ar1(1 To m, 1 To 3)
  ReDim ar2(1 To m, 1 To 2)
  ReDim ar3(1 To m, 1 To 2)
  For i = 1 To m
    If brr(i, 7) <> "" Then
       s = brr(i, 7)
       ar1(i, 1) = d(s)(0)
       ar1(i, 2) = d(s)(1)
       ar1(i, 3) = d(s)(2)
       ar2(i, 1) = d(s)(3)
       ar2(i, 2) = ar2(i, 1) * brr(i, 5)
    End If
    If brr(i, 11) <> "" Then
       t = brr(i, 11)
       ar3(i, 1) = d(t)(3)
       ar3(i, 2) = ar3(i, 1) * brr(i, 5)
    End If
  Next
  [b2].Resize(m, 3) = ar1
  [h2].Resize(m, 2) = ar2
  [l2].Resize(m, 2) = ar3
  Set d = Nothing
End Sub

yaozong

参考附件                 

simpman

yaozong 发表于 2014-12-21 13:03
参考附件

您的技术存货太厚太先进了，这样速度是好象要快点，这颗按钮是自定的吧？两个方案，都可以做教课书了。在使用中才可以发现有什么问题。

simpman

yaozong 发表于 2014-12-21 13:03
参考附件

噢，我发现了您为什么做条件引用计算和设那按钮的充足理由了，就象汇总表的刷新按钮一样，你做了一个通用的东西放在工具栏上，这样有价格变动只要刷新一下，高，高。

simpman

yaozong 发表于 2014-12-21 13:03
参考附件

大师您好，汇总表的按钮_yy能不能刷新每张分表引用后再汇总？不用每张表一一刷新。