ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: wangzhongtu

[求助] 计划采购量(好难,希望高手来看看)

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2012-5-30 16:36 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
41569144 发表于 2012-5-30 16:18
你说的是对的
目标规格多,可以相互组合进行切割,达到余料为0的目的,实际情况确实一般不会到100%,但楼 ...

我看了你的附件,不知是不是感染上病毒了
怎么下面的条拉不动啊?
想核算都没办法

TA的精华主题

TA的得分主题

发表于 2012-5-30 16:37 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
yiyiyicz 发表于 2012-5-30 16:36
我看了你的附件,不知是不是感染上病毒了
怎么下面的条拉不动啊?
想核算都没办法

取消冻结窗口

TA的精华主题

TA的得分主题

发表于 2012-5-30 17:28 | 显示全部楼层
本帖最后由 yiyiyicz 于 2012-5-30 17:29 编辑
41569144 发表于 2012-5-30 15:36
好生了得不敢当,但这不是假如用算法的结果,是千真万确,说来惭愧,连续研究了5个晚上,电脑都彻夜计算, ...


核算的结果见附件
附件
模拟结果01.rar (19.59 KB, 下载次数: 222)

材料利用率=98.9%。非常出色

TA的精华主题

TA的得分主题

发表于 2012-5-30 22:19 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
期待楼主的58根方案

TA的精华主题

TA的得分主题

发表于 2012-5-30 22:52 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
每根长度均为6米,切割时每切1刀损耗20mm,58根不可能
无切割损耗,总长345006mm/6000mm=57.501根
计算切割损耗,总根数314根-58根=256根*20mm=5120mm
加上切割损耗计算,345006mm+5120mm=350126mm/6000mm=58.354根(100%利用也要58.354根)

TA的精华主题

TA的得分主题

发表于 2012-5-31 15:18 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
附件有两个模拟结果,均为59根,但不同在于
1、完全再综合结果  表前45根完全切割,刀数最少(如切3刀,刚好形成4段目标产品),损耗最少,余料为0,应该说是极限了
2、完全再综合结果  表第46根到50根,余料为零,这5根刀数是取决于段数(如切3刀,切成4段目标产品,最后一刀损耗在0-20mm之间,其余刀均为20mm)
3、完全再综合结果  有50根余料为0,总余料为3664,浪费104,最后一根余料3560可再利用

但综合结果表 有54根余料为0,总余料3216,浪费302,,最后一根余料2914可再利用

结论:完全再综合结果  数据更科学,虽然总余料最多,但最后一根余料更长,是到目前我模拟到的最佳方案
如有更佳方案,请分享


两种模拟结果对比.rar

6.63 KB, 下载次数: 139

TA的精华主题

TA的得分主题

发表于 2012-6-4 11:02 | 显示全部楼层
本帖最后由 doryan 于 2012-6-4 11:04 编辑

非常关注!
做成竞赛题都不为过啊
我的思路是全排列
然后全排列的数据作为切割的方案 自然得出多少根 选取最少的一组排列最为结果
但是计算量不是计算机能达到的.....(更过分的是还要包含重复项)
模拟了几组数据 59根
但是计算方法没办法拿出来 拿出来也没法用

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-6-7 20:08 | 显示全部楼层
本帖最后由 wangzhongtu 于 2012-6-7 21:20 编辑

好几天没上线了 原来已经发展到这种程度了 看来本论坛高手如云呀 大家要多多支持
58根的结果楼主在24楼已经说清楚啦 根本不可能  
这段时间在琢磨这Moneky老师的计算方法 确实已经很好了  于是在工作上准备试着用 可是实际操作太让人郁闷了
郁闷的不是这个程序有问题 而是按照程序分析的数据 用于切割反而达不到降本增效  (电脑分析数据速度确实快,实际中按照分析出来的数据操作,时间上却慢的要命,而且人工成本也在增加,现场的管理也不能很到位),真是好东西却很难得到完美利用!!!实在郁闷~~

不知各位高手能不能再将原来的程序做个改动 让实际操作能够适用呢  详细说明请看附件
Moneky 、41569144、...老师  高手 大侠 朋友来看看吧  


补充:不知道按照附件中长度降序排列是否合理,若是能够随机排列是否能做到更节约呢  件号排在一起是考虑实际操作 方便整理 要是能另外再加一点 应该更好:比如数量较多的可以同时用很多根材料一刀切 ,也就是说4根材料切1刀至少能切出4个同件号同长度的规格,切4刀那么就至少能有16根被切成  ;要是这些都单根切,切16根则最少也需要15刀(考虑无限长的情况下),这样子时间就浪费掉了....

分配.rar

27.48 KB, 下载次数: 160

TA的精华主题

TA的得分主题

 楼主| 发表于 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

TA的精华主题

TA的得分主题

发表于 2012-6-8 13:53 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
附件为单刀切损分别为20、10、5的三个方案。
当单刀切损=20时,59跟应是最少采购量。若单刀切损<=10时,58跟可行。
-------------------------------------------------------------------------
计划采购量(按切损别三方案).rar (21.63 KB, 下载次数: 210)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-17 00:30 , Processed in 0.049209 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表