用EXCEL打印表格 自动加编码

我现在用EXCEL编好了一个表格,打印时想在其上面加入类似于单据上的连续编码,请各位帮忙,在线等请上面两位说的再明确一点。谢谢!... 我现在用EXCEL编好了一个表格,打印时想在其上面加入类似于单据上的连续编码,请各位帮忙,在线等
请上面两位说的再明确一点。谢谢!
展开
 我来答
chaohua008
推荐于2017-09-08 · TA获得超过1.1万个赞
知道大有可为答主
回答量:5800
采纳率:14%
帮助的人:3011万
展开全部
假设编码在G1单元格,使用下面代码可实现打印和自动编码递增。
按ALT+F11打开VBA窗口,插入一个模块,把下面代码复制进去。
回到excel窗口,按“视图-工具栏”,点“窗体”,调出“窗体”工具栏,在上面选一个按钮,添加到表格上,并指定宏为“打印”。
使用时,每点击一下添加的按钮,就会打印一次,并使编号自动加一。

Sub 打印()
ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("g1"))
s = s + 1
Range("g1") = "'" & Right("0000" & s, 5)
End Sub

如有疑问,可以H我。
ylkzx
2010-01-21 · TA获得超过331个赞
知道答主
回答量:132
采纳率:0%
帮助的人:0
展开全部
以我多年的经验好象不可以出现这样的结果,上面那位说的定义页眉或页脚也不能出现这自动变的结果,还是手动输入下吧
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
caizhongyi
2010-01-21 · TA获得超过347个赞
知道小有建树答主
回答量:226
采纳率:0%
帮助的人:204万
展开全部
可以用宏实现,但是我水平太低爱莫能助
就是统计打印次数的功能,每打印一次,编码自动加1
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
wangdajiangnet
2010-01-21 · TA获得超过1731个赞
知道小有建树答主
回答量:987
采纳率:0%
帮助的人:792万
展开全部
定义页眉或页脚,在页面设置里
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
gao214058164
2010-01-21
知道答主
回答量:31
采纳率:0%
帮助的人:0
展开全部
页眉或页脚
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式