excel制作的标签批量打印时自动加序号

微笑吧90 · 发表于 2023-1-1 12:22

用EXCEL制作了标签，每次需要打印几百份，希望实现一键打印几百份，打印区域，并且每打印一次“g8”单元格序号指定号码以递增的方式增加下去，打印完成序号归零。

3190496160 · 发表于 2023-1-1 13:44

序号指定号码？？？？？？？？什么意思？？？

微笑吧90 · 发表于 2023-1-1 13:52

3190496160 发表于 2023-1-1 13:44
序号指定号码？？？？？？？？什么意思？？？

比如序号我要从50开始排到100

3190496160 · 发表于 2023-1-1 14:02

Sub 打印()
ks = InputBox("请输入开始序号", , "开始序号", "1")
js = InputBox("请输入结束序号", , "结束序号", "1")
If ks = "" Then End
If js = "" Then End
With ActiveSheet
For i = Val(ks) To Val(js)
.[g8] = i
.PrintOut
Next i
.[g8] = ""
End With
End Sub

微笑吧90 · 发表于 2023-1-1 14:35

3190496160 发表于 2023-1-1 14:02
Sub 打印()
ks = InputBox("请输入开始序号", , "开始序号", "1")
js = InputBox("请输入结束序号", , " ...

我不知道要怎么运用这个代码，麻烦你帮我写上可以吗，

zpy2 · 发表于 2023-1-1 15:41

微笑吧90 发表于 2023-1-1 14:35
我不知道要怎么运用这个代码，麻烦你帮我写上可以吗，

Alt f11

打开运行，

微笑吧90 · 发表于 2023-1-1 16:04

zpy2 发表于 2023-1-1 15:41
Alt f11

打开运行，

是这样子吗，打印出来没有显示数字出来

zpy2 · 发表于 2023-1-1 16:05

微笑吧90 发表于 2023-1-1 16:04
是这样子吗，打印出来没有显示数字出来

你这个是wps 的jsa，这个是vba ,需要vba的环境或者说是需要excel才能使用。

微笑吧90 · 发表于 2023-1-1 17:24

zpy2 发表于 2023-1-1 16:05
你这个是wps 的jsa，这个是vba ,需要vba的环境或者说是需要excel才能使用。

那有什么别的方法能实现吗，excel我这边也有2013版本的

微笑吧90 · 发表于 2023-1-1 17:41

微笑吧90 发表于 2023-1-1 17:24
那有什么别的方法能实现吗，excel我这边也有2013版本的

wps有其他办法实现这样的吗，excel有点难搞

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

[求助] excel制作的标签批量打印时自动加序号