车间进出仓自动统计表

Yang冰激凌

有标示颜色的工作表为需要大家帮忙修改的地方。

仓库及打印进出仓单一体表模板.zip (100.46 KB, 下载次数: 125)

2014-12-8 16:46 上传

点击文件名下载附件

因为公司还没有上生成系统，所以，想做一份车间的进出仓自动统计表，因为车间以前一直都是手写单据的，所以，想做简单点，让大家都容易接受，容易上手。希望大家能帮帮忙！附件中的工作簿上，工作表的名称有标示颜色的，都是有问题需要大家帮忙的，具体问题上面有说明。另外工作表中有部分公式存在错误，请大家帮忙修改一下。谢谢！

lfspecter

这个工程有点复杂，你先搞个简单一些的，不然，一个大工程把人都吓跑了。

TomingTang

给你做了工作表“本月进仓日统计表”

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim sstr, i%, drow%, Arr, Brr(1 To 1000, 1 To 5), Crr(1 To 1000, 1 To 2), k%
   
3.     Arr = Worksheets("本月进仓明细").[a2].CurrentRegion
   
4.     sstr = Cells(Target.Row, Target.Column)
   
5.     k = 1
   
6.     On Error Resume Next
   
7.     If Target.Column = 9 And Cells(Target.Row, Target.Column - 1).Value = "日期：" Then
   
8.         MsgBox Target.Row
   
9.         For i = 2 To UBound(Arr)
   
10.             If Arr(i, 2) = sstr Then
    
11.                 Brr(k, 1) = Arr(i, 1): Brr(k, 2) = Arr(i, 3): Brr(k, 3) = Arr(i, 4): Brr(k, 4) = Arr(i, 5)
    
12.                 Brr(k, 5) = Arr(i, 7)
    
13.                 Crr(k, 1) = Arr(i, 10)
    
14.                 k = k + 1
    
15.             End If
    
16.         Next
    
17.         Cells(Target.Row + 2, 1).Resize(k, 5) = Brr
    
18.         Cells(Target.Row + 2, 9).Resize(k, 1) = Crr
    
19.     End If
    
20. End Sub
    

复制代码

TomingTang

对你这个有几点想法，1、正如楼上版主所说的，你的需求太大了，这简直是一个工程。内容不复杂，对很多人而言没有研究的意义，这样你会吓跑很多人的；建议分开一个个来提问，逐个击破；    2、我给你做了一个，发现以下问题，你哪里有很多合并单元格，怎么搞个合并单元格，这对数据处理是大忌。