Snasui Excel Forum

Posted: **Wed Sep 28, 2022 4:49 pm**

ผมขอเพิ่มเติม 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

Posted: **Wed Sep 28, 2022 8:20 pm**

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

Posted: **Thu Sep 29, 2022 11:55 am**

แนบ file .xlsm ครับ

Posted: **Thu Sep 29, 2022 1:17 pm**

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

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

Snasui Excel Forum

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

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

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

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

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