Nhờ mọi người giúp em CÁCH TỰ ĐỘNG ẨN HÀNG KHÔNG CÓ GIÁ TRỊ (2 người xem)

[thinh46988966]

Em có làm một biểu giao nhận hàng hóa. Hiện tại, một biên bản giao khách hàng có rất nhiều dòng bị trống (giá trị bằng 0). Em muốn xin công thức tự động ẩn các dòng bằng 0 và STT sẽ tự động chạy (bỏ qua các dòng ẩn). File của em cụ thể như sau ạ:

2 sheet chính: 1 và 2
- sheet 1: đã nhập số liệu đặt hàng theo khách hàng (có 26 khách hàng)
- sheet 2: Ở cột này thì ô G1 thì em đã đặt công thức để nhập số từ 1 đến 26. Khi nhập số thì sẽ hiện ra biên bản giao từng khách hàng.
Em cần xử lí ở sheet 2: Nếu hàng nào có giá trị bằng 0 ở cột D thì sẽ tự động ẩn. Và cột STT (Cột A) sẽ tự động đánh lại.

Cảm ơn các bác nhiều ạ

 

[n0thing1988]

Em có làm một biểu giao nhận hàng hóa. Hiện tại, một biên bản giao khách hàng có rất nhiều dòng bị trống (giá trị bằng 0). Em muốn xin công thức tự động ẩn các dòng bằng 0 và STT sẽ tự động chạy (bỏ qua các dòng ẩn). File của em cụ thể như sau ạ:

2 sheet chính: 1 và 2
- sheet 1: đã nhập số liệu đặt hàng theo khách hàng (có 26 khách hàng)
- sheet 2: Ở cột này thì ô G1 thì em đã đặt công thức để nhập số từ 1 đến 26. Khi nhập số thì sẽ hiện ra biên bản giao từng khách hàng.
Em cần xử lí ở sheet 2: Nếu hàng nào có giá trị bằng 0 ở cột D thì sẽ tự động ẩn. Và cột STT (Cột A) sẽ tự động đánh lại.

Cảm ơn các bác nhiều ạ

Bạn tham khảo link này

Code ẩn dòng trống!!!

Chào các bạn! Tôi có đoạn code làm ẩn các dòng trống trong một vùng dữ liệu A4:L25, trong đó có các dòng trống. tôi muốn ẩn nó đi để tiện cho việc in ấn (khỏi phải vào in khu vực....), các bạn xem coi nó bị lỗi gì vậy? Sub an_dong() Dim r As Integer Sheets("sheet2").Select For i = 4...

www.giaiphapexcel.com

 

[thinh46988966]

Bạn tham khảo link này

Code ẩn dòng trống!!!

Chào các bạn! Tôi có đoạn code làm ẩn các dòng trống trong một vùng dữ liệu A4:L25, trong đó có các dòng trống. tôi muốn ẩn nó đi để tiện cho việc in ấn (khỏi phải vào in khu vực....), các bạn xem coi nó bị lỗi gì vậy? Sub an_dong() Dim r As Integer Sheets("sheet2").Select For i = 4...

www.giaiphapexcel.com

Thú thực em cũng không giỏi excel, bác có thể test trực tiếp trên file của em được không?

 

[phulien1902]

Em có làm một biểu giao nhận hàng hóa. Hiện tại, một biên bản giao khách hàng có rất nhiều dòng bị trống (giá trị bằng 0). Em muốn xin công thức tự động ẩn các dòng bằng 0 và STT sẽ tự động chạy (bỏ qua các dòng ẩn). File của em cụ thể như sau ạ:

2 sheet chính: 1 và 2
- sheet 1: đã nhập số liệu đặt hàng theo khách hàng (có 26 khách hàng)
- sheet 2: Ở cột này thì ô G1 thì em đã đặt công thức để nhập số từ 1 đến 26. Khi nhập số thì sẽ hiện ra biên bản giao từng khách hàng.
Em cần xử lí ở sheet 2: Nếu hàng nào có giá trị bằng 0 ở cột D thì sẽ tự động ẩn. Và cột STT (Cột A) sẽ tự động đánh lại.

Cảm ơn các bác nhiều ạ

Bạn muốn tham khảo cách làm bằng VBA không?

 

[xuongrongdat]

Bạn tham khảo link này

Code ẩn dòng trống!!!

Chào các bạn! Tôi có đoạn code làm ẩn các dòng trống trong một vùng dữ liệu A4:L25, trong đó có các dòng trống. tôi muốn ẩn nó đi để tiện cho việc in ấn (khỏi phải vào in khu vực....), các bạn xem coi nó bị lỗi gì vậy? Sub an_dong() Dim r As Integer Sheets("sheet2").Select For i = 4...

www.giaiphapexcel.com

Thớt cần ẩn các dòng có điều kiện là cột D không có dữ liệu hoặc = 0 á. Không phải toàn dòng đó không có dữ liệu đâu, hi.

@thinh46988966 : bạn không giỏi Excel thì bài này phải giải bằng VBA rồi á bạn !

 

[n0thing1988]

Bước 1 ấn Alt + F11
Bước 2 chép đoạn code sau vào sheet 1 của bạn

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$1" Then
ActiveSheet.Range("$A$14:$F$50").AutoFilter Field:=4, Criteria1:=" <> "
End If
End Sub

 

[phulien1902]

Bước 1 ấn Alt + F11
Bước 2 chép đoạn code sau vào sheet 1 của bạn

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$1" Then
ActiveSheet.Range("$A$14:$F$50").AutoFilter Field:=4, Criteria1:=" <> "
End If
End Sub

Vậy mới giải quyết được 1 ý, còn đánh lại số thứ tự cột A thì sao?

 

[xuongrongdat]

Vậy mới giải quyết được 1 ý, còn đánh lại số thứ tự cột A thì sao?

Em giơ tay! Em chơi hàm tại ô A15, xong fill xuống đến A156, hihi (tại chưa rành VBA):

=SUBTOTAL(103;$B$15:B15)

Là giải quyết được ý còn lại.

 

[phulien1902]

Mình đè xuất cách giải cho bài toán này:

 Dim a(), b(), i&, k%, LR, j%
    With Sheets("2")
        a = .Range("A15", .Range("A10000").End(3)).Resize(, 6).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 6)
    With Sheets("2")
        For i = 1 To LR - 1
            If a(i, 4) <> Empty Then
                k = k + 1: b(k, 1) = k
                For j = 2 To 6
                    b(k, j) = a(i, j)
                Next j
            End If
        Next i
        Sheets.Add
        If k Then
            With ActiveSheet
                .Range("A1:F1").Value = Sheets("2").Range("A14:F14").Value
                .Range("A2").Resize(k, 6) = b
                .Range("A1").Resize(k + 1, 6).Borders.LineStyle = 1
                .Range("A1:f1").Columns.AutoFit
            End With
        End If
    End With