Excel 超级打印高手请进来指导 - ExcelVBA程序开发 - Excel Home...
来源:百度文库 编辑:神马文学网 时间:2024/04/29 22:54:48
Sub 按顺序打印()
Dim shx(100)
Sheets("目录").Active
For i = 3 To 102
a = Cells(i, 4).Value
b = Cells(i, 1).Value
If a > 0 Then
shx(a) = b
End If
Next
For i = 1 To 100
If shx(i) > 0 Then
Sheets(shx(i)).Active
ActiveWindow.SelectedSheets.PrintOut
endif
Next
End Sub
Dim shx(100)
Sheets("目录").Active
For i = 3 To 102
a = Cells(i, 4).Value
b = Cells(i, 1).Value
If a > 0 Then
shx(a) = b
End If
Next
For i = 1 To 100
If shx(i) > 0 Then
Sheets(shx(i)).Active
ActiveWindow.SelectedSheets.PrintOut
endif
Next
End Sub
Excel 超级打印高手请进来指导 - ExcelVBA程序开发 - Excel Home...
Excel 职员考勤综合管理窗体 - ExcelVBA程序开发 - Excel Home论...
Excel 怎样指定导入数据列? - ExcelVBA程序开发 - Excel Home论...
Excel Excel VBA的常用命令举例 - ExcelVBA程序开发 - Excel...
Excel Excel VBA的常用命令举例 - ExcelVBA程序开发 - Excel...
Excel vba 里的日期加减函数是? - ExcelVBA程序开发 - Excel H...
Excel [求助]用1个vba在两个单元格做两种排序 - ExcelVBA程序开发 - ...
Excel 工资发放、分栏排版、固定资产折旧(公开部分源码) - ExcelVBA程序开发...
超级实用:Excel表格打印技巧集
高手建议你用Excel来聊天
Excel的双面打印
用Excel打印成绩表
如何打印Excel表格
excel奇偶页打印
巧用Excel打印成绩
Excel制作打印工资条
借助Excel的分级显示 来隐藏不打印数据
Excel实现批量打印工资条
巧用Excel打印成绩通知单
巧用Excel打印成绩通知单
Excel的双面打印1
巧用Excel打印成绩通知单
excel表格设置双面打印
0000excel奇偶页打印