ขอเพิ่มเติม code vba Clear Contens Column

[predee16]

ผมขอเพิ่มเติม code vba ครับ คือ
ถ้าคอลัมภ์ A1-A10 ช่องไหนที่มีอักษร a ก้ไม่ต้องทำอะไรปล่อยไว้เหมือนเดิม
แต่ถ้าไม่ใช่อักษร a ก็ให้ Clear Contens ที่ช่องนั้นไปเลย ครับ

Code: Select all

Sub TEST()


If Range("a1") <> "a" Then
Range("a1").ClearContents
End If


End Sub

[snasui]

กรุณาแนบไฟล์ที่มี Code มาด้วยครับ ไฟล์แนบ Code มาด้วยได้จะต้องมีนามสกุลเช่น .xlsm ไม่ใช่ .xlsx ดังที่แนบมาครับ

[predee16]

แนบ file .xlsm ครับ

[puriwutpokin]

ครั้งหน้า ใส่โค้ดมาในไฟล์ด้วยนะครับ
ตัวอย่างโค้ดครับ

Code: Select all

Sub TEST()
Dim r As Range
For Each r In Range("a1:a10")
If r <> "a" Then r.ClearContents
Next r
End Sub