|
楼主 |
发表于 2012-6-7 20:38
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 wangzhongtu 于 2012-6-8 13:47 编辑
刚看了下模拟结果 看起来很好 可就不知道是怎么模拟出来的 有操作过程吗 有的话传上大家学习学习
这样计算有烦,不知哪位能帮忙看下注释那个判断 ,本人菜鸟判断待分配的可利用的料的代码不知道怎么弄
Dim s, n, i As Integer
s = 6000
n = 3
i = 20
Cells(n, 12) = s - Cells(n, 11) - i
For n = 3 To 20
If Cells(n, 12) < Cells(n + 1, 11) Then
Cells(n, 17) = "待分配"
Cells(n, 18) = Cells(n, 12)
'接着判断有没有可利用的
'有则执行
'待分配可利用的 - 下一个长度
'.......
'无则执行
Cells(n + 1, 12) = s - Cells(n + 1, 11) - i
'.......
'结束判断
End If
If Cells(n, 12) - Cells(n + 1, 11) >= i Then
Cells(n + 1, 12) = Cells(n, 12) - Cells(n + 1, 11) - i
End If
If Cells(n, 12) - Cells(n + 1, 11) < i And Cells(n, 12) - Cells(n + 1, 11) >= 0 Then
Cells(n + 1, 12) = Cells(n, 12) - Cells(n, 11)
End If
Next
|
|