Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

สมมติว่าคุณมีช่องทำเครื่องหมายชื่อ 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-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (11)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณทำหลายรายการในหน้าเดียวกันได้อย่างไร ฉันจะซ่อนแผ่นที่ 3 หรือ 4 ด้วยช่องทำเครื่องหมายได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ช่องทำเครื่องหมายย่อยส่วนตัว1_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ThisWorkbook.Sheets("DB2018")).Visible = CheckBox1.Value
ThisWorkbook.ชีต ("V2018") .Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018")).Visible = CheckBox1.Value
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo ช่องทำเครื่องหมาย? ขอบคุณมาก ๆ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Basta con copiar la linea แทน veces como se quiera nombrando la hoja que debe ser ocultada.

ช่องทำเครื่องหมายย่อยส่วนตัว1_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ThisWorkbook.Sheets("DB2018")).Visible = CheckBox1.Value
ThisWorkbook.ชีต ("V2018") .Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018")).Visible = CheckBox1.Value
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะซ่อนหรือเลิกซ่อนแผ่นงานที่มีช่องทำเครื่องหมายหลายช่องได้อย่างไร ตัวอย่างเช่น ต้องซ่อนแผ่นงาน "เมนูหลัก" เว้นแต่จะทำเครื่องหมายที่ช่องทำเครื่องหมาย_1 ช่องทำเครื่องหมาย_2 และช่องทำเครื่องหมาย_3
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี. ฉันยังใหม่กับ ActiveX Controls ฉันกำลังพยายามมีช่องทำเครื่องหมายหลายช่องในแผ่นงานเดียวที่จะซ่อนแผ่นงานบางแผ่น ไม่ใช่ทุกช่องหรือช่องเดียวกันทุกครั้ง สองสถานการณ์นี้เป็นประสบการณ์ของฉัน สิ่งที่ฉันต้องทำให้สำเร็จคือ:
CheckBox1 ซ่อน Sheet2
CheckBox2 ซ่อน Sheet3
CheckBox3 ซ่อน Sheet4
CheckBox4 ซ่อน Sheet5
CheckBox5 ซ่อน Sheet6
CheckBox6 ซ่อน Sheet7
CheckBox7 ซ่อน Sheet8
CheckBox8 ซ่อน Sheet9
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแจ็ค
เพียงทำซ้ำรหัสและเปลี่ยนหมายเลขช่องทำเครื่องหมายและชื่อแผ่นงาน ลองรหัสด้านล่าง

ช่องทำเครื่องหมายย่อยส่วนตัว1_Click()

เกี่ยวกับข้อผิดพลาดต่อไป

ThisWorkbook.Sheet("Sheet2").Visible = CheckBox1.Value

ย่อยสิ้นสุด

ช่องทำเครื่องหมายย่อยส่วนตัว2_Click()

เกี่ยวกับข้อผิดพลาดต่อไป

ThisWorkbook.Sheet("Sheet3").Visible = CheckBox2.Value

ย่อยสิ้นสุด

ช่องทำเครื่องหมายย่อยส่วนตัว3_Click()

เกี่ยวกับข้อผิดพลาดต่อไป

ThisWorkbook.Sheet("Sheet4").Visible = CheckBox3.Value

ย่อยสิ้นสุด

ช่องทำเครื่องหมายย่อยส่วนตัว4_Click()

เกี่ยวกับข้อผิดพลาดต่อไป

ThisWorkbook.Sheet("Sheet5").Visible = CheckBox4.Value

ย่อยสิ้นสุด

ช่องทำเครื่องหมายย่อยส่วนตัว5_Click()

เกี่ยวกับข้อผิดพลาดต่อไป

ThisWorkbook.Sheet("Sheet6").Visible = CheckBox5.Value

ย่อยสิ้นสุด

ช่องทำเครื่องหมายย่อยส่วนตัว6_Click()

เกี่ยวกับข้อผิดพลาดต่อไป

ThisWorkbook.Sheet("Sheet7").Visible = CheckBox6.Value

ย่อยสิ้นสุด

ช่องทำเครื่องหมายย่อยส่วนตัว7_Click()

เกี่ยวกับข้อผิดพลาดต่อไป

ThisWorkbook.Sheet("Sheet8").Visible = CheckBox7.Value

ย่อยสิ้นสุด

ช่องทำเครื่องหมายย่อยส่วนตัว8_Click()

เกี่ยวกับข้อผิดพลาดต่อไป

ThisWorkbook.Sheet("Sheet9").Visible = CheckBox8.Value

ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คริสตัล
ขอบคุณมาก...มันทำงานได้อย่างสมบูรณ์!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคริสตัล
มีฟังก์ชั่นที่จะย้อนกลับสิ่งนี้หรือไม่ เช่น. แผ่นงานถูกซ่อนเว้นแต่จะทำเครื่องหมายที่ช่องทำเครื่องหมาย?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
Je cherche à afficher des page avec des case à cocher. Les Chekbox sont toutes sur la même feuille de calcul.
J'ai copié le prime code และ l'ai dupliquer.

ช่องทำเครื่องหมายย่อยส่วนตัว1_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ThisWorkbook.Sheets("Eplucher, laver, désinfecter") มองเห็นได้ = CheckBox1.Value
ย่อยสิ้นสุด

ช่องทำเครื่องหมายย่อยส่วนตัว2_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ThisWorkbook.Sheets("Tailler fruits et légumes") มองเห็นได้ = CheckBox1.Value
ย่อยสิ้นสุด

Malheureusement, si je ne coche pas la première case ma seconde case ne fonctionne pas. Pourriez-vous m'aider svp
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี สกาย53
ดูเหมือนเจ้าไม่เปลี่ยนไป ช่องทำเครื่องหมาย 1.Value ไปยังชื่อช่องทำเครื่องหมายที่เกี่ยวข้องในรหัส VBA ที่สอง
โปรดเปลี่ยนบรรทัดต่อไปนี้ในรหัสที่สอง:
ThisWorkbook.Sheets("Tailler fruits et légumes") มองเห็นได้ = CheckBox1.Value
ไปยัง
ThisWorkbook.Sheets("Tailler fruits et légumes") มองเห็นได้ = CheckBox2.Value
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

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

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