วิธีพิมพ์แผ่นงานทั้งหมดยกเว้นแผ่นงานเดียวใน Excel
ในการทำงานของ Excel การพิมพ์แผ่นงานอาจเป็นงานประจำวันทั่วไปสำหรับคุณ อย่างไรก็ตามคุณเคยพยายามพิมพ์แผ่นงานทั้งหมด แต่มีแผ่นงานเดียวหรือไม่? ตัวอย่างเช่นสมุดงานที่นี่คุณต้องการพิมพ์แผ่นงานทั้งหมด แต่แผ่นงานที่ชื่อว่า "Total" คุณจะจัดการกับมันได้อย่างไร?
พิมพ์แผ่นงานทั้งหมดยกเว้นแผ่นเดียวด้วย VBA
พิมพ์บางหน้าที่คุณต้องการด้วย Kutools for Excel
พิมพ์แผ่นงานทั้งหมดยกเว้นแผ่นเดียวด้วย VBA
นี่คือรหัส VBA ที่สามารถพิมพ์แผ่นงานทั้งหมดยกเว้นแผ่นงานเฉพาะแผ่นเดียว
1. เปิดใช้งานสมุดงานที่คุณต้องการพิมพ์แผ่นงานแล้วกด Alt + F11 ปุ่มเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลe วางโค้ดด้านล่างลงในสคริปต์โมดูล
VBA: พิมพ์แผ่นงานยกเว้นแผ่นเดียว
Sub printsheets()
'UpdatebyExtendoffice20161031
Dim xWs As Worksheet
Application.ScreenUpdating = False
For Each xWs In ThisWorkbook.Worksheets
If xWs.Visible = True Then
If xWs.Name <> "Total" Then
With xWs.PageSetup
.PrintArea = "A1:B15" ' USE YOUR PRINTAREA
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
xWs.PrintOut
End If
End If
Next xWs
Application.ScreenUpdating = False
MsgBox "Sheet “Total” has not been printed", vbInformation, "Kutools for Excel"
End Sub
หมายเหตุ ในรหัสไฟล์ รวม in ถ้า xWs.Name <> "Total" แล้ว และ MsgBox "ยังไม่ได้พิมพ์ Sheet Total" คือชื่อแผ่นงานที่คุณไม่ต้องการพิมพ์และ A1: B15 in .PrintArea = "A1: B15" คือช่วงที่คุณต้องการพิมพ์ของแต่ละแผ่น คุณสามารถเปลี่ยนได้ตามต้องการ
3 กด F5 เพื่อเรียกใช้รหัสจากนั้นกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนคุณว่ายังไม่ได้พิมพ์แผ่นงานเฉพาะ ดูภาพหน้าจอ:
4 คลิก OK เพื่อปิดกล่องโต้ตอบ
พิมพ์บางหน้าที่คุณต้องการด้วย Kutools for Excel
หากคุณต้องการพิมพ์เฉพาะหน้าคู่หรือหน้าคี่หรือหน้าเฉพาะของแผ่นงานคุณสามารถสมัครได้ Kutools for Excel's พิมพ์หน้าที่ระบุ ยูทิลิตี้ที่สามารถช่วยคุณได้อย่างรวดเร็ว
| Kutools for Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น |
หลังจากการติดตั้ง Kutools for Excelโปรดทำตามด้านล่าง:(ดาวน์โหลดฟรี Kutools for Excel ตอนนี้!)
1. เปิดใช้งานแผ่นงานที่คุณต้องการพิมพ์บางหน้าคลิก Kutools พลัส > การพิมพ์ > พิมพ์หน้าที่ระบุ. ดูภาพหน้าจอ:
2. จากนั้นใน พิมพ์หน้าที่ระบุ โต้ตอบตรวจสอบตัวเลือกตามความต้องการในการพิมพ์ของคุณ ดูภาพหน้าจอ:
3 คลิก พิมพ์ เพื่อพิมพ์หน้า
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
