当前位置：首页 → 问答吧 → 库存表，咨询了好多人没搞定，请教高手，谢谢！

库存表，咨询了好多人没搞定，请教高手，谢谢！

时间：2011-08-03

来源：互联网

库存表，咨询了好多人没搞定，请教高手，谢谢！
现需要做近50种物品，以及各个领取人员的出入库明细，而且要每天对这些内容做成日报。
表格模板初步设计如附件。
现想要实现的功能和遇到的问题是：
1、要是表7-2，即当天表格中每种物品的“上日库存”通过公式自动等于前一日表格中“本日库存数量”。如果礼品数目少的话，通过在表7-2的C3格用公式='7-1'!F3自然不会有问题。但是因为物品数量众多，如果每天每种礼品都用这样的公式的话，会很浪费时间。请用有什么简便好用的办法实现此功能吗？

咨询过不少人士了，但都没有完全能搞定，请教这里的高手，谢谢！

附件：表格的初步模板。

附件

物资表（请Excel Home帮助）.zip(10.81 KB)

2011-8-3 13:17, 下载次数: 22

库存表基本模板

作者: aujingjing 发布时间: 2011-08-03

很少见的表，不建议使用这样的格式

作者: cailc1361 发布时间: 2011-08-03

那关于格式有什么好的建议不？因为涉及的人和物品，考虑了很久觉得这算是一种比较容易看的表格了。

作者: aujingjing 发布时间: 2011-08-03

建议再定下格式。然后再做。

作者: leo2011 发布时间: 2011-08-03

复制内容到剪贴板

代码:

Sub yy()
Dim Sht As Worksheet, r&, nm$, Arr, i&
For Each Sht In Sheets
If Sht.Name <> "7-1" Then
      r = Val(Split(Sht.Name, "-")(1))
      Arr = Sht.[a1].CurrentRegion
      nm = "7-" & r - 1
      For col = 3 To UBound(Arr, 2) Step 4
         For i = 3 To UBound(Arr)
            Sht.Cells(i, col) = Sheets(nm).Cells(i, col + 3)
         Next
      Next
End If
Next
End Sub

作者: 蓝桥玄霜发布时间: 2011-08-03

库存表，咨询了好多人没搞定，请教高手，谢谢！

附件

代码:

热门阅读

热门下载