add-in ẩn các dòng trống, kèm file excel mẫu

[Thuyanhanoi]

to Cá ngừ F1

Sub Hide()
Selection.SpecialCells(4).EntireRow.Hidden = 1
End Sub

code này có sai gì không? sao nó ẩn hết không chừa 1 dòng dữ liệu nào thế bác
với lại máy em cài off13 nên F1 cũng vô dụng đợi nó load 1 hồi mới có
code em tuy dở nhưng cũng chấp nhận được mà chỉ có 1 giá trị tại ô Z10000 vậy là nó duyệt qua 10000x26 ô mất hết 6s ẩn hết 9999 dòng

Code của Anh quanghai1969 áp dụng rất tốt đó bạn: Mình tùy biến code của Anh quanghai1969 một chút là thích ẩn thì ẩn mà hiện lại dòng trống cũng được.

Sub Hide_AnHide()
Selection.SpecialCells(4).EntireRow.Hidden = Not Selection.SpecialCells(4).EntireRow.Hidden
End Sub

 

[langtuchungtinh360]

Mình có gởi file nào lên đâu mà bạn hỏi pass? Vui tính quá xá.

lú lẫn ấy mà bác. nhầm tưởng bác là chủ topic. file của chủ topic có pass.
vậy bác có cách nào tổng quát hơn không. nếu chỉ giới hạn 1 cột như thế thì mắc công sửa lại quá. với lại nhìn số không chả biết sửa gì. thư viện F1 thì chả có.

 

[langtuchungtinh360]

Code của Anh quanghai1969 áp dụng rất tốt đó bạn: Mình tùy biến code của Anh quanghai1969 một chút là thích ẩn thì ẩn mà hiện lại dòng trống cũng được.

nhìn code chạy đã thật vậy phải sửa Selection thế nào để khoanh vùng để ẩn không bạn ví dụ A110
ô A5 có dữ liệu thì không ẩn
vùng A77 không có dữ liệu thì ẩn dòng 7 đi

 

[Thuyanhanoi]

nhìn code chạy đã thật vậy phải sửa Selection thế nào để khoanh vùng để ẩn không bạn ví dụ A110
ô A5 có dữ liệu thì không ẩn
vùng A77 không có dữ liệu thì ẩn dòng 7 đi

Không biết có giống như file đính kèm này không?

 

[Thuyanhanoi]

nhìn code chạy đã thật vậy phải sửa Selection thế nào để khoanh vùng để ẩn không bạn ví dụ A110
ô A5 có dữ liệu thì không ẩn
vùng A77 không có dữ liệu thì ẩn dòng 7 đi

Trong trường hợp Bạn cần cột bào đó chứa dữ liệu cứ gặp cel trống là ẩn thì thêm cột đó: Ví dụ:

Sub Hide_AnHide()
Range("B1:B10000").Select
Selection.SpecialCells(4).EntireRow.Hidden = Not Selection.SpecialCells(4).EntireRow.Hidden
End Sub

 

[langtuchungtinh360]

Không biết có giống như file đính kèm này không?

như bạn đã nói. cột A không có dữ liệu là đi núi
điển hình như file này

 

[ctyocap]

trong file minh co nhieu sheet. nhung minh chi muon an 1 sheet thoi