[已解决]求老师帮忙优化打印代码

dragon840919

我想用宏实现以下功能：先排除"BOM"\"模板"\“架位”，“计划导入”表，当分表的C2单无格为空时不打印，C2单元格有编号时打印

最佳答案

月排行榜 / 总排行榜

爱疯

2016-11-2 21:42

Sub test()
    Dim notPrint As String, x
    notPrint = ",bom,模板,架位,计划导入"
    For Each x In Sheets
        If InStr(notPrint, x.Name) = 0 And Len(x.[c2]) Then x.PrintOut
    Next
End Sub

是这样？
不必上传所有的分表，比如留2个，够说明问题即可。

跳转到最佳答案楼层

爱疯

Sub test()
    Dim notPrint As String, x
    notPrint = ",bom,模板,架位,计划导入"
    For Each x In Sheets
        If InStr(notPrint, x.Name) = 0 And Len(x.[c2]) Then x.PrintOut
    Next
End Sub

是这样？
不必上传所有的分表，比如留2个，够说明问题即可。