Giúp code bôi đen bao nhiều hàng thì xóa bấy nhiêu hàng (1 người xem)

[congnguyen88]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
i = Selection.Row
If Not Intersect(Target, Range("B9:B58")) Is Nothing Then ' xoa 1 dong
If Range("b" & i) <> "" Or Range("c" & i) <> "" Or Range("d" & i) <> "" Then
If Application.ExecuteExcel4Macro("ALERT(""" & Evaluate("text63") & """,1)") Then
Range("b" & i & ":d" & i).ClearContents
End If
End If
End If
End Sub

text63 : Bạn có chắc chắn xóa dòng này không ?

Đoạn code trên do mình tự viết, ý của mình là khi Click chuột phải nằm trong vùng B9:B58 ( điều kiện phải có ít nhất 1 ô có dữ liệu nằm trong 3 cột, chổ này ai có cách nào khác không chứ 10 cột Or mỗi tay luôn ) thì sẻ xóa hàng đó từ cột B đến cột D. Bây giờ mình muốn khi mình bôi đen ví dụ từ B10:B15 ( 6 ô cùng 1 lúc ) kích chuột phải chọn Yes thì sẻ xóa vùng B1015 ( 6 hàng cùng 1 lúc ) , mong các bạn giúp đở xin cảm ơn !

 

[Quang_Hải]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
i = Selection.Row
If Not Intersect(Target, Range("B9:B58")) Is Nothing Then ' xoa 1 dong
If Range("b" & i) <> "" Or Range("c" & i) <> "" Or Range("d" & i) <> "" Then
If Application.ExecuteExcel4Macro("ALERT(""" & Evaluate("text63") & """,1)") Then
Range("b" & i & ":d" & i).ClearContents
End If
End If
End If
End Sub

text63 : Bạn có chắc chắn xóa dòng này không ?

Đoạn code trên do mình tự viết, ý của mình là khi Click chuột phải nằm trong vùng B9:B58 ( điều kiện phải có ít nhất 1 ô có dữ liệu nằm trong 3 cột, chổ này ai có cách nào khác không chứ 10 cột Or mỗi tay luôn ) thì sẻ xóa hàng đó từ cột B đến cột D. Bây giờ mình muốn khi mình bôi đen ví dụ từ B10:B15 ( 6 ô cùng 1 lúc ) kích chuột phải chọn Yes thì sẻ xóa vùng B1015 ( 6 hàng cùng 1 lúc ) , mong các bạn giúp đở xin cảm ơn !

Thử cái này đi

Sub Xoa()
Dim Data(), i&, j&, tem$
If Selection.Count = 1 Then Exit Sub
Data = Selection.Value
For i = 1 To UBound(Data)
   For j = 1 To UBound(Data, 2)
      tem = tem & Data(i, j)
   Next
   If tem <> "" Then
      For j = 1 To UBound(Data, 2)
         Data(i, j) = Empty
      Next
   End If
Next
Selection = Data
End Sub