Note: The other languages of the website are Google-translated. Back to English
English English
  • เอกสาร
  • Excel
  • วิธีซ่อนแผ่นงานเฉพาะโดยอัตโนมัติเมื่อเปิดไฟล์ Excel

วิธีซ่อนแผ่นงานเฉพาะโดยอัตโนมัติเมื่อเปิดไฟล์ 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 รูปแบบ. จากนี้เป็นต้นไปเมื่อคุณเปิดสมุดงานนี้ในครั้งต่อไปเวิร์กชีตที่ระบุจะถูกซ่อนโดยอัตโนมัติ


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณโดย
80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • กว่า
    300
    คุณสมบัติอันทรงพลัง
    . รองรับ Office/Excel
    2007-2019 และ 365
    . รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติครบถ้วน
    30
    วันทดลองใช้ฟรี รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณโดย
    50%
    และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL