Cách Ẩn hiện dòng cột

[Ngan Tuan]

Mình có file thống kê các hạng mục Công việc. Mong các Anh chị trên diễn đàn giúp dùm:
- Trong các hạng mục cv có nhiều cv khối lương bằng 0, minh muốn tạo một nút Nhập (Xuất) để khi ấn vào nút này thì các hạng mục cv có khối lương bằng 0 sẽ tự ẩn đi và khi ấn nút Xuất(nhập) sẽ xuất hiện lại toàn bộ các hạng mục công việc như ban đầu để nhập dư liệu tiếp tục.
- Mong các Anh chị giúp đỡ trực tiếp trên file để minh học hỏi.
Rất cảm ơn

 

[phulien1902]

Mình có file thống kê các hạng mục Công việc. Mong các Anh chị trên diễn đàn giúp dùm:
- Trong các hạng mục cv có nhiều cv khối lương bằng 0, minh muốn tạo một nút Nhập (Xuất) để khi ấn vào nút này thì các hạng mục cv có khối lương bằng 0 sẽ tự ẩn đi và khi ấn nút Xuất(nhập) sẽ xuất hiện lại toàn bộ các hạng mục công việc như ban đầu để nhập dư liệu tiếp tục.
- Mong các Anh chị giúp đỡ trực tiếp trên file để minh học hỏi.
Rất cảm ơn

Bạn thử:

Sub Test()
    Dim LR As Long
    With ActiveSheet
        LR = .Cells(.Rows.Count, 2).End(3).Row
        If .FilterMode Then .ShowAllData: Exit Sub
        With .Range("D3:D" & LR)
            .AutoFilter 1, ">0"
        End With
    End With
End Sub

 

[Hong.Van]

Mình có file thống kê các hạng mục Công việc. Mong các Anh chị trên diễn đàn giúp dùm:
- Trong các hạng mục cv có nhiều cv khối lương bằng 0, minh muốn tạo một nút Nhập (Xuất) để khi ấn vào nút này thì các hạng mục cv có khối lương bằng 0 sẽ tự ẩn đi và khi ấn nút Xuất(nhập) sẽ xuất hiện lại toàn bộ các hạng mục công việc như ban đầu để nhập dư liệu tiếp tục.
- Mong các Anh chị giúp đỡ trực tiếp trên file để minh học hỏi.
Rất cảm ơn

 

[Ngan Tuan]

Dạ, rất cảm ơn Anh, chị