Hỏi code xóa range trong dòng chứa ô hiện tại. (1 người xem)

[taidoan88]

Mình có file danh sách học sinh, vì 3 field: TT, MÃ HS, MÃ PQ có chứa công thức nên phải khóa lại để bảo vệ công thức.

Tình huống phát sinh khi mình muốn xóa thông tin của hs có TT5: BÙI THỊ MỸ DUYÊN thì không thể click vào tên dòng số 6 -> nhấn Del được mà phải quét chọn (C6:K6, M6:R6) rồi mới nhấn Del.

Nhờ mọi người giúp code Macro khi nhấn Ctrl + Del thì sẽ xóa nội dung vùng (Ci:Ki, Mi:Ri) với i là thứ tự của dòng chứa con trỏ ô.

Xin cảm ơn

 

[hoangvuluan]

Dùng macro sau:

Sub ctrl_m() 
Dim i As Long
    On Error Resume Next
    i = Selection.Row 
   With ActiveSheet
        .Range("C" & i & ":K" & i).ClearContents
        .Range("M" & i & ":R" & i).ClearContents 
   End With
 End Sub

(Gán phím Ctrl-m chẳng hạn - vì Excel không cho gán Ctrl-Del)

 

[Quang_Hải]

Thêm 1 cách cho bạn, cách nào xóa rồi cũng mất

 

[taidoan88]

được rồi cám ơn các bạn nhiều