如何基于Excel中的单元格值打印特定的工作表？

Sub PrintStuff() UpdayebyExtendoffice20180811 Dim xRgVal As Variant Dim xSheets As Sheets Set xSheets = ActiveWorkbook.Worksheets xRgVal = xSheets(1).Range("A1").Value If (IsNumeric(xRgVal)) And (Len(xRgVal) = 1) Then Select Case xRgVal Case 1 xSheets(1).PrintOut Case 2 xSheets(2).PrintOut Case 3 xSheets(1).PrintOut xSheets(2).PrintOut Case Else MsgBox "Enter1,2 or 3 into A1(1 print Sheet1 2 print Sheet2 3 print Sheet1 and Sheet2 ", , "KuTools For Excel" Exit Sub End Select Else Exit Sub End If End Sub

Sub CreateControlSheet() UpdatebyExtendoffice20170811 Dim i As Integer Dim xCSheetRow As Integer Dim xSName As String Dim xCSheet As Variant Dim xRgVal As String On Error Resume Next xSName = "Control Sheet" Application.ScreenUpdating = False Application.DisplayAlerts = False Set xCSheet = ActiveWorkbook.Worksheets(xSName) xCSheetRow = xCSheet.Range("B65536").End(xlUp).Row For i = 2 To xCSheetRow xRgVal = xCSheet.Range("B" & i).Value If xRgVal = "Print" Or xRgVal = "print" Then If xCSheet.Range("A" & i).Value <> "" Then ActiveWorkbook.Worksheets(xCSheet.Range("A" & i).Value).PrintOut End If End If Next xCSheet.Delete ActiveWorkbook.Worksheets.Add ActiveSheet.Name = "Control Sheet" Range("A1").Select ActiveCell.FormulaR1C1 = "Sheet Name" Range("B1").Select ActiveCell.FormulaR1C1 = "Print?" For i = 1 To ActiveWorkbook.Worksheets.Count Range("A" & i + 1).Value = ActiveWorkbook.Worksheets(i).Name Next Cells.Columns.AutoFit Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。 

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！