วิธีการพิมพ์บางหน้าหรือแผ่นงานตามค่าเซลล์ใน Excel

คุณเคยจำเป็นต้องพิมพ์หน้าหรือเวิร์กชีตเฉพาะใน Excel โดยอิงตามค่าของเซลล์หรือไม่ ไม่ว่าจะเป็นการพิมพ์หมายเลขหน้าเฉพาะหรือเวิร์กชีตทั้งหมดเมื่อตรงตามเงื่อนไข คู่มือนี้มีวิธีการแบบทีละขั้นตอนในการดำเนินการดังกล่าว

พิมพ์หน้าบางหน้าตามค่าของเซลล์ด้วยรหัส VBA
พิมพ์แผ่นงานบางแผ่นตามค่าของเซลล์ด้วยรหัส VBA

พิมพ์หน้าบางหน้าตามค่าของเซลล์ด้วยรหัส VBA

ตัวอย่างเช่นคุณต้องการให้หน้าบางหน้าเช่นหน้า 1 ของแผ่นงานปัจจุบันพิมพ์โดยอัตโนมัติเมื่อป้อนหมายเลขหน้า 1 ลงในเซลล์ A1 ในแผ่นงานปัจจุบัน คุณสามารถทำได้ดังนี้เพื่อให้บรรลุ

1. เลือกเซลล์ที่มีหมายเลขหน้าที่คุณต้องการพิมพ์จากนั้นกด อื่น ๆ และ F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูล.

2. จากนั้น Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างจะปรากฏขึ้นโปรดคัดลอกและวางรหัส VBA ต่อไปนี้ลงในไฟล์ รหัส หน้าต่าง

รหัส VBA: พิมพ์หน้าตามค่าของเซลล์

Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then
        xPage = .Value
    Else: MsgBox "Please specify a cell and enter a page in cell"
        Exit Sub
    End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
    ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
    Exit Sub
End If
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการโผล่ขึ้นมา Kutools สำหรับ Excel ใหคลิกปุ the ม ใช่ เพื่อพิมพ์บางหน้าหรือคลิกปุ่ม ไม่ เพื่อออกจากกล่องโต้ตอบหากคุณไม่ต้องการพิมพ์ ดูภาพหน้าจอ:

จากนั้นหน้าต่างแสดงตัวอย่างของบางหน้าของแผ่นงานปัจจุบันจะเปิดขึ้นโปรดคลิกที่ไฟล์ พิมพ์ เพื่อเริ่มการพิมพ์

พิมพ์หน้าบางหน้าตามค่าของเซลล์ด้วยรหัส VBA

สมมติว่าคุณต้องการพิมพ์แผ่นงานที่ใช้งานอยู่เมื่อค่าในเซลล์ B2 ของแผ่นงานนี้เท่ากับหมายเลข 1001 คุณสามารถทำได้โดยใช้รหัส VBA ต่อไปนี้ กรุณาดำเนินการดังนี้

1. คลิกขวาที่ไฟล์ แท็บแผ่นงาน ที่คุณต้องการพิมพ์ตามค่าของเซลล์จากนั้นคลิก ดูรหัส จากเมนูคลิกขวา

2. จากนั้น Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างจะปรากฏขึ้นโปรดคัดลอกและวางรหัส VBA ต่อไปนี้ลงในหน้าต่างรหัส

รหัส VBA: พิมพ์แผ่นงานตามค่าของเซลล์

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
    If xCell.Value = 1001 Then
        xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
        If xYesorNo = vbYes Then
          ActiveSheet.PrintOut
        Else
           Exit Sub
        End If
End If
End Sub

หมายเหตุ: คุณสามารถเปลี่ยนเซลล์และค่าเซลล์ในโค้ดได้ตามที่คุณต้องการ

3 กด อื่น ๆ + Q เพื่อปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

เมื่อป้อนหมายเลข 1001 ลงในเซลล์ B2 ก Kutools สำหรับ Excel กล่องโต้ตอบปรากฏขึ้นโปรดคลิกที่ไฟล์ ใช่ เพื่อเริ่มการพิมพ์ หรือคลิกไฟล์ ไม่ เพื่อออกจากกล่องโต้ตอบโดยตรงโดยไม่ต้องพิมพ์ ดูภาพหน้าจอ:

เคล็ดลับ: หากคุณต้องการพิมพ์หน้าที่ไม่ต่อเนื่องกันโดยตรงเช่นหน้า 1, 6 และ 9 ในแผ่นงานปัจจุบันหรือพิมพ์เฉพาะหน้าคู่หรือหน้าคี่ทั้งหมดคุณสามารถลองใช้ พิมพ์หน้าที่ระบุ ประโยชน์ของ Kutools สำหรับ Excel ดังภาพด้านล่างที่แสดง

บทความที่เกี่ยวข้อง:

• วิธีสร้างพื้นที่พิมพ์แบบไดนามิกใน Excel
• จะพิมพ์เฉพาะหน้าสุดท้ายของแผ่นงานใน Excel ได้อย่างไร?