Vba: จะใช้ “ไม่ชอบ” ได้อย่างไร (พร้อมตัวอย่าง)

คุณสามารถใช้คำสั่ง Not ร่วมกับคำสั่ง Like ใน VBA เพื่อตรวจสอบว่าสตริงไม่มีรูปแบบเฉพาะหรือไม่

ตัวอย่างเช่น คุณสามารถใช้ไวยากรณ์ต่อไปนี้เพื่อตรวจสอบว่าแต่ละสตริงในช่วงเซลล์ A2:A10 ไม่มีสตริงย่อย “hot” และแสดงผลลัพธ์ในช่วง B2:B10 :

 SubCheckNotLike ()

    Dim i As Integer
    
    For i = 2 To 10
        If Not Range(" A " & i) Like " *hot* " Then
            Range(" B " & i) = " Does Not Contain hot "
        Else
            Range(" B " & i) = " Contains hot "
        End If
    Next i
    
End Sub

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

ตัวอย่าง: วิธีใช้ NOT LIKE ใน VBA

สมมติว่าเรามีรายการอาหารต่อไปนี้ในคอลัมน์ A ของ Excel:

เราสามารถสร้างแมโครต่อไปนี้เพื่อตรวจสอบว่าแต่ละสตริงในคอลัมน์ A ไม่มีสตริงย่อย “hot” และแสดงผลลัพธ์ในคอลัมน์ B:

 SubCheckNotLike ()

    Dim i As Integer
    
    For i = 2 To 10
        If Not Range(" A " & i) Like " *hot* " Then
            Range(" B " & i) = " Does Not Contain hot "
        Else
            Range(" B " & i) = " Contains hot "
        End If
    Next i
    
End Sub

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

คอลัมน์ B ระบุว่าแต่ละเซลล์ที่ตรงกันในคอลัมน์ A มีสตริงย่อย “hot” หรือไม่

หมายเหตุ : เราใช้เครื่องหมายดอกจัน ( * ) รอบสตริงย่อยเพื่อระบุว่าอักขระใดๆ สามารถอยู่ก่อนหรือหลังสตริง “hot” ในเซลล์ได้

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

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

VBA: วิธีนับจำนวนอักขระในสตริง
VBA: วิธีตรวจสอบว่าสตริงมีสตริงอื่นหรือไม่
VBA: วิธีนับเซลล์ด้วยข้อความเฉพาะ