Giúp mình ẩn dòng có giá trị bằng 0 (1 người xem)

[toidjtjmtoi]

Ví dụ như trong file của mình khi giá trị cốt C =0 thì sẽ ẩn dòng đó đi
mình xin code VBA . Cảm ơn

 

[PacificPR]

Ví dụ như trong file của mình khi giá trị cốt C =0 thì sẽ ẩn dòng đó đi
mình xin code VBA . Cảm ơn

Bạn dùng sự kiện này

Private Sub Worksheet_Activate()

Dim Rng As Range

Application.ScreenUpdating = False

For Each Rng In [C1:C29]

If Rng.Value <> 0 Then
Rng.EntireRow.Hidden = False
Else
Rng.EntireRow.Hidden = True
End If

Next Rng


Application.ScreenUpdating = True

End Sub

 

[toidjtjmtoi]

bạn ơi có cách nào để nó tự chạy không? sao mình không thấy trong marco nhỉ

 

[PacificPR]

bạn ơi có cách nào để nó tự chạy không? sao mình không thấy trong marco nhỉ

Mình nghĩ cái này mà để nó tự chạy thì rắc rối thêm thôi. Xuất ngày chạy theo nó mà mệt.
Hay mình tách ra 2 cái
(1) Ẩn tất cả các dòng có giá trị cột C=0 khi cần (Ẩn dòng)
(2) Hiện tất cả các dòng của cột C (Hiện dòng)
Như vậy thì thuận lợi hơn

 

[ndu96081631]

Mình nghĩ cái này mà để nó tự chạy thì rắc rối thêm thôi. Xuất ngày chạy theo nó mà mệt.
Hay mình tách ra 2 cái
(1) Ẩn tất cả các dòng có giá trị cột C=0 khi cần (Ẩn dòng)
(2) Hiện tất cả các dòng của cột C (Hiện dòng)
Như vậy thì thuận lợi hơn

Ẩn dòng ta dùng vòng lập cũng xem như hợp lý đi chứ code hiện dòng thì cần gì đến vòng lập hả bạn? Cứ cho toàn bộ Range hiện tất tần tật đi xem có chết thằng Tây nào không?

 Sheet1.Range("C1", Sheet1.Range("C60000").End(xlUp)).EntireRow.Hidden = False

1 dòng code duy nhất

 

[PacificPR]

Ẩn dòng ta dùng vòng lập cũng xem như hợp lý đi chứ code hiện dòng thì cần gì đến vòng lập hả bạn? Cứ cho toàn bộ Range hiện tất tần tật đi xem có chết thằng Tây nào không?

 Sheet1.Range("C1", Sheet1.Range("C60000").End(xlUp)).EntireRow.Hidden = False

1 dòng code duy nhất

Dạ vâng cám ơn thầy. Em tiện Code ẩn dòng nên Copy xuống làm luôn ...

 

[Ba Tê]

Ẩn dòng ta dùng vòng lập cũng xem như hợp lý đi chứ code hiện dòng thì cần gì đến vòng lập hả bạn? Cứ cho toàn bộ Range hiện tất tần tật đi xem có chết thằng Tây nào không?

 Sheet1.Range("C1", Sheet1.Range("C60000").End(xlUp)).EntireRow.Hidden = False

1 dòng code duy nhất

Híc! Híc!!!
"Cứ cho toàn bộ Range hiện tất tần tật đi xem có chết thằng Tây nào không?" chắc hổng chết thằng tây nào "gồi"
Hay là cứ cho "tây ta chết láng":

Sheet1.Cells.EntireRow.Hidden = False

Dông..................................lẹ.

 

[ndu96081631]

Dạ vâng cám ơn thầy. Em tiện Code ẩn dòng nên Copy xuống làm luôn ...

Nhân tiện nhắc đến code ẩn dòng, sao bạn không dùng AutoFilter cho tiện?

 

[toidjtjmtoi]

Sao mình mang về chạy không được nhỉ . Cuối cùng tự làm cái marco fill