终极 进销存汇总表

lyqiezi886

有什么方法帮助理解啊？
        数量,0 as 数量3, 0 as 数量2, 金额,0 as 金额3, 0 as 金额2  
               0 as 数量2, 数量,0 as 数量3, 0 as 金额2, 金额,0 as 金额3
               0 as 数量3, 0 as 数量2,数量, 0 as 金额3, 0 as 金额2,金额
这些顺序有讲究吗？感觉好乱，怎么理解好些呢

dyb4750

这个表我怎么做不成啊

SGR333

越学习，越发现自己的无知！

alps.hu

鉴于可以自动更新的功能,是否可以进一步开发出满足仓库使用的WMS, 具体可以再添加ITEM MASTER\ VENDOR LIST\PRINT SYSTEM, DUMMY WAREHOUS REPORT,在打印入\出库单的同时可以自动添加数据进入数据库(数据透视表中的两个关键表), 同时依据物料进出的频次和ABC分类自动每日刷出每日循环盘点表. 请楼主帮忙设计一下,非常感谢!

X达人

实在厉害，精品

huangzy

感谢楼主分享!学习一下!

taoqijj

谢谢,学习一下

jiahaocn

Private Sub Workbook_Open()
    Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String
    strCon = ActiveSheet.PivotTables(1).PivotCache.Connection
    Select Case Left(strCon, 5)
    Case "ODBC;"
        iFlag = "DBQ="
    Case "OLEDB"
        iFlag = "Source="
    Case Else
        Exit Sub
    End Select
    iStr = Split(Split(strCon, iFlag)(1), ";")(0)
    iPath = Left(iStr, InStrRev(iStr, "\") - 1)
    With ActiveSheet.PivotTables(1).PivotCache
        .Connection = VBA.Replace(strCon, iPath, ThisWorkbook.Path)
        .CommandText = VBA.Replace(.CommandText, iPath, ThisWorkbook.Path)
    End With
End Sub

cecil_

已运用实际工作，确实很不错

yatou83

实在太强大了。。。