ไปยังเนื้อหาหลัก

วิธีการสลับระหว่างแผ่นงานที่ซ่อนและมองเห็นได้ใน Excel

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

สลับแผ่นงานระหว่างซ่อนและไม่ซ่อนด้วยรหัส VBA

สลับแผ่นงานระหว่างซ่อนและไม่ซ่อนด้วย Kutools for Excel


ลูกศรสีฟ้าฟองขวา สลับแผ่นงานระหว่างซ่อนและไม่ซ่อนด้วยรหัส VBA

สมมติว่าคุณมีสมุดงานที่มี Sheet1, Sheet2 และ Sheet3 ซ่อนอยู่รหัส VBA ต่อไปนี้สามารถช่วยให้คุณแสดงได้อย่างรวดเร็วและการคลิกครั้งที่สองจะซ่อนอีกครั้ง โปรดดำเนินการดังนี้:

1. คลิก ผู้พัฒนา > ของ Visual Basicและใหม่ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างจะปรากฏขึ้นให้คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นป้อนรหัสต่อไปนี้ในโมดูล

Sub ToggleHideUnhideDataSheets()
Application.ScreenUpdating = False
Dim wb As Workbook
Dim ShtNames() As Variant
Set wb = ActiveWorkbook
ShtNames = Array("Sheet1", "Sheet2", "Sheet3")
For i = 0 To UBound(ShtNames)
wb.Sheets(ShtNames(i)).Visible = Not wb.Sheets(ShtNames(i)).Visible
Next i
Application.ScreenUpdating = True
End Sub

ในโค้ดด้านบนไฟล์ ShtNames = Array ("Sheet1", "Sheet2", "Sheet3") เป็นตัวแปรคุณสามารถเปลี่ยนชื่อแผ่นงานที่ซ่อนอยู่ได้ตามต้องการ

2. จากนั้นกด F5 เพื่อเรียกใช้รหัสและแผ่นงานที่ซ่อนอยู่จะปรากฏขึ้นหากคุณต้องการซ่อนอีกครั้งโปรดกด F5 ที่สำคัญอีกครั้ง


ลูกศรสีฟ้าฟองขวา สลับแผ่นงานระหว่างซ่อนและไม่ซ่อนด้วย Kutools for Excel

กับ สลับการเปิดเผยเวิร์กชีทที่ซ่อนอยู่ ฟังก์ชั่น Kutools สำหรับ Excelคุณสามารถสลับแผ่นงานระหว่างซ่อนและไม่ซ่อนได้อย่างง่ายดายโดยคลิกคำสั่งแผ่นงาน

Kutools สำหรับ Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now.

เมื่อคุณติดตั้ง Kutools for Excel แล้วคุณสามารถทำตามขั้นตอนต่อไปนี้:

1. เปิดสมุดงานซึ่งจะต้องมีแผ่นงานที่ซ่อนอยู่

2. คลิก Kutools > แผ่นดูภาพหน้าจอ:

doc-toggle-hidden-sheets1

เมื่อคุณคลิกที่ แผ่น คำสั่งหนึ่งครั้งแผ่นงานที่ซ่อนอยู่ทั้งหมดจะปรากฏขึ้นหากคุณต้องการซ่อนอีกครั้งให้คลิกที่ไฟล์ แผ่น คำสั่งเป็นครั้งที่สอง ดูภาพหน้าจอ:

doc-toggle-hidden-sheets2
-1
doc-toggle-hidden-sheets3
-1
doc-toggle-hidden-sheets2

หมายเหตุ: ฟังก์ชันนี้ยังใช้กับแผ่นงานที่ซ่อนอยู่แบบไม่ต่อเนื่อง

หากคุณต้องการทราบข้อมูลเพิ่มเติมเกี่ยวกับฟังก์ชันนี้โปรดคลิก สลับการเปิดเผยเวิร์กชีทที่ซ่อนอยู่.


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

สลับระหว่างคอลัมน์ที่ซ่อนและมองเห็นได้ใน Excel

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

kte แท็บ 201905


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Works great, but how would you modify this to use the sheet's CodeNames instead of "Sheet" names?

That way user can still change the Tab name and Tab order as needed.

Thanks!
This comment was minimized by the moderator on the site
At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)
This comment was minimized by the moderator on the site
[quote]At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)By Greg[/quote] Thanks for your feedback. We will change it soon. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations