วิธีซ่อนแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ระบุหรือใช้งานอยู่ใน Excel
เพื่อให้เวิร์กบุ๊กสะอาดและใช้งานง่ายคุณอาจต้องการซ่อนเวิร์กชีตทั้งหมดยกเว้นเวิร์กชีตที่ใช้งานอยู่ใน Excel ในบทความนี้เราจะแสดงวิธีการซ่อนแผ่นงานทั้งหมดสองวิธี แต่มีการระบุหรือใช้งานอยู่ใน Excel
ซ่อนแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ระบุใน Excel ด้วยรหัส VBA
ซ่อนแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ใช้งานอยู่ Kutools for Excel (เพียงไม่กี่คลิก)
ซ่อนแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ระบุใน Excel ด้วยรหัส VBA
คุณสามารถซ่อนแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ระบุด้วยรหัส VBA ใน Excel กรุณาดำเนินการดังนี้
1. ในสมุดงานที่เปิดอยู่ในปัจจุบันให้เลื่อนไปที่แผ่นงานที่คุณต้องการแสดงเท่านั้นจากนั้นกด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ แอปพลิเคชัน Microsoft Visual Basic หน้าต่าง
2 ใน แอปพลิเคชัน Microsoft Visual Basic หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. ดูภาพหน้าจอ:
3. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในตัวแก้ไขโค้ด
รหัส VBA: ซ่อนแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ระบุ
Sub SheetHidden()
Dim xWs As Worksheet
Dim xName As String
xName = Application.InputBox("Range", xTitleId, Application.ActiveSheet.Name, Type: = 2)
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xName Then
xWs.Visible = xlSheetHidden
End If
Next
End Sub
4 กด F5 กุญแจสำคัญในการเรียกใช้รหัส
5. หลังจากเรียกใช้รหัสกล่องโต้ตอบจะปรากฏขึ้นพร้อมชื่อแผ่นงานที่ใช้งานอยู่ซึ่งแสดงอยู่ในไฟล์ พิสัย จากนั้นคลิกที่ไฟล์ OK ปุ่ม
จากนั้นแผ่นงานทั้งหมดจะถูกซ่อนทันทียกเว้นแผ่นงานปัจจุบันในสมุดงานของคุณ
หมายเหตุ: สำหรับการแสดงเวิร์กชีตที่ซ่อนอยู่โปรดคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในโมดูลจากนั้นกดปุ่ม F5 เพื่อรันโค้ด
รหัส VBA: แสดงแผ่นงานที่ซ่อนอยู่
Sub SheetUnHidden()
Dim xWs As Worksheet
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Visible = True
Next
End Sub
ซ่อนแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ใช้งานอยู่ Kutools for Excel (เพียงคลิกเดียว)
คุณสามารถซ่อนแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ระบุหรือใช้งานได้ด้วยการคลิกเพียงครั้งเดียวใน Excel
ก่อนที่จะใช้ Kutools for Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.
1. เข้าไปในแผ่นงานที่ระบุซึ่งคุณต้องการให้แสดงเฉพาะในสมุดงานปัจจุบัน
2 จากนั้นคลิก Kutools > แสดงซ่อน > ซ่อนชีตที่ไม่ได้เลือก.
จากนั้นแผ่นงานทั้งหมดในสมุดงานปัจจุบันจะถูกซ่อนยกเว้นแผ่นงานที่ใช้งานอยู่
หมายเหตุ: หากคุณต้องการแสดงเวิร์กชีตที่ซ่อนอยู่ทั้งหมดโปรดคลิก Kutools > แสดง / ซ่อน > ยกเลิกการซ่อนแผ่นงานทั้งหมด. ดูภาพหน้าจอ:
หากคุณต้องการทดลองใช้ฟรี (30วัน) ของโปรแกรมอรรถประโยชน์นี้ กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
