[已解决]全选工作簿中工作表名称不包含"*封面*"的工作表打印预览

hcy1185

If Not .Name Like "*封面*" Then
全选工作簿中工作表名称不包含"*封面*"的所有工作表打印预览
求vba代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-25 16:06

1. Sub 批量预览2()
   
2.     Dim sht, sSht$, arr
   
3.     For Each sht In Worksheets
   
4.         If Not sht.Name Like "*封面*" Then sSht = sSht & sht.Name & ","
   
5.     Next
   
6.     arr = Split(Left(sSht, Len(sSht) - 1), ",")
   
7.     Sheets(arr).PrintPreview
   
8. End Sub

复制代码

还以为是数组有问题，原来弄错了。

跳转到最佳答案楼层

hwc2ycy

Sheets.PrintPreview 方法
按对象打印后的外观效果显示对象的预览。
语法

表达式.PrintPreview(EnableChanges)
表达式   一个代表 Sheets 对象的变量。

hcy1185

hwc2ycy 发表于 2012-10-25 15:35
Sheets.PrintPreview 方法
按对象打印后的外观效果显示对象的预览。
语法

老师你好！
能不能给写一下代码？

hwc2ycy

1. If Not .Name Like "*封面*" Then .PrintPreview

复制代码

hwc2ycy

希望你前面已经有用with sheets之类的语句，否则报错的。

hcy1185

hwc2ycy 发表于 2012-10-25 15:40

比如工作簿里有4个工作表，第一个工作表名称包含“*封面*”
想得到的效果是：第二个至第四个工作表为工作组，预览时，此3个工作表的页码是连续的，可以用鼠标滚轮预览

hwc2ycy

1. Sub 批量预览()
   
2.     Dim i, sht, sSht$, arr, arr2
   
3.     For Each sht In Worksheets
   
4.         If Not sht.Name Like "*封面*" Then sSht = sSht & sht.Name & ","
   
5.     Next
   
6.     arr = Split(Left(sSht, Len(sSht) - 1), ",")
   
7.     ReDim arr2(0 To UBound(arr))
   
8.     For i = LBound(arr) To UBound(arr)
   
9.         arr2(i) = arr(i)
   
10.     Next
    
11.     Sheets(arr2).PrintPreview
    
12. End Sub

复制代码

hwc2ycy

1. Sub 批量预览2()
   
2.     Dim sht, sSht$, arr
   
3.     For Each sht In Worksheets
   
4.         If Not sht.Name Like "*封面*" Then sSht = sSht & sht.Name & ","
   
5.     Next
   
6.     arr = Split(Left(sSht, Len(sSht) - 1), ",")
   
7.     Sheets(arr).PrintPreview
   
8. End Sub

复制代码

还以为是数组有问题，原来弄错了。

hcy1185

hwc2ycy 发表于 2012-10-25 16:06
还以为是数组有问题，原来弄错了。

老师你好！
我想和原来的过程代码合并使用，原来代码有 For Each sh In ThisWorkbook.Sheets
可不可以把 For Each sht In Worksheets 改为 For Each sh In ThisWorkbook.Sheets

hwc2ycy

可以。