如何根據 Excel 儲存格中的數值來列印特定的工作表？

作者Sun修改日期2024-11-14

您是否曾想根據某個儲存格的數值來列印特定工作表？本文將提供幾個實用範例，幫您輕鬆解決這個問題。感興趣的話，請繼續閱讀！

使用 VBA 根據儲存格列印工作表

使用 VBA 根據相鄰儲存格列印工作表

使用 VBA 根據儲存格列印工作表

假設您有兩個工作表，並希望根據 Sheet 1 中儲存格 A1 的內容，決定要列印 Sheet 1、Sheet 2，還是同時列印兩個工作表。請依照以下步驟操作：

在此情況下，輸入 1 表示列印第一個工作表，輸入 2 表示列印第二個工作表，輸入 3 則可同時列印兩個工作表。

1. 在第一個工作表的 A1 儲存格中輸入 1、2 或 3（依需求而定），然後按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下方程式碼貼到模組腳本中。請參閱截圖：
在 VBA 視窗中插入模組的螢幕截圖

VBA：根據儲存格數值列印工作表

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

在模組視窗中插入 VBA 程式碼的螢幕截圖

3. 按下 F5 鍵，即可直接列印工作表。

使用 VBA 根據相鄰儲存格列印工作表

如果活頁簿中包含多個工作表，而您希望根據該活頁簿中的儲存格數值來列印一個或多個工作表，可依照以下步驟操作：

1. 在您使用的活頁簿中，建立一個名為控制工作表的新工作表，並於 A 欄列出所有工作表名稱（可依需求決定是否包含控制工作表）。請參閱截圖：
Excel 中「控制工作表」的螢幕截圖，A 欄列出工作表名稱

2. 若要列印某個工作表，請在其工作表名稱旁的相鄰儲存格中輸入「print」，詳情請參閱下方截圖。
「控制工作表」的螢幕截圖，在工作表名稱旁邊的相鄰儲存格中輸入了「print」值

3. 按下 Alt + F11 鍵，開啟 Microsoft Visual Basic for Applications 視窗後，點選插入＞模組。請參閱截圖：
在 VBA 視窗中插入模組的螢幕截圖

4. 將下方程式碼貼到模組中，然後按下 F5 鍵執行程式碼。

VBA：根據相鄰儲存格列印

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

在模組視窗中插入 VBA 程式碼的螢幕截圖

執行程式碼後，系統將立即列印工作表，並以全新的控制工作表取代原有的控制工作表。

提示：若您已安裝 Kutools for Excel，可善用其創建鏈接表功能，在新工作表中快速生成包含所有工作表名稱並附帶可點擊連結的清單！

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多