วิธีซ่อนหรือยกเลิกการซ่อนคอลัมน์ตามการเลือกรายการแบบหล่นลงใน Excel
ในขณะที่ใช้ Excel คุณสามารถซ่อนหรือยกเลิกการซ่อนคอลัมน์ที่ต้องการตามการเลือกรายการแบบหล่นลง ตัวอย่างเช่นหากคุณเลือกไม่ใช่ในรายการแบบเลื่อนลงคอลัมน์ C ถึงฉันจะถูกซ่อน แต่ถ้าคุณเลือกใช่คอลัมน์ C ถึงฉันที่ซ่อนอยู่จะไม่ถูกซ่อน ดูภาพหน้าจอด้านล่างที่แสดง
ในบทความนี้เราจะแสดงวิธี VBA เพื่อซ่อนหรือยกเลิกการซ่อนคอลัมน์ตามการเลือกรายการแบบหล่นลงใน Excel
ซ่อนหรือยกเลิกการซ่อนคอลัมน์ตามการเลือกรายการแบบหล่นลงใน Excel
ซ่อนหรือยกเลิกการซ่อนคอลัมน์ตามการเลือกรายการแบบหล่นลงใน Excel
ดังตัวอย่างข้างต้นหากต้องการซ่อนหรือยกเลิกการซ่อนคอลัมน์ C ถึง I ตามการเลือกรายการแบบหล่นลงโปรดทำดังนี้
1. ขั้นแรกสร้างรายการแบบหล่นลงของคุณด้วยใช่และไม่ใช่ที่คุณต้องการ
2. จากนั้นกด อื่น ๆ + F11 เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
3. ดับเบิลคลิกชื่อแผ่นงานที่เปิดอยู่ในไฟล์ โครงการ VBA เพื่อเปิดตัวแก้ไขโค้ด
4. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในตัวแก้ไขโค้ด
รหัส VBA: ซ่อนหรือยกเลิกการซ่อนคอลัมน์ตามการเลือกรายการแบบหล่นลง
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
If Target.Column = 2 And Target.Row = 3 Then
If Target.Value = "No" Then
Application.Columns("C:I").Select
Application.Selection.EntireColumn.Hidden = True
ElseIf Target.Value = "Yes" Then
Application.Columns("C:I").Select
Application.Selection.EntireColumn.Hidden = False
End If
End If
End Sub
หมายเหตุ: ในโค้ดด้านบน Column = 2 และ Row = 3 เป็นการอ้างอิงเซลล์ของรายการแบบเลื่อนลงและช่วง C: I คือคอลัมน์ที่คุณต้องการซ่อนหรือยกเลิกการซ่อนโปรดเปลี่ยนตามความต้องการของคุณ
5 กด อื่น ๆ + Q พร้อมกันเพื่อออกจากไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
จากนี้ไปเมื่อคุณเลือกไม่ในรายการแบบเลื่อนลงคอลัมน์ที่ระบุทั้งหมดจะถูกซ่อนไว้
แต่ถ้าคุณเลือกใช่ในรายการแบบเลื่อนลงคอลัมน์ที่ซ่อนทั้งหมดจะแสดงทันที
บทความที่เกี่ยวข้อง:
- วิธีเติมข้อมูลเซลล์อื่นโดยอัตโนมัติเมื่อเลือกค่าในรายการแบบเลื่อนลงของ Excel
- วิธีเติมข้อความอัตโนมัติเมื่อพิมพ์ในรายการแบบเลื่อนลงของ Excel
- วิธีสร้างปฏิทินรายการแบบหล่นลงใน Excel
- วิธีสร้างรายการแบบเลื่อนลงที่ค้นหาได้ใน Excel
- วิธีสร้างรายการแบบหล่นลงด้วยการเลือกหรือค่าต่างๆใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!