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

วิธีซ่อนแผ่นงานเฉพาะโดยอัตโนมัติเมื่อเปิดไฟล์ Excel

หากคุณต้องการซ่อนแผ่นงานบางแผ่นโดยอัตโนมัติเมื่อมีคนเปิดสมุดงานคุณจะจัดการกับงานนี้ใน Excel ได้อย่างไร?

ซ่อนแผ่นงานเฉพาะโดยอัตโนมัติเมื่อเปิดสมุดงานด้วยรหัส VBA

ซ่อนแผ่นงานบางแผ่นโดยอัตโนมัติเมื่อเปิดสมุดงานด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวาซ่อนแผ่นงานเฉพาะโดยอัตโนมัติเมื่อเปิดสมุดงานด้วยรหัส VBA

ถ้าคุณต้องการซ่อนเวิร์กชีตหนึ่งแผ่นเมื่อเปิดเวิร์กบุ๊กคุณสามารถใช้รหัส VBA ต่อไปนี้

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ทางด้านซ้าย โครงการ -VBAProject บานหน้าต่างให้ดับเบิลคลิกที่ไฟล์ สมุดงานนี้ เพื่อเปิดโมดูลเปล่าจากนั้นคัดลอกและวางโค้ดต่อไปนี้ลงในโมดูล:

รหัส VBA: ซ่อนแผ่นงานเฉพาะเมื่อเปิดสมุดงาน:

Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub

doc ซ่อนแผ่นงานเมื่อเปิด 1

หมายเหตุ: ในโค้ดด้านบน Sheet5 คือชื่อแผ่นงานที่คุณต้องการซ่อนเมื่อเปิด โปรดเปลี่ยนตามความต้องการของคุณ

3. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้แล้วคลิก เนื้อไม่มีมัน > บันทึกเป็น เพื่อบันทึกสมุดงานนี้เป็น สมุดงานที่เปิดใช้งานแมโคร Excel รูปแบบดูภาพหน้าจอ:

doc ซ่อนแผ่นงานเมื่อเปิด 2

4. เมื่อคุณเปิดสมุดงานนี้ในครั้งต่อไปโปรดคลิก เปิดใช้งานเนื้อหา ประการแรกจากนั้นแผ่นงานระบุของคุณจะถูกซ่อนโดยอัตโนมัติ

doc ซ่อนแผ่นงานเมื่อเปิด 3


ลูกศรสีฟ้าฟองขวา ซ่อนแผ่นงานบางแผ่นโดยอัตโนมัติเมื่อเปิดสมุดงานด้วยรหัส VBA

หากจำเป็นต้องซ่อนแผ่นงานหลายแผ่นเมื่อเปิดสมุดงานรหัสต่อไปนี้สามารถช่วยคุณได้

1. ขั้นแรกคุณควรแสดงรายการชื่อแผ่นงานที่คุณต้องการซ่อนเมื่อเปิดอยู่ในรายการของแผ่นงานจากนั้นไปที่ กล่องชื่อ เพื่อตั้งชื่อช่วง -ชีตเพื่อซ่อนและกด เข้าสู่ สำคัญดูภาพหน้าจอ:

doc ซ่อนแผ่นงานเมื่อเปิด 4

2. จากนั้นกดปุ่ม ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3. ทางด้านซ้าย โครงการ -VBAProject บานหน้าต่างให้ดับเบิลคลิกที่ไฟล์ สมุดงานนี้ เพื่อเปิดโมดูลเปล่าจากนั้นคัดลอกและวางโค้ดต่อไปนี้ลงในโมดูล:

รหัส VBA: ซ่อนแผ่นงานเฉพาะบางอย่างเมื่อเปิดสมุดงาน:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   'Updateby Extendoffice 20161206
    Dim ws As Worksheet
    For Each ws In Worksheets
       ws.Visible = xlSheetVisible
    Next ws
End Sub
Private Sub Workbook_Open()
    Dim ws As Worksheet
        For Each ws In Worksheets
            If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
                ws.Visible = xlSheetHidden
                MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
            Else
                ws.Visible = xlSheetVisible
            End If
        Next ws
    Set ws = Nothing
End Sub

doc ซ่อนแผ่นงานเมื่อเปิด 5

หมายเหตุ: ในโค้ดด้านบน ชีตเพื่อซ่อน คือชื่อช่วงที่คุณสร้างในขั้นตอนที่ 1

4. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้แล้วคลิก เนื้อไม่มีมัน > บันทึกเป็น เพื่อบันทึกสมุดงานนี้เป็น สมุดงานที่เปิดใช้งานแมโคร 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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations