Board logo

标题: [电脑] Excel问题求助~~~~~~~~~~~~~~~~~~~~~~~ [打印本页]

作者: 二伯    时间: 2013-5-16 16:14     标题: Excel问题求助~~~~~~~~~~~~~~~~~~~~~~~

有一张表单表单上有一个编号
格式为SGBXXXX
XXXX为标号 从0001开始
如何能打出连续序号的若干张(上百张)表单
作者: xx88    时间: 2013-5-16 16:16

posted by wap, platform: iPad

VBA
这个最容易
作者: qyqgpower    时间: 2013-5-16 16:18

posted by wap, platform: iPhone

工作表?那只有VBA生成最快了。
作者: 二伯    时间: 2013-5-17 08:42

引用:
原帖由 qyqgpower 于 2013-5-16 16:18 发表
posted by wap, platform: iPhone

工作表?那只有VBA生成最快了。
不大懂VBA
能给做个样子吗?
作者: lilarcor    时间: 2013-5-17 10:18

邮件合并就可以了,但是要放在word里做
作者: niubility    时间: 2013-5-17 14:29

楼主是要生成上百个工作表?
作者: 东哥马甲    时间: 2013-5-17 14:37

不现实啊, EXCEL只支持255个工作表
你编号300以上怎么办?
作者: sowo    时间: 2013-5-17 14:52

Sub printexcel()

Dim i As Integer
Dim iPrint As Integer

iPrint = 100

For i = 1 To iPrint

   Range("A1").Value = "SGB" & Format(i, "0000")
   ActiveSheet.PrintOut

Next

End Sub

把iprint改成打印的数量,A1改成单元格的标号
试一试




欢迎光临 TGFC Lifestyle (http://bbs.tgfcer.com/) Powered by Discuz! 6.0.0