วิธีซ่อนหรือยกเลิกการซ่อนแถวหรือคอลัมน์ที่ระบุเมื่อดับเบิลคลิกที่เซลล์ใน Excel
โดยปกติแถวและคอลัมน์สามารถซ่อนหรือแสดงได้โดยคลิกขวาและเลือกตัวเลือกซ่อนหรือยกเลิกการซ่อนจากเมนูบริบท ในบทความนี้เรากำลังพูดถึงการซ่อนหรือแสดงแถวหรือคอลัมน์ที่ระบุอย่างรวดเร็วโดยดับเบิลคลิกที่เซลล์ใน Excel
ซ่อนหรือยกเลิกการซ่อนแถวหรือคอลัมน์ที่ระบุเมื่อดับเบิลคลิกเซลล์ที่มีรหัส VBA
ซ่อนหรือยกเลิกการซ่อนแถวหรือคอลัมน์ที่ระบุเมื่อดับเบิลคลิกเซลล์ที่มีรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยคุณซ่อนหรือยกเลิกการซ่อนแถวหรือคอลัมน์ที่ระบุในแผ่นงานได้อย่างรวดเร็วโดยดับเบิลคลิกที่เซลล์ใดเซลล์หนึ่ง กรุณาดำเนินการดังนี้
1. เปิดแผ่นงานที่คุณต้องการซ่อนแถวหรือคอลัมน์ภายใน คลิกขวาที่แท็บแผ่นงานจากนั้นคลิก ดูรหัส จากเมนูบริบท
2. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกรหัส VBA ต่อไปนี้ลงในหน้าต่างรหัส
VBA: ซ่อน / ยกเลิกการซ่อนแถวที่ระบุโดยดับเบิลคลิกที่เซลล์ในแผ่นงาน:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
Dim xRgHidden As Range
If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("10:13")
xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
End If
End Sub
VBA: ซ่อน / ยกเลิกการซ่อนคอลัมน์ที่ระบุโดยดับเบิลคลิกเซลล์ในแผ่นงาน:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
Dim xRgHidden As Range
If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("D:E")
xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
End If
End Sub
หมายเหตุ: ในรหัส A1: A4, 10:13 และ D: จ ระบุว่าเมื่อดับเบิลคลิกบนเซลล์ใดๆ ในช่วง A1:A4 แถว 10:13 หรือคอลัมน์ D:E จะถูกซ่อนโดยอัตโนมัติ
3 กด อื่น ๆ + F11 ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
จากนี้ไป เมื่อดับเบิลคลิกเซลล์ใดๆ ในช่วง A1:A4 แถว 10:13 หรือคอลัมน์ D:E จะถูกซ่อนโดยอัตโนมัติ และดับเบิลคลิกเซลล์อีกครั้งเพื่อแสดงแถวหรือคอลัมน์ที่ซ่อนอยู่ทั้งหมดทันที
บทความที่เกี่ยวข้อง:
- วิธีการคลิกหรือดับเบิลคลิกที่เซลล์เพื่อเปิดแบบฟอร์มผู้ใช้ที่ระบุใน Excel
- วิธีเพิ่มเครื่องหมายถูกในเซลล์ด้วยการดับเบิลคลิกใน Excel
- วิธีเพิ่ม / ป้อนวันที่ / เวลาปัจจุบันในเซลล์โดยอัตโนมัติด้วยการดับเบิลคลิกใน Excel
- วิธีดับเบิลคลิกที่เซลล์และเพิ่ม 1 ในค่าของเซลล์นั้นใน Excel
- จะแสดงปฏิทินเมื่อคลิกเซลล์ใดเซลล์หนึ่งใน Excel ได้อย่างไร?
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!