如果满足条件则打印多个工作集

Question

每天我需要从 Excel 工作簿打印多个工作表，但我只需要单元格 G4 中有数据的工作表，如果该单元格为空，我不需要打印该工作表。 书中的工作表数量可能会随着每个新商店的添加而变化。 因此，我需要一个代码来查看工作簿并打印工作表（如果单元格 g4 上有信息），然后移至下一个。

Answer 1

如果特定单元格不为空，则打印工作表

• 您可以基于以下基本代码进行构建。

Sub PrintIfNotBlank()
    
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    ' If it isn't, specify the workbook by name or use 'ActiveWorkbook'.
    
    Dim ws As Worksheet
    
    For Each ws In wb.Worksheets
        If Len(CStr(ws.Range("G4").Value)) > 0 Then ' is not blank
            ws.PrintOut
        End If
    Next ws
    
End Sub