การอัพเดทข้อมูล VBA

[bank9597]

รบกวนอาจารย์แนะนำโค๊ดการอัพเดทข้อมูลให้นิดนึงครับ

ในชีท Form คอลัมน์ D2:D10 จะเป็นส่วนให้เลือกค่า 2 ค่า คือ Update กับ Delete
หากเลือก Delete ผมอยากให้ข้อมูลในคอลัมน์ B:C ตามบรรทัดนั้นๆ เปลี่ยนค่าเป็น 0 ทันที

เบื้องต้นผมได้เขียนโค็ดมาให้ดูแล้ว แต่จะทำงานแค่เพียงบรรทัด 5 เท่านั้น และมีตัวอย่างคำตอบแล้วด้วยครับ

รบกวนด้วยน่ะครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub FilStatus()
    Dim rAll As Range
    Dim r As Range
    With Sheets("Form")
        Set rAll = .Range("D2", .Range("A" & Rows.Count) _
            .End(xlUp).Offset(0, 3))
    End With
    For Each r In rAll
        If r = "Delete" Then
            r.Offset(0, -1) = 0
            r.Offset(0, -2) = 0
        End If
    Next r
End Sub

[bank9597]

ได้แล้วครับ มีความสุขจังเลย ขอบคุณมากครับ