Excel Forum

Posted: **Tue Jul 17, 2018 8:21 pm**

ขอคำชี้แนะครับ คือผมต้องการลบข้อความที่column : C โดยเมื่อ column : D มีค่าค่าเป็น0 ขอคำชี้แนะ ปรับ Code ให้ที่ครับ

Sub Project1()
Range("D1").Select
Do Until Selection.Value = ""
If Selection.Value = "0" Then
Selection.ClearContents '.Delete
Else
Selection.Offset(1, 0).Select
End If
Loop
End Sub

Posted: **Tue Jul 17, 2018 8:29 pm**

การโพสต์ Code กรุณาโพสต์ให้แสดงเป็น Code ดูตัวอย่างได้ที่กฎการใช้บอร์ดข้อ 5 ด้านบนครับ

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Project1()
    Range("D1").Select
    Do Until Selection.Value = ""
        If Selection.Value = 0 Then
            Selection.Offset(0, -1).ClearContents '.Delete
        End If
        Selection.Offset(1, 0).Select
    Loop
End Sub

Posted: **Wed Jul 18, 2018 7:44 pm**

ใช้ได้แล้วครับ ขอบคุณมากครับอาจารย์

และต้องขออภัยในข้อผิดพลาดเรื่องการโพส Code ด้วยครับ

Excel Forum

ลบข้อความที่เป็นค่าศูนย์

ลบข้อความที่เป็นค่าศูนย์

Re: ลบข้อความที่เป็นค่าศูนย์

Re: ลบข้อความที่เป็นค่าศูนย์