» 您尚未登录:请登录 | 注册 | 标签 | 帮助 | 小黑屋 |

TGFC Lifestyle » 完全数码讨论区 » Excel问题求助~~~~~~~~~~~~~~~~~~~~~~~

打印

[电脑] Excel问题求助~~~~~~~~~~~~~~~~~~~~~~~

二伯

小黑屋

帖子: 1790
精华: 0
积分: 16114
激骚: 497 度
爱车
主机
相机
手机
注册时间: 2009-1-15

发短消息
加为好友
当前离线

1^# 大中小发表于 2013-5-16 16:14 只看该作者

有一张表单表单上有一个编号
格式为SGBXXXX
XXXX为标号从0001开始
如何能打出连续序号的若干张(上百张)表单

TOP

xx88

禁止访问

帖子: 3923
精华: 0
积分: 26444
激骚: 385 度
爱车
主机
相机
手机
注册时间: 2006-6-25

TGFC 2014新年勋章☆☆☆☆ TGFC 2015新年勋章☆☆☆☆ TGFC 2018新年勋章☆☆☆☆

发短消息
加为好友
当前离线

2^# 大中小发表于 2013-5-16 16:16 只看该作者

posted by wap, platform: iPad

VBA
这个最容易

TOP

qyqgpower

魔王撒旦

帖子: 7374
精华: 0
积分: 30673
激骚: 258 度
爱车
主机
相机
手机
注册时间: 2002-4-2

TGFC 2015新年勋章☆☆☆☆

发短消息
加为好友
当前离线

3^# 大中小发表于 2013-5-16 16:18 只看该作者

posted by wap, platform: iPhone

工作表？那只有VBA生成最快了。

TOP

二伯

小黑屋

帖子: 1790
精华: 0
积分: 16114
激骚: 497 度
爱车
主机
相机
手机
注册时间: 2009-1-15

发短消息
加为好友
当前离线

4^# 大中小发表于 2013-5-17 08:42 只看该作者

引用:

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

工作表？那只有VBA生成最快了。

不大懂VBA
能给做个样子吗?

TOP

lilarcor

侠客

帖子: 434
精华: 0
积分: 10514
激骚: 49 度
爱车
主机
相机
手机
注册时间: 2011-2-24

发短消息
加为好友
当前离线

5^# 大中小发表于 2013-5-17 10:18 只看该作者

邮件合并就可以了，但是要放在word里做

TOP

niubility

摄影组

帖子: 3880
精华: 0
积分: 20632
激骚: 1608 度
爱车: 有
主机: 也有
相机: 确实有
手机: 必须得有
来自: 这个当然有
注册时间: 2007-10-22

TGFC 2015新年勋章☆☆☆☆ TGFC 2018新年勋章☆☆☆☆ TGFC 2019新年勋章☆☆☆☆ TGFC 2020年度勋章☆☆☆☆

发短消息
加为好友
当前离线

6^# 大中小发表于 2013-5-17 14:29 只看该作者

楼主是要生成上百个工作表？

TOP

东哥马甲

小黑屋

帖子: 71
精华: 0
积分: 5849
激骚: 18 度
爱车
主机
相机
手机
注册时间: 2010-12-8

发短消息
加为好友
当前离线

7^# 大中小发表于 2013-5-17 14:37 只看该作者

不现实啊， EXCEL只支持255个工作表
你编号300以上怎么办？

TOP

sowo

魔王撒旦

帖子: 6551
精华: 0
积分: 20467
激骚: 199 度
爱车
主机
相机
手机
注册时间: 2005-11-17

TGFC 2015新年勋章☆☆☆☆

发短消息
加为好友
当前离线

8^# 大中小发表于 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改成单元格的标号
试一试

TOP