Hỗ trợ làm phiếu nhập, xuất kho ( tự động ẩn, hiện những dòng có khoảng trống) (1 Viewer)

[Lavie15]

Các bác ơi giúp em với.
Em có 1 file PHIÊU NHẬP XUẤT KHO ( File đính kèm ), các phần khác thì em đã xử lý xong hết rồi, em muốn khi em xuất IN PHIẾU trong sheet "IN PHIEU NK-NT-NX#"này thì những dòng có khoảng trống lấy theo côt số lượng (E34-E226) có giá trị là khoảng trống thì sẽ tự động ẩn đi và nếu có giá trị sẽ tự động hiện ra (XỬ LÝ TỪ DÒNG 34 ĐẾN 226) mà em không biết làm thế nào cả.
Em nhờ các bác có ai biết giúp em với em đang cần gấp lắm vì sắp tới em phải quản lý nó để báo cáo xếp rồi.
Cố gắng giúp em nha.

 

[SA_DQ]

Nếu bạn chịu xài macro thì đường hướng là ẩn các dòng trống (không dữ liệu) đi thôi

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [D9]) Is Nothing Then
    Dim Rws As Long, J As Long, W As Integer
    Dim Arr()     

    Rows("226:17").Hidden = False
    With Sheets("NHAP C.CAP").[b5]
        Rws = .CurrentRegion.Rows.Count
        Arr() = .Resize(Rws, 7).Value
    End With:                               ReDim dArr(1 To 255, 1 To 6)
    Range("A17:A226").Resize(, 6).Value = ""
    For J = 1 To UBound(Arr())
        If Arr(J, 2) = Target.Value Then
            W = W + 1:                      dArr(W, 1) = W
            dArr(W, 2) = Arr(J, 7):         dArr(W, 4) = Arr(J, 4)
            dArr(W, 5) = Arr(J, 6):         dArr(W, 6) = Arr(J, 5)
        End If
    Next J
    If W Then
        [A17].Resize(W, 6).Value = dArr():  Rws = [b226].End(xlUp).Row
        Rows("226:" & (2 + Rws)).Hidden = True
    End If
 End If
End Sub

 

[phulien1902]

Các bác ơi giúp em với.
Em có 1 file PHIÊU NHẬP XUẤT KHO ( File đính kèm ), các phần khác thì em đã xử lý xong hết rồi, em muốn khi em xuất IN PHIẾU trong sheet "IN PHIEU NK-NT-NX#"này thì những dòng có khoảng trống lấy theo côt số lượng (E34-E226) có giá trị là khoảng trống thì sẽ tự động ẩn đi và nếu có giá trị sẽ tự động hiện ra (XỬ LÝ TỪ DÒNG 34 ĐẾN 226) mà em không biết làm thế nào cả.
Em nhờ các bác có ai biết giúp em với em đang cần gấp lắm vì sắp tới em phải quản lý nó để báo cáo xếp rồi.
Cố gắng giúp em nha.

Thử:

Private Sub Worksheet_Activate()
Dim Cll As Range
Application.ScreenUpdating = False
    For Each Cll In Range("A17:A227")
        If Cll.Value = Empty Then
            Cll.EntireRow.Hidden = True
       Else
            Cll.EntireRow.Hidden = False
        End If
    Next
  Application.ScreenUpdating = True
End Sub

Hoặc:

Sub An_dong()
  Dim Rng As Range
    Application.ScreenUpdating = False
   With Sheets("IN PHIEU NK-NT-NX#"). Range("A17").CurrentRegion
        .AutoFilter 1, ""
         Set Rng = .Offset(1).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible)
        .AutoFilter
        Rng.EntireRow.Hidden = True
    End With
Application.ScreenUpdating = True
End Sub

 

[be_09]

Các bác ơi giúp em với.
Em có 1 file PHIÊU NHẬP XUẤT KHO ( File đính kèm ), các phần khác thì em đã xử lý xong hết rồi, em muốn khi em xuất IN PHIẾU trong sheet "IN PHIEU NK-NT-NX#"này thì những dòng có khoảng trống lấy theo côt số lượng (E34-E226) có giá trị là khoảng trống thì sẽ tự động ẩn đi và nếu có giá trị sẽ tự động hiện ra (XỬ LÝ TỪ DÒNG 34 ĐẾN 226) mà em không biết làm thế nào cả.
Em nhờ các bác có ai biết giúp em với em đang cần gấp lắm vì sắp tới em phải quản lý nó để báo cáo xếp rồi.
Cố gắng giúp em nha.

Cũng cùng một nội dung, nhưng cách diễn đạt khác người đọc sẽ hiểu khác ý.
Bài ở Topic kia.
https://www.giaiphapexcel.com/diendan/threads/tự-động-ẩn-hiện-dòng-khi-giá-trị-là-khoảng-trống-trong-excel.136111/
Tôi góp ý thế này:

Góp ý cho bạn:
1/ File theo dõi dùng hàm phức tạp quá nếu dữ liệu kho nhiều sẽ tăng dung lượng và làm cho việc sử dụng chậm chạp.
2/ Nên đăng bài trong Box Lập trình với Excel, tiêu đề là "Hỗ trợ làm phiếu nhập, xuất kho với VBA". Nó có chức năng tự động tra và nhập liệu và áp giá nhiều sản phẩm cùng 1 lúc (về phiếu thì y như cái bạn đang dùng).

Thì có nghĩa là nên sử dụng VBA cho phiếu và dùng phiếu này để nhập liệu và truy vấn lại phiếu khi cần chứ không nên dùng hàm trong phiếu, nếu dữ liệu kho quá nhiều sẽ làm cho việc sử dụng chậm chạp, đến một lúc nào đó bạn sẽ thấy bực mình về nó.

Tôi khuyên bạn nên tìm và đọc các bài viết về File tự nhiên phình to bất thường hoặc File quá nặng sử dụng rất chậm chạp, thì sẽ ngộ ra được nhiều vấn đề.