多表再汇总

simpman

yaozong 发表于 2014-12-19 20:05
另外，数据表有点看不懂：
A类与B类的关系，如果数量相同、单价相同，后面的金额也相同，似孚没必要分类。

周未还没休息，A类B类只是环保不环保的区别，也就是单价金额品号的差别，他们的规格名称用量是一样的，只是一个成本的差别，A货B货吧，国产的东西大都有A货B货来对待不同的客户要求，内销就可以材料用不环保的，虽然是同样规格的东西。出口的单那就没办法，客户要验货一定要用环保的料。。。

yaozong

有点明白了，但不全部明了
建议： 价格表应设A、B分类价格
           A、B类的品号差别应有一规则（例中假设：B类是B字打头)
操作： 各分表编辑G列(品号)与E列(数量),其余可自动生成
疑问：序号看不懂，30-34行，是1,2,3,4,7  为啥不是1,2,3,4,5

更新的附件(仅供参考)

simpman

yaozong 发表于 2014-12-20 10:32
有点明白了，但不全部明了
建议： 价格表应设A、B分类价格
           A、B类的品号差别应有一规则（例中 ...

您真仔细，这两类的物料都有各自品号和对应的价格在价格表里，价格表是ERP导出查询用的，他们的品号区别是后面的R字，其实余其说是两类（环保非环保类）价格，更确切的说是两种成本方案，因为有的时候在非环保类里也有环保的物料——有些物料都是环保的，甚至也有极个别环保物料类有非环保的料，这只是两种方案要精确的说。
序号每类都是1-N顺序的，只在补焊类里有二个或三个1-N，非汇总类是[1]-N以示区别，这个序号不用麻烦，我会用函数也可以的。操作确实想： 各分表编辑G列(品号)与E列(数量),其余可自动生成。

simpman

yaozong 发表于 2014-12-20 10:32
有点明白了，但不全部明了
建议： 价格表应设A、B分类价格
           A、B类的品号差别应有一规则（例中 ...

虽然您的方案可能每理解我的意思，但我看了倒有点启发，有可能把这表做得更好，但实现还要拜托您。
首先没有A价格B价格所有料号单价一一对应，从ERP导出格式最好不变。
从操作的角度来说是先完成A类比方说非环保的，把BOM品号用量输入，复制到B类品号，再更改个别B类品号，完成B类方案。
所以能不能这样子，输入G例时K列也复制一份G列的，当然L列也跟着动，填了E列M列也复制I列完成了，这样同时A类B类填满了，再只要手工修改一下K列的个别品名，当然A类的不变L列M列跟着动，我认为这样从操作的角度是最快捷的最人性的。

simpman

yaozong 发表于 2014-12-20 10:32
有点明白了，但不全部明了
建议： 价格表应设A、B分类价格
           A、B类的品号差别应有一规则（例中 ...

因为怎么说随着社会方展，这两类方案的差别越来越少了，有些料比如塑胶件就基本没有非环保的料了，原料管控住了嘛，虽然不能完全排除。

yaozong

simpman 发表于 2014-12-20 17:37
虽然您的方案可能每理解我的意思，但我看了倒有点启发，有可能把这表做得更好，但实现还要拜托您。
首先 ...

也许是这样

主操作G列（A类/品号）→引用基本数据，A、B类为同品号同单价
再操作E列（数量）→计算金额
后调整K列（B类/品号）→单价、金额相应调整

simpman

yaozong 发表于 2014-12-20 19:26
也许是这样

主操作G列（A类/品号）→引用基本数据，A、B类为同品号同单价

我就是这个意思，游刃有余啊大师，您这些学了多久，学习VBA有什么好建议吗？

simpman

yaozong 发表于 2014-12-20 19:26
也许是这样

主操作G列（A类/品号）→引用基本数据，A、B类为同品号同单价

早，发现一个问题，品号只能一个个输入，两个以上一粘，单价就出不来。

yaozong

simpman 发表于 2014-12-21 00:21
早，发现一个问题，品号只能一个个输入，两个以上一粘，单价就出不来。

程序对多格同时编辑无效（有限制一句）
如果确需同时多格编辑时（如复入）
代码改为：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "汇总" And ActiveSheet.Name = "价格表" Then Exit Sub
  Dim ar, a&, b&, j&, k&, n&
  a = Target.Row: n = Target.Count: b = a + n - 1
  ar = Array(11, 2, 3, 4, 8)
  For k = a To b
    If Target.Column = 7 Then
      For j = 0 To UBound(ar)
        If d.exists(Cells(k, 7).Value) Then Cells(k, ar(j)) = d(Cells(k, 7).Value)(j)
      Next
      Cells(k, 12) = Cells(k, 8)
      If Cells(k, 7) = "" Then Cells(k, 5) = "": Cells(k, 9) = ""
    ElseIf Target.Column = 5 Then
      If Cells(k, 5) = "" Then
        Cells(k, 9) = "": Cells(k, 13) = ""
      Else
        Cells(k, 9) = Cells(k, 5) * Cells(k, 8)
        Cells(k, 13) = Cells(k, 5) * Cells(k, 12)
      End If
    ElseIf Target.Column = 11 Then
      If d.exists(Cells(k, 11).Value) Then Cells(k, 12) = d(Cells(k, 11).Value)(4)
      If Cells(k, 5) <> "" Then Cells(k, 13) = Cells(k, 5) * Cells(k, 12)
      If Cells(k, 11) = "" Then Cells(k, 13) = ""
    End If
  Next
End Sub

yaozong

附件