Tự động giấu dòng trống trong Excel?

[huytuna]

Các AC trong 4rum giải thích và hướng dẫn cách làm dấu dòng trống trên file excel đính kèm.
Cám ơn các AC nhiều!

 

[Đình Phán]

Đây đâu phải tự động giấu dòng trống, đó là ẩn những giá trị không thỏa mãn thôi.
Cái này dùng chức năng Filter Advance của Excel (Data -> Filter -> Advanced - Rút trích dữ liệu với 01 điều kiện ngày)

 

[SA_DQ]

Có dấu dòng trống không cần thiết đó bạn;

Mình viết 1 thôi, 1 hồi xong mất tiêu nên tạm trả lời ngắn như vậy;

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [D1]) Is Nothing Then
   Dim Wf As Object, Sh As Worksheet, Rng As Range, Cls As Range
   Dim Rws As Long
   
1   [c4].Resize(30, 4).ClearContents
   Set Sh = ThisWorkbook.Worksheets("CSDL")
3   Rows("3:33").Hidden = False
   Set Rng = Sh.[B1].CurrentRegion
5   Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sh.Range( _
        "BA1:BA2"), CopyToRange:=Sh.Range("BA4:BC4"), Unique:=False
   Set Rng = Sh.[BA4].CurrentRegion
7   Rng.Sort Key1:=Sh.Range("BA5"), Order1:=xlAscending, Key2:=Sh.Range("BC5" _
        ), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1
   Sh.[ca1:cb1].Value = Sh.[ba4:bb4].Value
9   Rng(1).Resize(Rng.Rows.Count, 2).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sh.Range( _
        "CA1:CB1"), Unique:=True
11   Sh.[ca1].CurrentRegion.Offset(1).Copy Destination:=[c4]
   Set Wf = Application.WorksheetFunction
13   For Each Cls In Range([c4], [c4].End(xlDown))
      Cls.Offset(, 2).Value = Wf.SumIf(Rng, Cls.Value, Sh.[bc4])
15   Next Cls
   Rws = [c3].End(xlDown).Row + 2
17   If Rws > 43 Then Rws = 6
   Rows(Rws & ":33").Hidden = True
19 End If
End Sub

Bạn xem dòng lệnh số 18 sẽ rõ hơn
& mình còn đoán là tác fẩm của ai nữa kia (theo fong cách viết code)

 

[huytuna]

Bạn xem dòng lệnh số 18 sẽ rõ hơn
& mình còn đoán là tác fẩm của ai nữa kia (theo fong cách viết code)

Em không hiểu gì về code cả, mà em thấy các dòng lệnh trên toàn các dòng lẻ 1. 3 . 5 . 7.... không có dòng lệnh 18

Nhân tiện em nhờ Bác HYên17 và các AC trong GPE làm giúp em file này nhé!
(Làm xong gửi file cho em để em nghiên cứu)
Tự động dấu dòng trống và tự động tăng dòng khi có dữ liệu phát sinh?

 

[SA_DQ]

File của bạn đây

(Trong đó có 2 macro;
Một macro chỉ chạy 1 lần & chạy rồi; Bạn tham khảo nha
Một là macro sự kiện tại trang tính 'Sheet 1"

 

[huytuna]

(Trong đó có 2 macro;
Một macro chỉ chạy 1 lần & chạy rồi; Bạn tham khảo nha
Một là macro sự kiện tại trang tính 'Sheet 1"

Em cám ơn A rất nhiều, nhưng em không hiểu cách tạo macro n/t/n? A có thể hướng dẫn e cụ thể được ko?

 

[ChanhTQ@]

Em cám ơn A rất nhiều, nhưng em không hiểu cách tạo macro n/t/n? A có thể hướng dẫn e cụ thể được ko?

Cái ni đã có trên diễn đàn; Bạn chịu khó tìm lúc rỗi đi vậy!

Một ví dụ cụ thể như đến bài "Chập chững đến với VBA" í!