抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

FXSHENG

HIT20000倒计时10、9、8..................
做个记号。

banana008

支持一下！学习中

lbl016

原帖由 lbl016 于 2010-5-10 11:26 发表
我真的急需，还请kevinchengcw 老师抽空帮我完善下好吗？

我真的急需，还请kevinchengcw 老师抽空帮我完善下好吗？

lbl016

原帖由 lbl016 于 2010-5-10 23:16 发表

我真的急需，还请kevinchengcw 老师抽空帮我完善下好吗？

kevinchengcw 老师,我真的急需，还请抽空帮我完善下好吗？

gregyin

学习。。。

brianchen008

对初学者应该很有用，先下下来学习！
谢谢楼主的分享！

sunguili8888

本人初学  这些现在还看不懂  不过楼主人格十分高尚 敬礼

lbl016

原帖由 lbl016 于 2010-5-11 09:43 发表

kevinchengcw 老师,我真的急需，还请抽空帮我完善下好吗？

kevinchengcw 老师,我已经反复研究寻找了很多方法均不行，我真的急需，还请抽空帮我完善下好吗？我随时在线等你哈？

kevinchengcw

Sub 批量打印()
dim M,N,I as integer
m=val(inputbox("请输入要打印的数量： "))
if m>Worksheets(Worksheets("信息卡").[i1].Value).[c65536].End(3).Row+3 then
   msgbox "数量超出现有数据行数，将按实际行数打印！"
  i=Worksheets(Worksheets("信息卡").[i1].Value).[c65536].End(3).Row
else
  i=Worksheets(Worksheets("信息卡").[i1].Value).[c65536].End(3).Row+3
end if
For n = 3 To i
Sheets("封1").PrintOut   
Sheets("封2").PrintOut
添加各分表辅助列
下一步
Next
End Sub

这样试一下

lbl016

原帖由 kevinchengcw 于 2010-5-11 16:27 发表
Sub 批量打印()
dim M,N,I as integer
m=val(inputbox("请输入要打印的数量： "))
if m>Worksheets(Worksheets("信息卡")..Value).[c65536].End(3).Row+3 then
   msgbox "数量超出现有数据行数，将按实际行数打 ...

现在的问题是1、输入打印数量后它不认输入的打印数量而是一直打印下去，2、还是只打印封2，而不打印封1。还有为啥for n = 3 To i而不是for n = 1To i。现在最关键的问题是输入打印数量后它不认输入的打印数量而是一直打印下去的问题？不打印封1的问题我可以用另外的办法解决。

[ 本帖最后由 lbl016 于 2010-5-11 19:39 编辑 ]