如图，如何固定次数自动排列

hongmeili · 发表于 2023-3-21 17:03

本帖最后由 hongmeili 于 2023-3-22 15:48 编辑

求助：随机的数量，要满足12个为一件，怎么根据随机的数量（图1）来排列成（图2）的模板

条码.rar (7.96 KB, 下载次数: 8)

准提部林 · 发表于 2023-3-23 22:22

先做個//

XX20230323.rar (16.15 KB, 下载次数: 12)

蓝桥玄霜 · 发表于 2023-3-21 20:02

欢迎新会员！

建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

高个子 · 发表于 2023-3-22 16:09

这个有一个问题，如果到最后剩9和5，是拆9还是拆5呢？因为9+3、2或者5+7、2都符合要求

hongmeili · 发表于 2023-3-23 00:17

高个子发表于 2023-3-22 16:09
这个有一个问题，如果到最后剩9和5，是拆9还是拆5呢？因为9+3、2或者5+7、2都符合要求

两个都可以。只要满足数量12。总数没问题就可以

高个子 · 发表于 2023-3-23 17:09

hongmeili 发表于 2023-3-23 00:17
两个都可以。只要满足数量12。总数没问题就可以

明白了，，

准提部林 · 发表于 2023-3-23 21:03

1) 若前筆有餘數, 補足..增一行
2) 當行數量-補足數, 取箱數
3) 若還有餘數,箱號+1, 增一行

結果要求格式, 那可能不太方便用數組,
大概要一行行複製再寫入, 速度慢~~

看看~~

hongmeili · 发表于 2023-3-24 12:12

准提部林发表于 2023-3-23 21:03
1) 若前筆有餘數, 補足..增一行
2) 當行數量-補足數, 取箱數
3) 若還有餘數,箱號+1, 增一行

好的好的，非常感谢

hongmeili · 发表于 2023-3-24 13:47

准提部林发表于 2023-3-23 22:22
先做個//

感谢您的帮助，想请问下，如果A.Copy X: X = "68384--||--" & N: Set X = X(2)的“68384”想要改成自动更换的，需要怎么更改呢

条码.rar (8.03 KB, 下载次数: 3)

准提部林 · 发表于 2023-3-24 19:27

hongmeili 发表于 2023-3-24 13:47
感谢您的帮助，想请问下，如果A.Copy X: X = "68384--||--" & N: Set X = X(2)的“68384”想要改成自动更 ...

要改的
V = Arr(i, 4): T1 = Arr(i, 2): T2 = Arr(i, 3)

A.Copy X: X = Arr(i, 1) & "--||--" & N: Set X = X(2)

最后一行
[a1] = "生产日期:" & Format(Date, "yyyy/mm/dd")

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

[求助] 如图，如何固定次数自动排列

评分