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

fanjy

我在收集VBA 100句时就有这个想法,一直没有实施.
想不到已经有人在做了,希望能够做得更好.

lbl016

原帖由 kevinchengcw 于 2010-5-7 16:41 发表
Private Sub CommandButton1_Click()
    For i = 1 To f_ShCOunt
        If Me.Controls("CheckBox" & i) Then Sh = Sh & " " & Me.Controls("CheckBox" & i).Caption
    Next
    If Sh  "" Then
        a ...

不知如何修改，如何配合上一步或下一步的代码？kevinchengcw老师，还是烦请你帮我实现好吗，我现在正在打印手册，天天都在等着用

[ 本帖最后由 lbl016 于 2010-5-7 17:08 编辑 ]

kevinchengcw

Sub 批量打印()
for n=3 to worksheets(worksheets("信息卡").[i1]).[c65536].end(3).row
sheets("封1").printout
sheets("封2").printout
下一步
添加各分表辅助列
End Sub

这样试一下，至于是下一步在前还是添加各分表辅助列在前你自己试一下

kevinchengcw

原帖由 fanjy 于 2010-5-7 17:02 发表
我在收集VBA 100句时就有这个想法,一直没有实施.
想不到已经有人在做了,希望能够做得更好.

还希望版主能帮忙出出主意，我写到现在已经不知何去何从了

lbl016

原帖由 kevinchengcw 于 2010-5-7 17:08 发表
Sub 批量打印()
for n=3 to worksheets(worksheets("信息卡").).[c65536].end(3).row
sheets("封1").printout
sheets("封2").printout
下一步
添加各分表辅助列
End Sub

这样试一下，至于是下一步在前还是添 ...

Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡").[i1]).[c65536].End(3).Row
Sheets("封1").PrintOut
Sheets("封2").PrintOut
下一步
添加各分表辅助列
Next
End Sub
运行到这句For n = 3 To Worksheets(Worksheets("信息卡").[i1]).[c65536].End(3).Row报运行时错误‘13’类型不匹配

[ 本帖最后由 lbl016 于 2010-5-7 17:14 编辑 ]

lbl016

原帖由 lbl016 于 2010-5-7 17:11 发表

Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡").).[c65536].End(3).Row
Sheets("封1").PrintOut
Sheets("封2").PrintOut
下一步
添加各分表辅助列
Next
End Sub
运行到这句For n = 3 To Wo ...

运行到这句For n = 3 To Worksheets(Worksheets("信息卡").[i1]).[c65536].End(3).Row报运行时错误‘13’类型不匹配
For n = 3 To Worksheets(Worksheets("信息卡").[i1]).[c65536].End(3).Row这句的函义我也搞不懂

[ 本帖最后由 lbl016 于 2010-5-7 17:31 编辑 ]

kevinchengcw

将信息卡里I1单元格的值作为表名，引用该表的最后一行，不行在[i1]后面加个.value试一下

lbl016

原帖由 kevinchengcw 于 2010-5-7 17:37 发表
将信息卡里I1单元格的值作为表名，引用该表的最后一行，不行在后面加个.value试一下

是这样吗？还是报运行时错误‘13’类型不匹配

Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡").[i1]).[c65536].End(3).Row.Value
Sheets("封1").PrintOut
Sheets("封2").PrintOut
添加各分表辅助列
下一步
Next
End Sub

[ 本帖最后由 lbl016 于 2010-5-7 17:43 编辑 ]

lbl016

原帖由 lbl016 于 2010-5-7 17:40 发表

是这样吗？还是报运行时错误‘13’类型不匹配

Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡").).[c65536].End(3).Row.Value
Sheets("封1").PrintOut
Sheets("封2").PrintOut
添加各分表辅助 ...

能否实现可选择批量打印其中部分

lbl016

原帖由 lbl016 于 2010-5-7 17:45 发表

能否实现可选择批量打印其中部分

Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡").[i1].Value).[c65536].End(3).Row
Sheets("封1").PrintOut
Sheets("封2").PrintOut
添加各分表辅助列
下一步
Next
End Sub
这样是可以了，但有个问题是一旦选择打印按钮后就会把全部数据打印完，无法控制打印。能否实现可选择批量打印其中部分

[ 本帖最后由 lbl016 于 2010-5-7 18:14 编辑 ]