Em có thêm dữ liệu vô cột Hộ nghèo TW thì khi tìm số phiếu vẫn hiện ra dữ liệu ô D5 ở sheet IN. Còn khi thêm dữ liệu vô cột Địa phương thì cột Hộ cận nghèo vẫn hiện dữ liệu như cột Địa phương ở sheet IN ô F5 và L5 cùng hiện ra dữ liệu (mặc dù cột hộ cận nghèo sheet data không có dữ liệu). Còn khi em thêm dữ liệu cột Hộ cận nghèo thì ô L5 sheet IN không thấy dữ liệu. Ở sheet IN những ô không có dữ liệu để trống khỏi ẩn với anh vì nếu có phát sinh thêm thành viên nào thì giáo viên viết tay vô đỡ mất công in ra trình ký lại. Nếu có thể thì anh có thể thêm tách sheet và gộp sheet hộ em với. Em xin cám ơn anh.
Trên máy tôi Thì: Khi chạy code nó xóa bỏ các ô trong mảng Cll, rồi sau đó mới lấy dữ liệu vào các ô trong vùng từ dòng 10 dến dòng xxx.
Set Ws = Sheets("IN")
Ws.Range("A10:AA34").ClearContents
.......
Set Rng = Union(Range("D2"), Range("D3"), Range("D4"), Range("D5"), Range("F5"), Range("L3"), Range("L4:O4"), Range("L5"))
Rng.ClearContents
Còn lấy dữ liệu vào cas ô đó thì đây:
......
If t = 1 Then
For k = LBound(H) To UBound(H)
Ws.Range(Cll(k)) = Arr(i, H(k))
Next k
End If
.....
Đoạn ẩn các dòng thì đây
....
Ws.Rows(t + 10 & ":" & 34).EntireRow.Hidden = True
....
Tôi để đến dòng 34 là dự phòng hộ có trên 12 nhân khẩu (chứa được 25 nhân khẩu)
còn nếu để GV tự viết tây thêm thì xóa bớt các dòng chỉ để lại 12 dòng.
Xem file (đã có sửa lại code)
