Xóa bỏ dữ liệu

[camphuchia]

Cho mình hỏi: Xóa bỏ dữ liệu 1 dòng thì các dòng kế tiếp cũng xóa theo. File kèm theo. Cảm ơn

 

[viehoai]

Cho mình hỏi: Xóa bỏ dữ liệu 1 dòng thì các dòng kế tiếp cũng xóa theo. File kèm theo. Cảm ơn

Bạn dùng code sau nhé. Quota của mình hết hay sao í không tải File lên được (Kính nhờ MOD, SMOD giúp đỡ)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Value = "" Then Target.Offset(, 1).Resize(, 4).Value = ""
End Sub

 

[camphuchia]

Tuyệt vời bạn ơi, sorry bạn file ví vụ chưa tới làm phiền bạn thêm 1 lần nửa, mình muốn xóa ( khoảng vùng) từ dòng C đến H và J đến N thì mình làm sao nữa há bạn. Cảm ơn bạn nhiều.

 

[viehoai]

Tuyệt vời bạn ơi, sorry bạn file ví vụ chưa tới làm phiền bạn thêm 1 lần nửa, mình muốn xóa ( khoảng vùng) từ dòng C đến H và J đến O thì mình làm sao nữa há bạn. Cảm ơn bạn nhiều.

Tương tự như vậy thôi

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Value = "" Then
   Target.Offset(, 1).Resize(, 6).Value = ""
   Target.Offset(, 8).Resize(, 6).Value = ""
end if
End Sub

 

[camphuchia]

Tương tự như vậy thôi

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Value = "" Then
Target.Offset(, 1).Resize(, 6).Value = ""
Target.Offset(, 8).Resize(, 6).Value = ""
end if
End Sub

LẠI LÀM PHIỀN THÊM BẠN 1 LẦN NỮA, MÌNH BỊ LỘN 1 CHÚT XÍU AH, C:H VÀ J:N. BẠN CHỈNH DÙM MÌNH LẠI ĐI BẠN VÌ MÌNH KHÔNG RÀNH vba LẮM
Target.Offset(, 8).Resize(, 6).Value = "" BỊ LỔI DÒNG NÀY NÈ BẠN

 

[viehoai]

LẠI LÀM PHIỀN THÊM BẠN 1 LẦN NỮA, MÌNH BỊ LỘN 1 CHÚT XÍU AH, C:H VÀ J:N. BẠN CHỈNH DÙM MÌNH LẠI ĐI BẠN VÌ MÌNH KHÔNG RÀNH vba LẮM
Target.Offset(, 8).Resize(, 6).Value = "" BỊ LỔI DÒNG NÀY NÈ BẠN

Tóm lại:
1. Offset(,1) nghĩa là bạn tịnh tiến Target (cái bạn xoá xoá ở cột B) sang 1 cột: Target.Offset(, 1) (tương đươngcột C)
2. Offset(,8) nghĩa là bạn tịnh tiến Target (cái bạn xoá xoá ở cột B) sang 8 cột: Target.Offset(, 1) (tương đương cột J)
3. Resize(,6) mở rộng kích thước 6 cột như vậy Offset(,1).Resize(,6) là từ Cột C đến cột H
.....v.v trên cơ sở đó bạn tự làm lấy theo yêu cầu của bạn

Như vậy bạn chỉ sửa Target.Offset(, 8).Resize(, 5).Value = "" (từ J:N)
Còn lỗi mình đã test lại không có lỗi gì cả

 

[camphuchia]

Vâng mình làm được rồi, nhưng có 1 điều nữa là, mình khóa sheet lại thì nó lại bị lổi nữa bạn mình ơi, mong bạn giúp dùm thêm. cảm ơn bạn nhiều

 

[nghiaphuc]

Vâng mình làm được rồi, nhưng có 1 điều nữa là, mình khóa sheet lại thì nó lại bị lổi nữa bạn mình ơi, mong bạn giúp dùm thêm. cảm ơn bạn nhiều

Bạn thay code trên thành code này thử xem:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If Target.Value = "" Then
        ActiveSheet.Unprotect "GPE"
        Target.Offset(, 1).Resize(, 6).ClearContents
        Target.Offset(, 8).Resize(, 5).ClearContents
        ActiveSheet.Protect "GPE"
    End If
End Sub

"GPE" chính là Password khóa sheet, bạn thay bởi Password thực sự của bạn.

 

[canthoq]

Em thấy bài này hay, em thử vào file của em sao không đc vậy các anh, học sinh nghỉ học thì mình xoá đi thì các dòng ngang qua thí dụ là c:n và j:n cũng xoá theo. Mong anh chị giúp dùm