Bài số 4 là dùng VBA đấy
Hi. Tại em đang onl bằng điện thoại nên ko xem được. Để mai e xem rồi hỏi bác sau nhé!
híc. em dùng office 2003 nên ko dùng cách của bác này được rồi
Em đã thử thêm các dòng mới và bấm nút xóa trong file anh gửi thì em thấy những dòng em thêm vào đều vị xóa hết nhưng chỉ những dòng nằm đến cột F là bị xóa thôi còn cột những cột tiếp theo thì vẫn còn. ý em muốn là xóa trắng tất cả các dòng ấy và chu trình xóa 13 dòng giữ 52 dòng sẽ tiếp tục cho đến khi hết tất cả các dòng chứa dữ liệu cơ ạ ( vì file này của em còn rất dài, còn file em up lên là đã cắt bớt để minh họa thôi ạ ). em cám ơn
Mình không biết bạn thêm dữ liệu vào sheet nào. Nhưng mình đoán là bạn thêm dữ liệu vào sheet1 (đoán đại như thế vì từ ngày tham gia GPE có thêm được cái tật này), nhưng lẽ ra bạn phải thêm dữ liệu vào sheet CanDoi
nó khổ ở chỗ này a ạ.e ko hiểu cái nút xoá ấy để làm gì và tạo ra nó như thế nào. Ấn vào đó thì chăc là sẽ xoá dòng. Em đã cóp những mã vba sang file bảng cân đối gốc với nhiêù dữ liệu thì ko thâý dòng nào bị xoá và cũng ko thấy hiện lên nút âý.và e còn 1 thắc mắc là muốn thay đôỉ số lượng ô muốn giữ lại và xoá đi thì phaỉ thay đổi ở chỗ nào ạ.mong a chỉ dùm e.hu hu
Minh gui lai file dang 2003 nhe, xem co duoc k?
Option Explicit
Sub ThuAnDong()
Dim Rws As Long, jJ As Long
Rws = [F65500].End(xlUp).Row + 52
Rows("1:" & Rws).Hidden = False
For jJ = 1 To Rws Step (13 + 52)
Cells(jJ, "A").Resize(13).EntireRow.Hidden = True
Next jJ
End SubEm làm được rồi anh ạ, bây giờ em muốn thay đổi khoảng cách dòng xóa và dòng giữ lại thì thay đổi thông số nào hả anh. ví dụ giờ em muốn giữ lại 80 dòng và xóa 20 dòng chẳng hạn. em cám ơn ạ
