ต้องการใช้ Code ลบข้อมูล ใน selection ที่เลือกไว้

[tigerwit]

จากไฟล์ที่แนบมา

Code: Select all

Sub delstu()
    If MsgBox("คุณต้องการลบนักเรียนหมายเลข " & ActiveCell.Value & " ใช่หรือไม่?", 36, "ยืนยันการการลบข้อมูลนักเรียน") = 6 Then
    Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 6)).Select
    Selection.ClearContents
    Call RankStudent
    End If
End Sub

ต้องการให้ code นี้ทำงานเมื่อ ActiveCell อยู่ที่ คลอลัมน์ C เท่านั้น (เลขประจำตัวประชาชน)
ถ้า ActiveCell อยู่ที่คลอลัมน์อื่น ให้โดดไป Active ที่ คลอลัมน์ C แล้วจึง สั่งเคลียร์ข้อมูล
จะต้องปรับแก้ Code อย่างไรครับ

[snasui]

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

Code: Select all

Sub delstu()
    If MsgBox("คุณต้องการลบนักเรียนหมายเลข " & ActiveCell.Value & " ใช่หรือไม่?", 36, "ยืนยันการการลบข้อมูลนักเรียน") = 6 Then
    '    Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 6)).Select
        Cells(ActiveCell.Row, "c").Resize(1, 7).ClearContents
    '    Selection.ClearContents
        Call RankStudent
    End If
End Sub