วันนี้ เราจะมาเรียนรู้เกี่ยวกับวิธีการตรวจสอบอย่างง่ายดายว่าเซลล์หนึ่งหรือหลายเซลล์ว่างหรือไม่โดยใช้ Visual Basic for Applications เนื้อหาเกี่ยวข้องกับ Excel 2019 / 365, 2016 และ Microsoft Office เวอร์ชันก่อนหน้า
เตรียมงาน
ก่อนเริ่มเขียนโค้ดด้วย VBA ใน Excel คุณจะต้องแน่ใจว่าแท็บการพัฒนาของคุณเปิดใช้งานอยู่ หากไม่เป็นเช่นนั้น โปรดดูบทแนะนำสั้นๆนี้
ตรวจสอบว่าช่วงเซลล์ Excel ว่างเปล่าด้วยVBA
- ใน Excel เปิดสภาพแวดล้อม Visual Basic ของคุณโดยกด Alt+F11
- แทรกโค้ดต่อไปนี้เป็นขั้นตอนในเวิร์กชีตของคุณ หรือในโมดูล VBA เฉพาะ
Sub Check_Cell_is_empty_alt()
Dim rng As Range
Set rng = Selection
For Each Cell In rng
If IsEmpty(Cell.Value) = True Then
Debug.Print ("Empty")
Else
Debug.Print ("Not Empty")
End If
Next Cell
End Sub
- ไปที่สเปรดชีตของคุณแล้วเลือกช่วงของเซลล์ที่ต้องการ
- กลับไปที่ตัวแก้ไข Visual Basic และตรวจสอบให้แน่ใจว่ามองเห็น Immediate viewer (CTRL+G) ได้ เนื่องจากวิธีการ Debug.Print ในโค้ดจะส่งออกผลลัพธ์ไปยังหน้าต่างนั้น
- กด F5 เพื่อเรียกใช้รหัสของคุณ
- ดูผลลัพธ์ในหน้าต่างทันที

- เซลล์ว่างทั้งหมดจะถูกระบุ
ส่วนขยายที่เป็นไปได้ของโค้ด: คุณสามารถขยายโค้ดนี้ได้ตามต้องการ ในกรณีที่คุณสนใจที่จะข้ามค่าว่างหรือไม่ต้องดำเนินการใดๆ ในกรณีที่เซลล์ไม่เต็ม ในทำนองเดียวกัน คุณสามารถตรวจสอบว่าช่วงนั้นว่างหรือไม่ กล่าวคือ ไม่มีเซลล์สีดำอยู่
กำลังตรวจสอบฟิลด์ที่ไม่ว่างเปล่า
ในลักษณะเดียวกัน คุณสามารถใช้คุณสมบัติ IsEmpty เพื่อตรวจสอบช่องที่ไม่เว้นว่างได้
If Not IsEmpty(Cell.Value) = True Then
Debug.Print ("Not Empty")
Else
Debug.Print ("Empty")
End If
โบนัส: ใช้โค้ดต่อไปนี้หากคุณต้องการเน้นเซลล์ว่างด้วย
หรี่ฉันยาวที่สุด หรี่ c ยาวที่สุด หรี่ myRange เท่ากับช่วง หรี่ myCell เป็นช่วง ตั้งค่า myRange = Range("A1:A10") สำหรับแต่ละ myCell ใน myRange ' c = c + 1 ถ้า IsEmpty(myCell) ดังนั้น myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End ถ้าถัดไป myCell MsgBox _ "มีทั้งหมด " & ฉัน & " เซลล์ว่างจาก " & ค & "."