Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: zwj8859

[已解决]求货物拼箱VBA代码!!!

[复制链接]
 楼主| 发表于 2021-4-20 07:33 | 显示全部楼层
cutecpu 发表于 2021-4-19 23:59
祝順心,南無阿彌陀佛!

出现下标越界错误。 Do While j + ae(si, 5) <= Sum    程序卡在这句!
回复

使用道具 举报

 楼主| 发表于 2021-4-20 07:56 | 显示全部楼层
zwj8859 发表于 2021-4-20 07:33
出现下标越界错误。 Do While j + ae(si, 5)

更改“实际数量”后,出现下标越界错误。 Do While j + ae(si, 5),请麻烦老师抽的时间再完善一下,太感谢了!

VBA拼箱代码 2.rar

18.98 KB, 下载次数: 1

回复

使用道具 举报

发表于 2021-4-20 10:10 | 显示全部楼层
zwj8859 发表于 2021-4-20 07:56
更改“实际数量”后,出现下标越界错误。 Do While j + ae(si, 5),请麻烦老师抽的时间再完善一下,太感 ...

您好,附件的例子正確答案是什麼?
看了出錯的原因是:
实际数量(總和) 大於 标准装盒数量(總和) ,造成的!
回复

使用道具 举报

 楼主| 发表于 2021-4-20 10:56 | 显示全部楼层
本帖最后由 zwj8859 于 2021-4-20 11:22 编辑
cutecpu 发表于 2021-4-20 10:10
您好,附件的例子正確答案是什麼?
看了出錯的原因是:
实际数量(總和) 大於 标准装盒数量(總和) ,造 ...

是这个原因造成的。理论上实际作业中应该是“实际数量”总和要小于或等于标准装箱数量总和,如果“实际数量'总和大于装箱数时,应该增加箱数,产品才能装得下,但程序中不会增加箱数,导致失败?不知理解对否? 标准装盒数量所在行与相对应的“光度”产品,如果使用ae(si,5)循环怕是无法一 一对应?装箱顺序从上往下进行拼箱
回复

使用道具 举报

发表于 2021-4-20 14:02 | 显示全部楼层
zwj8859 发表于 2021-4-20 10:56
是这个原因造成的。理论上实际作业中应该是“实际数量”总和要小于或等于标准装箱数量总和,如果“实际数 ...

您好,不用 一 一 對應沒關係,但要实际数量总和要小于或等于标准装箱数量总和

您可以再用個例子(附上標準答案),上傳附件後,我再看怎麼幫您改!

祝順心,南無阿彌陀佛!





回复

使用道具 举报

 楼主| 发表于 2021-4-20 15:54 | 显示全部楼层
cutecpu 发表于 2021-4-20 14:02
您好,不用 一 一 對應沒關係,但要实际数量总和要小于或等于标准装箱数量总和!

您可以再用個例子(附 ...

待我自己再想想,消化一下,如果还是想不通再请老师,在此表示衷心感谢!
回复

使用道具 举报

 楼主| 发表于 2021-4-21 14:09 | 显示全部楼层
本帖最后由 zwj8859 于 2021-4-21 14:19 编辑
zwj8859 发表于 2021-4-20 15:54
待我自己再想想,消化一下,如果还是想不通再请老师,在此表示衷心感谢!

VBA高手老师,我自己想不出来,还有请老师再完善一下程序

VBA拼盒代码.rar

16.03 KB, 下载次数: 1

回复

使用道具 举报

 楼主| 发表于 2021-4-21 18:46 | 显示全部楼层
超级版主:你好!VBA拼箱的代码麻烦你再修改完善一下。
回复

使用道具 举报

发表于 2021-4-21 20:19 | 显示全部楼层
本帖最后由 cutecpu 于 2021-4-21 20:26 编辑
zwj8859 发表于 2021-4-21 18:46
超级版主:你好!VBA拼箱的代码麻烦你再修改完善一下。

您好,您原來的例子我看不出規則,所以幫不上忙喔!
除非 圖片(B列)箭頭指向的地方,改成 10 跟 16 才有辦法喔!



祝順心,南無阿彌陀佛!


原來

原來
回复

使用道具 举报

 楼主| 发表于 2021-4-21 21:35 | 显示全部楼层
cutecpu 发表于 2021-4-21 20:19
您好,您原來的例子我看不出規則,所以幫不上忙喔!
除非 圖片(B列)箭頭指向的地方,改成 10 跟 16 才有 ...

实际数量>标准装盒数量,程序就停止了。能否设定“实际数量>标准装盒数量”程序正常运行?在具体工作中,也是“实际数量>标准装盒数量”的
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 22:15 , Processed in 0.963711 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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