Ẩn hiện dòng theo màu

[taminhlam]

Các bác ơi! Giúp em với. Em có 1 bảng tính khối lượng. Mà sau khi tính toán xong thì nó rất dài. Đến lúc tổng hợp thì em chỉ muốn lấy số liệu theo dòng màu xanh thôi. Các bác giúp em nhé. Em xin cám ơn

 

[concogia]

Các bác ơi! Giúp em với. Em có 1 bảng tính khối lượng. Mà sau khi tính toán xong thì nó rất dài. Đến lúc tổng hợp thì em chỉ muốn lấy số liệu theo dòng màu xanh thôi. Các bác giúp em nhé. Em xin cám ơn

Không biết trong file của bạn cột có dữ liệu cuối cùng à cột nào, tạm thời lấy cột Z
Bạn bấm Ctrl + W để ẩn
Bấm Ctrl + shift + W để " U như Kỹ"
Thân

 

[taminhlam]

Cảm ơn bác nhiều lắm! Em làm được rồi. Tiện thể cho em hỏi thêm 1 câu. Liệu với cách này em có thể áp dụng với Sheet khác được không nhỉ? Nghĩa là cũng format giống như vậy và em cũng muốn ẩn hiện như vậy. Xin cảm ơn!

 

[concogia]

Cảm ơn bác nhiều lắm! Em làm được rồi. Tiện thể cho em hỏi thêm 1 câu. Liệu với cách này em có thể áp dụng với Sheet khác được không nhỉ? Nghĩa là cũng format giống như vậy và em cũng muốn ẩn hiện như vậy. Xin cảm ơn!

Mình nghi nghi là......được vì code này viết ở module nên bạn đang ở sheet nào mà chạy code thì nó tác dụng vào sheet đó
À, mà sao bạn không thử làm với vài shee khác nhỉ ???
Thân

 

[taminhlam]

Em thử rồi. Nó cũng ẩn được nhưng không hết. Em thấy trong lệnh của mình tính đến Z1000. Mà dòng của em không đến 1000. Em cũng mới tập tành nên đoán thế thôi. Bác giúp em xem có thể dùng lệnh này cho mọi sheet được không? Em xin cám ơn!

Em gửi bác file đính kèm nhé. Cái file của em nặng lắm. Em phải xoá bớt mới up lên được.

 

[concogia]

Em thử rồi. Nó cũng ẩn được nhưng không hết. Em thấy trong lệnh của mình tính đến Z1000. Mà dòng của em không đến 1000. Em cũng mới tập tành nên đoán thế thôi. Bác giúp em xem có thể dùng lệnh này cho mọi sheet được không? Em xin cám ơn!

Em gửi bác file đính kèm nhé. Cái file của em nặng lắm. Em phải xoá bớt mới up lên được.

Tạm thời mình giải thích cho bạn thế này:

Public Sub AN()
    Dim Cll
    Application.ScreenUpdating = False
        For Each Cll In Range([I][B][b15], [b1000][/B][/I].End(xlUp))
            If Cll.Interior.ColorIndex <> 37 Then Rows(Cll.Row).Hidden = True
        Next Cll
End Sub

For Each Cll In Range([b15], [b1000].End(xlUp))

Câu lệnh này xác định vùng dữ liệu code tìm để hide
Trong bài trước mình sử dụng cột Z vì là cột có dữ liệu nhiều nhất (mình có nói với bạn vấn đề này rồi)
Trong bài này bạn phải khai báo cột B như code bên trên
Tóm lại, trong dữ liệu của bạn, cột nào dữ liệu nhiều nhất thì bạn khai báo cột đó hoặc khai báo tới địa chỉ cell cuối cùng có tô màu bạn muốn dấu
Hy vọng bạn nắm được vấn đề, có gì mình bàn tiếp
Thân

 

[dhn46]

Bạn bấm Ctrl + W để ẩn
Bấm Ctrl + shift + W để " U như Kỹ"

Thank bác concogia dùng tổ hợp phím để chạy công thức lần đầu tiên cháu biết. thường cháu phải sử dụng nút lệnh...

 

[taminhlam]

Cảm ơn bác! Em chạy được rồi. Thanks bác nhiều. Có gì mong bác chỉ bảo thêm!