ขอความช่วยเหลือ CodeVB ลบข้อมูลส่วนเกิน

[tigerwit]

จากไฟล์ที่แนบมา
ต้องการให้ผู้ใช้งาน คลิกที่ปุ่ม เพื่อลบคะแนนส่วนที่เกิน
จากแถวถัดจากที่มีรายชื่อแถวสุดท้าย (คะแนนที่เป็นสีแดงทั้งหมด)

Code: Select all

Sub ClsOverScore()
    Dim lastRow As Long
    Dim i As Long, r As Range, j As Long
    With Worksheets("EvaAttib")
        Set r = .Range("D8")
        Do While r.Offset(i, 0).Value <> ""
            i = i + 1
        Loop
          lastRow = r.Offset(i - 1, 0).Row
        If Selection.Row <= lastRow Then
            .Range(Selection, .Cells(lastRow, Selection.Column)).Value = ""
            If Selection.Offset(0, 1).Locked Then Exit Sub
            Selection.Offset(0, 1).Select
        End If
        End With
End Sub

จะต้องปรับโค๊ดอย่างไรครับ

[snasui]

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

Code: Select all

'Other code
With Worksheets("EvaAttib")
    Set r = .Range("D8")
    Do While r.Offset(i, 0).Value <> ""
        i = i + 1
    Loop
    .Range(r.Offset(i, 1), .Range("l" & .Rows.Count).End(xlUp)).ClearContents
'        lastRow = r.Offset(i - 1, 0).Row
'        If Selection.Row <= lastRow Then
'            .Range(Selection, .Cells(lastRow, Selection.Column)).Value = ""
'            If Selection.Offset(0, 1).Locked Then Exit Sub
'            Selection.Offset(0, 1).Select
'        End If
End With
'Other code

[tigerwit]

ขอบคุณครับ