Vba: วิธีใช้ "ถ้าไม่ว่างเปล่า"

คุณสามารถใช้ Not IsEmpty ใน VBA เพื่อตรวจสอบว่าเซลล์ไม่ว่างเปล่าหรือไม่

ต่อไปนี้คือตัวอย่างวิธีที่คุณสามารถใช้ไวยากรณ์นี้ในแมโคร:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Not Empty ”
        Else
        Result = “ Cell is Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

ตัวอย่างนี้จะตรวจสอบว่าแต่ละเซลล์ในช่วง A2:A13 ไม่ว่างเปล่า จากนั้นจะพิมพ์ “เซลล์ไม่ว่างเปล่า” หรือ “เซลล์ว่างเปล่า” สำหรับแต่ละเซลล์ที่ตรงกันในช่วง B2:B13

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: วิธีใช้ “ถ้าไม่ว่างเปล่า” ใน VBA

สมมติว่าเรามีรายชื่อทีมบาสเก็ตบอลใน Excel ต่อไปนี้:

สมมติว่าเราต้องการตรวจสอบว่าแต่ละเซลล์ในช่วง A2:A13 ไม่ว่างเปล่า แล้วแสดงผลลัพธ์ในเซลล์ที่เกี่ยวข้องในช่วง B2:B8

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Not Empty ”
        Else
        Result = “ Cell is Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

คอลัมน์ B บอกเราว่าแต่ละเซลล์ที่เกี่ยวข้องในคอลัมน์ A ว่างเปล่าหรือไม่

คุณยังสามารถใช้มาโครต่อไปนี้เพื่อส่งคืนชื่อทีมในคอลัมน์ B ได้ หากค่าไม่ว่างในคอลัมน์ A:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = Range(" A " & i).Value
        Else
        Result = " Empty "
        End If
    Range(" B " & i) = Result
    Next i
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

ตอนนี้คอลัมน์ B ส่งคืนชื่อทีมในคอลัมน์ A หากเซลล์ไม่ว่างเปล่า

หมายเหตุ : คุณสามารถดูเอกสารฉบับเต็มสำหรับวิธี VBA IsEmpty ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีนับจำนวนอักขระในสตริง
VBA: วิธีตรวจสอบว่าสตริงมีสตริงอื่นหรือไม่
VBA: สูตรสำหรับ “ถ้า” เซลล์มี”