Excel 怎么设置编号每打印一次自动递增
4个回答
展开全部
第一步,在excel里,按ALT+F11,会弹出一个窗口
第二步,在弹出的窗口里选 菜单中的插入,模块
第三步,复制粘贴下面
Sub dayin()
dim n as integer
n=inputbox("打印次数") *1
for i=1 to n
activesheet.PrintOut Copies:=1
[H2]= "NO:" & application.text(i,"0000000000")'这里是H2,改成自己需要的单元格,后面是数字格式,根据需要修改
next
End Sub
代码,然后关闭窗口
第四步,回到excel中》宏》dayin》确定,输入打印份数
第二步,在弹出的窗口里选 菜单中的插入,模块
第三步,复制粘贴下面
Sub dayin()
dim n as integer
n=inputbox("打印次数") *1
for i=1 to n
activesheet.PrintOut Copies:=1
[H2]= "NO:" & application.text(i,"0000000000")'这里是H2,改成自己需要的单元格,后面是数字格式,根据需要修改
next
End Sub
代码,然后关闭窗口
第四步,回到excel中》宏》dayin》确定,输入打印份数
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
第一步,在excel里,按ALT+F11,会弹出一个窗口
在VB中输入以下代码程序就行,你的流水号设置在哪个位就把[F3]换成你要的位置就行!
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet3" Then
Application.EnableEvents = False
[f3] = Left([f3], 9) & Format(Right([f3], 5) + 1, "00000")
Application.EnableEvents = True
End If
End Sub
此程序我是在网上搜出的,原来的程序会重复打印,后来我查了很久,把其中的一个编程删掉才不会重复打印
在VB中输入以下代码程序就行,你的流水号设置在哪个位就把[F3]换成你要的位置就行!
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet3" Then
Application.EnableEvents = False
[f3] = Left([f3], 9) & Format(Right([f3], 5) + 1, "00000")
Application.EnableEvents = True
End If
End Sub
此程序我是在网上搜出的,原来的程序会重复打印,后来我查了很久,把其中的一个编程删掉才不会重复打印
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询