Trong Private Sub Worksheet_Change xóa 1 lúc nhiều dòng thì 1 số cột liền kề xóa theo

[hoanglocphat]

Các thành viên chỉ giúp mình như sau
Tôi chọn các ô B2 -> B10 và nhấn phím Delete để xóa thì tôi muốn các cột liền kề là A2 -> G10 xóa nội dung
Code muốn đặt trong Private Sub Worksheet_Change thì code phải viết như thế nào?
Cảm ơn các bạn

 

[AnhThu-1976]

Code muốn đặt trong Private Sub Worksheet_Change thì code phải viết như thế nào?

code để ở đây được không

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If CheckBox1 = True Then
        If Selection.ClearContents Then Selection.Offset(, -1).Resize(, 7).ClearContents
    End If
End Sub

CheckBox1 từ ActiveX Control

 

[huuthang_bd]

Chấp nhận hàng tá rủi ro để đổi lấy một vài giây thì không đáng chút nào.