在线的老师来看看这个模型如何整?库存分析的.

hustnzj · 发表于 2012-3-24 16:02

jygzcj 发表于 2012-3-24 16:00
我第一楼的数据就是真实的数据啊.

难道你没看我的附件？我的附件就是第一楼的呀{:soso_e136:}

jygzcj · 发表于 2012-3-24 16:09

本帖最后由 jygzcj 于 2012-3-24 16:10 编辑

hustnzj 发表于 2012-3-24 16:02
难道你没看我的附件？我的附件就是第一楼的呀

如果我一月出库的不到200个呢?那就不对了呀!

我这里有个更祥细说明的,麻烦老师再看一下
http://club.excelhome.net/forum.php?mod=viewthread&tid=845941&page=1&extra=#pid5777646

hustnzj · 发表于 2012-3-24 16:42

jygzcj 发表于 2012-3-24 16:09
如果我一月出库的不到200个呢?那就不对了呀!

我这里有个更祥细说明的,麻烦老师再看一下

麻烦你也模拟个不到200的数据的结果……

jygzcj · 发表于 2012-3-24 17:00

hustnzj 发表于 2012-3-24 16:42
麻烦你也模拟个不到200的数据的结果……

FIFO1.rar (9.85 KB, 下载次数: 38)
附档模拟一个一月出货低的情形!

jygzcj · 发表于 2012-3-24 17:02

就比如期初的200吧.他的折法和第一个月的出库数量有关.如果第一个月出货10,第二个月10,第三个月10,第四个月10

200将折成10+10+10+10+余下的160,其他各月入库根本就用不到了.其它各个月入库的就不用折了.全部余下来了!

doryan · 发表于 2012-3-24 21:04

本帖最后由 doryan 于 2012-3-24 21:08 编辑

原来是这个意思刚好可能我以后会用到帮你看看能不能出效果不保证哈
还有就是只要实现目的表格形式无所谓吧你模拟生产的表格很有问题

doryan · 发表于 2012-3-25 00:44

本帖最后由 doryan 于 2012-3-25 01:01 编辑

Sub doryan()
Dim LstRow As Integer, Arr()
Z = 1
With Sheets("sheet1")
LstRow = .[b65536].End(3).Row
ReDim Arr(1 To LstRow, 1 To LstRow)
Arr(1, 1) = .Range("C2")
For i = 2 To LstRow
Arr(1, i) = .Cells(i, 4)
Next
For r = 2 To LstRow
temp = .Range("E" & r)
For c = 1 To LstRow
c = Z
If temp <= Arr(1, Z) Then
Arr(r, c) = temp
Arr(1, Z) = Arr(1, Z) - temp
temp = 0
Exit For
Else
Arr(r, c) = Arr(1, Z)
temp = temp - Arr(1, Z)
Arr(1, Z) = 0
Z = Z + 1
End If
Next
Next
.Range(.Cells(1, 8), .Cells(LstRow, LstRow + 7)) = Arr
For i = 1 To LstRow
If Arr(1, i) <> 0 Then
.Cells(1, i + 7) = .Cells(i, 2) & "入的，剩余" & Arr(1, i)
Else
.Cells(1, i + 7) = .Cells(i, 2) & "入的"
End If
Next
End With
End Sub

复制代码

还是直接用的你的表现形式，头都给我搅大了。刚开始打算用递归来做，后来还是觉得循环比较省心点
出库的总数就很简单了自己想怎么加都可以了简单求和
边框什么的我没加也很简单的难得做代码了
剩余多少我也标示出来了方便下年做记录

jygzcj · 发表于 2012-3-25 08:29

doryan 发表于 2012-3-25 00:44
还是直接用的你的表现形式，头都给我搅大了。刚开始打算用递归来做，后来还是觉得循环比较省心点
出库的总 ...

太猛了.达到我要的意思了!

jygzcj · 发表于 2012-3-25 08:56

jygzcj 发表于 2012-3-25 08:29
太猛了.达到我要的意思了!

Sub doryan()
Dim LstRow As Integer, Arr()
'建最后一行,一个动态数组

Dim Z%
Z = 1
'初始化Z

Dim sh As Worksheet
Set sh = Sheet1
With sh
LstRow = .[b65536].End(3).Row
'B列最后一行数

ReDim Arr(1 To LstRow, 1 To LstRow)
'扩展要分布的二维数组,等行等列

Arr(1, 1) = .Range("C2")
'将期初库存赋给arr(1,1)

For i = 2 To LstRow
Arr(1, i) = .Cells(i, 4)
Next
'接下Arr第一行用出库填充

'以下是重点语句

For r = 2 To LstRow
temp = .Range("E" & r)

For c = 1 To LstRow
c = Z
If temp <= Arr(1, Z) Then
Arr(r, c) = temp
Arr(1, Z) = Arr(1, Z) - temp
temp = 0
Exit For
Else
Arr(r, c) = Arr(1, Z)
temp = temp - Arr(1, Z)
Arr(1, Z) = 0
Z = Z + 1
End If
Next
Next
'----------------

.Range(.Cells(1, 8), .Cells(LstRow, LstRow + 7)) = Arr

For i = 1 To LstRow
If Arr(1, i) <> 0 Then
.Cells(1, i + 7) = .Cells(i, 2) & "入的，剩余" & Arr(1, i)
Else
.Cells(1, i + 7) = .Cells(i, 2) & "入的"
End If
Next

End With
End Sub
就这几句就搞定了.太猛了!再次感谢!

doryan · 发表于 2012-3-25 09:58

jygzcj 发表于 2012-3-25 08:56
Sub doryan()
Dim LstRow As Integer, Arr()
'建最后一行,一个动态数组

很喜欢你这样的E友得到代码后不是完事就好自己分析琢磨
很像我半年前刚接触VBA的时候
这样会进步很快的以后你就可以帮助别人而不是求助了

		自动登录	找回密码
密码			免费注册

[求助] 在线的老师来看看这个模型如何整?库存分析的.

评分