excel打印序列号递增 5
F3,F9,F17三个位置序列号按“年月+三位数字”排序(比如201905001),每打印一张,三个位置序列号自动递增+1...
F3,F9,F17 三个位置序列号按“ 年月+三位数字” 排序(比如201905001),每打印一张,三个位置序列号自动递增+1
展开
2个回答
展开全部
第一步,在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》确定,输入打印份数
展开全部
操作步骤与楼上一样,第三步粘贴代码请粘贴到THISWORKBOOK
代码出下
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Date1 = "NO" & Format(Date, "yymmdd")
[g1] = [g1] + 1
[f1] = Date1 & Format([g1], "000")
[f9] = Date1 & Format([g1] + 1, "000")
[f17] = Date1 & Format([g1] + 2, "000")
[g1] = [g1] + 2
End Sub
第四步不用,只需打印即可将号码顺利打入,如果打印有误,请修改在G1单元格起始数值即可
代码出下
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Date1 = "NO" & Format(Date, "yymmdd")
[g1] = [g1] + 1
[f1] = Date1 & Format([g1], "000")
[f9] = Date1 & Format([g1] + 1, "000")
[f17] = Date1 & Format([g1] + 2, "000")
[g1] = [g1] + 2
End Sub
第四步不用,只需打印即可将号码顺利打入,如果打印有误,请修改在G1单元格起始数值即可
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询