箱号自动生成

liuliu616 · 发表于 2019-8-22 13:23

客户想要编写外箱标签
可是我公司发货量比较大
有时候单品种也会有一百多箱，一个一个编写又麻烦又容易错
请问各位有什么办法吗？
我已经上传附件了
麻烦帮我看一下
谢谢

约定的童话 · 发表于 2019-8-22 13:30

给个思路吧，日期+编码后四位，或者后五位，足够了，类似这种201908220001

w609053988 · 发表于 2019-8-22 13:38

视图--页面布局--可以按实际尺寸调整行高和列宽

w609053988 · 发表于 2019-8-22 13:39

再论坛搜索下批量打印的帖子

liuliu616 · 发表于 2019-8-22 15:15

约定的童话发表于 2019-8-22 13:30
给个思路吧，日期+编码后四位，或者后五位，足够了，类似这种201908220001

不是不是，D7单元格必须是第1/N箱-第N/N箱，有文字和符号在里面，所以不知道怎么编写

13825719951 · 发表于 2019-8-22 16:23

亲，您公司需要线束吗？我们公司做线束的；可以的话，合作一下，我可以帮你们编整套系统

13825719951 · 发表于 2019-8-22 16:24

附件里没有原始数据呀。

13825719951 · 发表于 2019-8-22 16:25

你看俺这个如何？ http://club.excelhome.net/thread-1495122-1-1.html

大灰狼1976 · 发表于 2019-8-22 16:34

举个例子：

Sub test()
Dim n&, i&
n = 100
For i = 1 To n
MsgBox "第" & i & "/" & n & "箱"
Next i
End Sub

复制代码

koala219 · 发表于 2019-8-22 16:38

Sub BiaoQianLianXuPrint()
Dim MK%, i%
MK = Range("J2") 在J2单元输入你要打印的最大箱数
If MK < 1 Then Exit Sub
For i = 1 To MK
Range("d7") = "第" & i & "/" & MK & " 箱"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Next i
End Sub

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

[求助] 箱号自动生成

最新热点 /1