Code VBA ẩn dòng khi giá trị cột B nhỏ hơn 1 (1 người xem)

[Phương Phương mito]

Em có yêu cầu công việc mà mỗi lần em chọn Slicer dòng dữ liệu thay đổi. Nhằm co gọn vùng dữ liệu em muốn co giãn vùng như yêu cầu trong File. Anh chị giúp em yêu cầu này với ạ. Em cảm ơn ạ.

 

[LamNA]

Em có yêu cầu công việc mà mỗi lần em chọn Slicer dòng dữ liệu thay đổi. Nhằm co gọn vùng dữ liệu em muốn co giãn vùng như yêu cầu trong File. Anh chị giúp em yêu cầu này với ạ. Em cảm ơn ạ.

Bạn thử thế này xem đúng ý bạn chưa nhé

Trong Module

Private Sub Andong()
    Dim Rng As Range
    Application.ScreenUpdating = False
    For Each Rng In [B3:B50]
        Rng.EntireRow.Hidden = Rng.Value = ""
    Next Rng
End Sub

Trong Sheet Pivot tạo thêm sự kiện để gọi sub

Private Sub Worksheet_Calculate()
 Application.Run "Andong"
End Sub

 

[Phương Phương mito]

Bạn thử thế này xem đúng ý bạn chưa nhé

Trong Module

Private Sub Andong()
    Dim Rng As Range
    Application.ScreenUpdating = False
    For Each Rng In [B3:B50]
        Rng.EntireRow.Hidden = Rng.Value = ""
    Next Rng
End Sub

Trong Sheet Pivot tạo thêm sự kiện để gọi sub

Private Sub Worksheet_Calculate()
Application.Run "Andong"
End Sub

Đúng ý em rồi anh Lâm ạ. Cảm ơn anh nhiều ạ !

 

[HeSanbi]

Vì sao 1 câu hỏi mà lại hỏi lặp lại vậy cô gái. Không biết cách xem lại bài viết cũ?

Bài viết trước đó

Đoạn code của bạn LamNA hướng dẫn bạn thiếu hai yếu tố quan trọng
1. Nếu thực hiện với số lượng dòng lớn
2. Kỹ thuật code không hợp lí

Bạn nên xem lại bài viết đã đăng khi trước.

 

[Phương Phương mito]

Vì sao 1 câu hỏi mà lại hỏi lặp lại vậy cô gái. Không biết cách xem lại bài viết cũ?

Bài viết trước đó

Đoạn code của bạn LamNA hướng dẫn bạn thiếu hai yếu tố quan trọng
1. Nếu thực hiện với số lượng dòng lớn
2. Kỹ thuật code không hợp lí

Bạn nên xem lại bài viết đã đăng khi trước.

Hi. Vâng ạ. Em cảm ơn anh ạ. Tại em có nhiều cái nghĩ ra sẽ nhờ các anh cho ý tưởng/code để em học ạ. Em cũng phải tra google để hiểu được một phần nhỏ ạ. Em sẽ lưu ý hơn ạ !