วิธีซ่อนแถวอัตโนมัติหากเซลล์ว่างในคอลัมน์
หากคุณมีช่วงข้อมูลที่เติมเซลล์ว่างในคอลัมน์และตอนนี้คุณต้องการซ่อนแถวที่มีเซลล์ว่างในคอลัมน์นั้นโดยอัตโนมัติ มีวิธีที่ดีในการแก้ปัญหานี้ใน Excel อย่างรวดเร็วและง่ายดายหรือไม่?
ซ่อนแถวอัตโนมัติหากเซลล์ว่างในคอลัมน์ที่มีรหัส VBA
ซ่อนแถวอัตโนมัติหากเซลล์ว่างในคอลัมน์ที่มีรหัส VBA
รหัสต่อไปนี้อาจช่วยให้คุณซ่อนแถวทั้งหมดหากเซลล์ว่างในคอลัมน์ใดคอลัมน์หนึ่งพร้อมกันและถ้าคุณลบเนื้อหาเซลล์ในคอลัมน์นั้นแถวนั้นจะถูกซ่อนโดยอัตโนมัติด้วย กรุณาดำเนินการดังนี้:
1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการซ่อนแถวโดยอัตโนมัติหากมีเซลล์ว่างในคอลัมน์จากนั้นเลือก ดูรหัส จากเมนูบริบทในป๊อปอัป Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในช่องว่าง โมดูล:
รหัส VBA: ซ่อนแถวอัตโนมัติหากเซลล์ว่างในคอลัมน์:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("A1:A20")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub
หมายเหตุ: ในโค้ดด้านบน A1: A20 คือรายการข้อมูลที่มีเซลล์ว่างที่คุณต้องการซ่อนอัตโนมัติ
2. จากนั้นกลับไปที่แผ่นงานและตอนนี้เมื่อคุณคลิกสองครั้งที่เซลล์ใด ๆ แล้วกด เข้าสู่ คีย์แถวที่มีเซลล์ว่างในคอลัมน์ A ถูกซ่อนพร้อมกันและถ้าคุณล้างเนื้อหาของเซลล์ใด ๆ ในเซลล์ที่ระบุของคอลัมน์ A แถวนั้นจะถูกซ่อนโดยอัตโนมัติ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!