ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

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

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-6-8 14:33 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 wangzhongtu 于 2012-6-8 17:07 编辑
三坛老窖 发表于 2012-6-8 13:53
附件为单刀切损分别为20、10、5的三个方案。
当单刀切损=20时,59跟应是最少采购量。若单刀切损


看了你们的方案 感到很好 就是不知道是怎么配出来的     实际工作中确实很难利用起来   
希望大家能关注下67楼 68楼  本人乃是菜鸟也 哪位有时间先帮忙看下68楼的这种粗浅的思路 解决下待分配利用料如何用代码嵌套到程序中,我想先通过这个实际可操作的思路 自己先做一个出来  当然要是能按67楼的思路 专业整理出这个程序 只要达到最终的效果 就可以适用于工作中了

这些代码可以先将材料清单中的件号规格长度整理到报表中
Dim i As Integer
i = 3
j = 3
ir = 3
For ir = 3 To 100
    If Cells(ir, 5) <> "" Then
    Range("B" & ir & ":D" & ir).Select
    Selection.Copy
    n = Cells(ir, 5)
    Range("I" & j & ":K" & j + n - 1).Select
    ActiveSheet.Paste
j = j + n
    End If
Next

TA的精华主题

TA的得分主题

发表于 2012-6-10 13:41 | 显示全部楼层
没有楼主说的这么简单,建议楼主事先考虑思路问题
65楼是我做的模型的结果,如果有可能,在此基础上考虑实际切割问题
1、根据结果,整理出加工指示单
2、指示单上,注明第1根料怎么切,第N根料怎么切
3、切割完后建议贴上标签
4、整理你的产品和余料
是否可行,请谨慎参考

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-6-10 20:08 | 显示全部楼层
41569144 发表于 2012-6-10 13:41
没有楼主说的这么简单,建议楼主事先考虑思路问题
65楼是我做的模型的结果,如果有可能,在此基础上考虑实 ...

原本我也是这么考虑的 但是经单位领导分析后 认为这样做 考虑到成本问题会得不偿失  这个结果让人很郁闷 其实说到底 是管理上的问题 管理的好 原先的程序是可以使用的
后来他们让我用67楼的分配方法做一个 可是我想了好几天都编不好这个程序 希望能在本论坛解决这个问题

TA的精华主题

TA的得分主题

发表于 2012-8-23 15:37 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-9-14 13:49 | 显示全部楼层
这种材料利用率到达98  99%的,基本实际应用到人工下料很难实现。
1,节省了材料的同时,大大增加了人工,很可能得不偿失

2,工人看你给的这种材料优化下料清单,可能直接有上去打你的冲动,,呵呵

3,这种优化下料,可能适用于机器切割(事先把编好的代码输入),最后人工分类堆放

TA的精华主题

TA的得分主题

发表于 2012-9-14 15:02 | 显示全部楼层
6米的钢筋,一般直径不超过36的,有6、8、10、12、16、18、24等,没听说切割要损耗20mm,有这么厚的锯片吗?
也不想想20mm是多少?楼主说的有误!

TA的精华主题

TA的得分主题

发表于 2012-9-14 15:06 | 显示全部楼层
840205910 发表于 2012-9-14 15:02
6米的钢筋,一般直径不超过36的,有6、8、10、12、16、18、24等,没听说切割要损耗20mm,有这么厚的锯片吗? ...

楼主说的是钢材,这里可以理解为线性材料 比如角钢 槽钢 工字钢 钢管 钢筋 铝型材等。

因切割工艺不同,损耗也不同。  切管机切割 3~5mm的切口损耗,火焰切割5mm~20mm切口损耗

TA的精华主题

TA的得分主题

发表于 2013-5-19 15:05 | 显示全部楼层
这个贴我跟了一年了,不知楼主的问题解决没有,怎么解决的。

TA的精华主题

TA的得分主题

发表于 2015-6-25 23:25 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2015-7-11 12:05 | 显示全部楼层
种类        方案数        用料        计划: 42 规格 / 314 根
22        59        345006        明细: 规格 * 根数 (理论最少 = 58)
5        8        6000        1574*1+1572*1+1449*1+800*1+525*1
5        8        6000        1552*1+1471*1+1323*1+1049*1+525*1
4        4        6000        2191*1+1670*1+1554*1+525*1
4        4        6000        1620*1+1523*1+1182*1+525*3
5        4        6000        1734*1+1554*1+1307*1+800*1+525*1
5        4        6000        1734*1+1608*1+1058*1+995*1+525*1
5        4        6000        1200*2+1101*1+993*1+881*1+525*1
5        4        6000        2191*1+1161*1+1050*1+993*1+525*1
5        4        6000        1669*1+1523*1+917*1+911*1+900*1
5        2        6000        1994*1+1182*1+1161*1+1058*1+525*1
6        2        6000        1476*1+1290*1+911*1+868*1+830*1+525*1
3        1        6000        900*3+885*3+525*1
5        1        6000        2390*1+1307*1+868*1+830*1+525*1
5        1        6000        1182*1+1161*1+1101*2+830*1+525*1
5        1        6000        1058*1+911*2+900*1+868*1+616*2
5        1        5992        2531*1+1182*1+1058*1+616*1+525*1
4        1        5981        1472*1+1307*2+1290*1+525*1
1        1        5975        525*11
5        1        5971        1307*1+1161*1+1101*1+616*2+525*2
5        1        5951        1472*1+1101*1+885*1+616*3+525*1
2        1        5705        1480*2+525*5
1        1        2531        2531*1
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-17 00:32 , Processed in 0.039193 second(s), 6 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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