Vba: วิธีล้างเนื้อหาหากเซลล์มีค่าเฉพาะ

คุณสามารถใช้ไวยากรณ์พื้นฐานต่อไปนี้เพื่อล้างเนื้อหาของแต่ละเซลล์ในเวิร์กชีต Excel ให้เท่ากับค่าที่ระบุ:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

มาโครนี้จะล้างเนื้อหาของแต่ละเซลล์ในช่วง A2:A11 ซึ่งเท่ากับ “Mavs”

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

ตัวอย่าง: ใช้ VBA เพื่อล้างเนื้อหาหากเซลล์มีค่าเฉพาะ

สมมติว่าเรามีแผ่นงาน Excel ที่มีข้อมูลเกี่ยวกับผู้เล่นบาสเกตบอลต่างๆ:

สมมติว่าเราต้องการล้างเนื้อหาของแต่ละเซลล์ในคอลัมน์ ทีม เท่ากับ “Mavs”

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

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

เมื่อดำเนินการมาโครนี้แล้ว เซลล์ทั้งหมดที่มีค่า “Mavs” ในคอลัมน์ ทีม จะถูกล้าง:

หากคุณต้องการล้างเซลล์ทั้งหมดในแต่ละแถวที่มีค่า “Mavs” ในคอลัมน์ Team แทน คุณสามารถใช้ไวยากรณ์ต่อไปนี้:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.EntireRow.ClearContents
    Else
    End If
Next cell

End Sub

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

โปรดทราบว่าเซลล์ทั้งหมดในแต่ละแถวที่มี “Mavs” ในคอลัมน์ ทีม ได้ถูกล้างออกไปแล้ว

หมายเหตุ : คุณสามารถดูเอกสารฉบับเต็มของเมธอด ClearContents ใน VBA ได้ที่นี่

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

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

VBA: วิธีค้นหาบรรทัดที่ใช้ล่าสุด
VBA: วิธีค้นหาคอลัมน์ที่ใช้ล่าสุด
VBA: วิธีแสดงแผ่นงานทั้งหมด