Các pro giúp em code này với

[Sangtm1985]

em có 1 bảng dữ liệu gồm khoảng 300 dòng, vì nó dài lên em sẽ ẩn hết các dòng không có dữ liệu, cụ thể như sau:
ví dụ cở cột TT em có thứ tự từ 1,2,3 tương đương vị trí dòng 3, 4, 5. thì dòng thứ 6 sẽ được tự động mở, nếu em thêm dữ liệu ở dòng 6 thifdongf thứ 7 được tự động mở. tương tự như vậy khi em lại xóa dữ liệu ở cột TT ở dòng 6 thì dòng 7 và các dòng ko có dữ liệu khác ( trừ dòng 6) sẽ ẩn đi.
các bạn giúp mình với!

 

[bebo021999]

Giả sử: cột số TT là cột A, từ A2 đến A310
Cách làm: tạo code VBA ghi nhận mỗi sự thay đổi trong cột A, xác định dòng cuối chứa dữ liệu và dòng trống kế tiếp, từ dòng đó xuống dưới dòng 310 sẽ tự động ẩn.
Chuột phải vào tên sheet, chọn View Code, copy code này vô. Lưu file dạng .xlsm

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&
If Target.Column <> 1 Then Exit Sub
lr = Cells(310, "A").End(xlUp).Row
Rows(lr + 1).Hidden = False
Rows(lr + 2 & ":310").Hidden = True
End Sub

 

[Sangtm1985]

Giả sử: cột số TT là cột A, từ A2 đến A310
Cách làm: tạo code VBA ghi nhận mỗi sự thay đổi trong cột A, xác định dòng cuối chứa dữ liệu và dòng trống kế tiếp, từ dòng đó xuống dưới dòng 310 sẽ tự động ẩn.
Chuột phải vào tên sheet, chọn View Code, copy code này vô. Lưu file dạng .xlsm

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&
If Target.Column <> 1 Then Exit Sub
lr = Cells(310, "A").End(xlUp).Row
Rows(lr + 1).Hidden = False
Rows(lr + 2 & ":310").Hidden = True
End Sub

Cám ơn bác rất nhiều