วิธีแสดงชีตทั้งหมดโดยใช้ vba (พร้อมตัวอย่าง)

คุณสามารถใช้คุณสมบัติ Visible ใน VBA เพื่อแสดงแผ่นงานในสมุดงาน Excel

หากต้องการแสดงแผ่นงานทั้งหมดในสมุดงาน คุณสามารถใช้ไวยากรณ์ต่อไปนี้:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

การใช้ For Each loop แบบธรรมดาและระบุ Visible = True เราจะบอกให้ Excel แสดงแผ่นงานทั้งหมดในสมุดงาน

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: วิธีแสดงแผ่นงานทั้งหมดโดยใช้ VBA

สมมติว่าเรามีเวิร์กบุ๊ก Excel ที่มีสี่แผ่น:

ตอนนี้สมมติว่าเราคลิกขวา ที่ Sheet4 แล้วคลิก Hide :

สมมติว่าเราทำซ้ำขั้นตอนนี้กับ Sheet2 เพื่อให้แผ่นงานที่มองเห็นได้เพียงแผ่นเดียวคือ Sheet1 และ Sheet3

สมมติว่าเราต้องการใช้ VBA เพื่อแสดงแผ่นงานทั้งหมดในสมุดงาน

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

เมื่อดำเนินการแมโครนี้ แผ่นงานทั้งหมดในสมุดงานจะปรากฏขึ้น:

หมายเหตุ : คุณสามารถค้นหาเอกสารฉบับสมบูรณ์สำหรับคุณสมบัติ Visible ใน VBA ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีค้นหาบรรทัดที่ใช้ล่าสุด
VBA: วิธีค้นหาคอลัมน์ที่ใช้ล่าสุด
VBA: วิธีตรึงบานหน้าต่าง