วิธีใช้ช่องทำเครื่องหมายเพื่อซ่อนหรือยกเลิกการซ่อนแผ่นงานใน Excel

Checkbox เป็นฟีเจอร์ที่มีประโยชน์ใน Excel ฉันจะแสดงวิธีใช้ช่องทำเครื่องหมายเพื่อซ่อนหรือยกเลิกการซ่อนแผ่นงานที่ระบุใน Excel

ใช้ช่องทำเครื่องหมายเพื่อซ่อนหรือเลิกซ่อนแผ่นงานใน Excel

ใช้ช่องทำเครื่องหมายเพื่อซ่อนหรือเลิกซ่อนแผ่นงานใน Excel

สุดทึ่ง! การใช้แท็บที่มีประสิทธิภาพใน Excel เช่น Chrome, Firefox และ Safari!

ประหยัดเวลา 50% และลดการคลิกเมาส์หลายพันครั้งให้คุณทุกวัน!

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

1. เปิดแผ่นงานที่มีช่องทำเครื่องหมาย 1 คลิกขวาที่แท็บแผ่นงานจากนั้นคลิก ดูรหัส จากเมนูคลิกขวา

หมายเหตุ: กล่องกาเครื่องหมายควรเป็นกล่องกาเครื่องหมาย ActiveX เมื่อคุณแทรก

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างรหัส ดูภาพหน้าจอ:

รหัส VBA: ใช้ช่องทำเครื่องหมายเพื่อซ่อนหรือยกเลิกการซ่อนแผ่นงานที่ระบุ

Private Sub CheckBox1_Click()
    On Error Resume Next
    ThisWorkbook.Sheets("Sheet5").Visible = CheckBox1.Value
End Sub

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

3 กด อื่น ๆ + Q พร้อมกันเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

นับจากนี้เป็นต้นไปเมื่อยกเลิกการเลือกช่องทำเครื่องหมาย 1 แผ่นงานที่ระบุ“ Sheet5” จะถูกซ่อนโดยอัตโนมัติ และคุณสามารถแสดงได้โดยเลือกช่องทำเครื่องหมาย ดูภาพหน้าจอ:

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

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

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

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...

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

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

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...

8 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Jack · 1 years ago
Hi. I'm very new to ActiveX Controls. I am trying to have multiple checkboxes on one sheet that will hide specific sheets and not all of them or the same one every time. These two scenarios have been my experience. What I need to accomplish is:
CheckBox1 hides Sheet2
CheckBox2 hides Sheet3
CheckBox3 hides Sheet4
CheckBox4 hides Sheet5
CheckBox5 hides Sheet6
CheckBox6 hides Sheet7
CheckBox7 hides Sheet8
CheckBox8 hides Sheet9
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Jack,
  Just repeat the code and change the checkbox numbers and the sheet names. Try the below code.
  
  Private Sub CheckBox1_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet2").Visible = CheckBox1.Value
  End Sub
  Private Sub CheckBox2_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet3").Visible = CheckBox2.Value
  End Sub
  Private Sub CheckBox3_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet4").Visible = CheckBox3.Value
  End Sub
  Private Sub CheckBox4_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet5").Visible = CheckBox4.Value
  End Sub
  Private Sub CheckBox5_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet6").Visible = CheckBox5.Value
  End Sub
  Private Sub CheckBox6_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet7").Visible = CheckBox6.Value
  End Sub
  Private Sub CheckBox7_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet8").Visible = CheckBox7.Value
  End Sub
  Private Sub CheckBox8_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet9").Visible = CheckBox8.Value
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Jack · 1 years ago
  
  Crystal,
  Thanks so much...it worked perfectly!
  
  Reply
To post as a guest, your comment is unpublished.
Syahrul · 2 years ago
How do I hide or unhide a sheet with multiple checkbox? For example sheet "MainMenu" need to be hide unless checkbox_1, checkbox_2 & checkbox_3 are checked.
- Reply
To post as a guest, your comment is unpublished.
aitorhdzramos@gmail.com · 3 years ago
Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo checkbox? Muchas gracias!
- Reply
- To post as a guest, your comment is unpublished.
  aitorhdzramos@gmail.com · 3 years ago
  
  Basta con copiar la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada.
  
  Private Sub CheckBox1_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
  ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
  ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Kourtney · 4 years ago
How do you do multiple on the same page? How do i then hide sheet 3 or 4 with a checkbox?
- Reply
- To post as a guest, your comment is unpublished.
  aitorhdzramos@gmail.com · 3 years ago
  
  Private Sub CheckBox1_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
  ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
  ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
  End Sub
  
  Reply

เข้าสู่ระบบบัญชีของคุณ

ตั้งค่ารหัสผ่าน