Snasui Excel Forum

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: 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