Lọc ẩn dòng trống tự động bằng Autofilter + VBA

[Duong gia]

Lọc ẩn dòng trống tự động bằng Autofilter + VBA với code : Selection.AutoFilter Field:=1, Criteria1:="1" là OK, còn khi muốn bung hết ra thì làm sao mong các anh chị giúp đỡ. (Xin mở file đính kèm)

 

[thanhlanh]

Cảm ơn bạn minhthien321 đã giúp đỡ
Tôi có thêm 01 vấn đề như thế này, trong 01 File có nhiều Sheet trong đó có 12 sheet là có cấu trúc tương đối đồng dạng, nếu áp dụng bài trên thì ta phải Copy code trên vào 12 Sheet và đồng thời tạo ra 12 nút "Cmd".
Bây giờ tôi muốn gom thành một đọan code để ở đâu đó và ta chỉ tạo 12 nút lệnh ở 12 sheet có được không bạn?
Xin cảm ơn

Muốn sử dụng chung code bạn nên để sub trong module
Tạo một Button từ menu Forms của Excel ---> chuột phải vào Button gán vào Sub trên ---> Copy button vào các sheet khác.
Xem ví dụ:

 

[dongducnhiem]

Muốn sử dụng chung code bạn nên để sub trong module
Tạo một Button từ menu Forms của Excel ---> chuột phải vào Button gán vào Sub trên ---> Copy button vào các sheet khác.
Xem ví dụ:

Chào bạn thanhlanh!
Cách hướng dẫn của bạn nó báo lỗi Run-time error '424' Object required
Tôi gởi File nhờ bạn xem lại! cảm ơn.

 

[Hoàng Trọng Nghĩa]

Chào bạn thanhlanh!
Cách hướng dẫn của bạn nó báo lỗi Run-time error '424' Object required
Tôi gởi File nhờ bạn xem lại! cảm ơn.

Bạn xóa cái nút đó đi, và thay vào nút của Control Toolbox đó, sau đó đổi tên trong thuộc tính của nó là cmd

 

[Hoàng Trọng Nghĩa]

Nếu bạn vẫn giữ nút lệnh đó, thì bạn phải sửa tên thành tên nào đó, trong trường hợp của file tôi gửi lên nút có tên là MinhThien321 và code chạy như sau:

Sub LocDieuKien()
    With Application
        .ScreenUpdating = False: .EnableEvents = False: .Calculation = 3
        ActiveSheet.Shapes("MinhThien321").Select
        On Error Resume Next
        If Selection.Characters.Text = "Loc" Then
            Selection.Characters.Text = "Khong Loc"
            ActiveSheet.Range("$A$5:$A$28").AutoFilter 1, "<>", , , False
            ActiveSheet.Range("C:C").EntireColumn.Hidden = True
        Else
            Selection.Characters.Text = "Loc"
            ActiveSheet.Range("A1").AutoFilter
            ActiveSheet.Range("C:C").EntireColumn.Hidden = False
        End If
        ActiveSheet.Range("A1").Select
        .Calculation = 1: .EnableEvents = True: .ScreenUpdating = True
    End With
End Sub

Với thủ tục này, bạn chỉ cần copy cái nút lệnh qua sheet khác thì sheet đó cũng được thực hiện y chang sheet ban đầu, tiện lợi cho bạn.

 

[dongducnhiem]

Bạn xóa cái nút đó đi, và thay vào nút của Control Toolbox đó, sau đó đổi tên trong thuộc tính của nó là cmd

Gởi bạn minhthien321!
Trước đó mình đã thử cách này rồi: Vào Control Toolbox --> chọn Command Button, vẽ nó, rồi vào Properties, thay đổi (Name) thành cmd, nhưng nó vẫn điếc! (Code để trong Module)

 

[Hoàng Trọng Nghĩa]

Gởi bạn minhthien321!
Trước đó mình đã thử cách này rồi: Vào Control Toolbox --> chọn Command Button, vẽ nó, rồi vào Properties, thay đổi (Name) thành cmd, nhưng nó vẫn điếc! (Code để trong Module)

Nó điếc là phải, bởi nút lệnh đó, thủ tục phải đặt trong sheet chứ không đặt trong module, nếu đặt ở module thì thủ tục trong sheet phải gọi thủ tục ở module ra làm việc, lưu ý: thủ tục trong module đó thay vì Cmd.Caption thì phải viết là ActiveSheet.Cmd.Caption

 

[dongducnhiem]

Nếu bạn vẫn giữ nút lệnh đó, thì bạn phải sửa tên thành tên nào đó, trong trường hợp của file tôi gửi lên nút có tên là MinhThien321 và code chạy như sau:

Hic! Bạn chơi ĐỘC QUYỀN nha!
Tôi vẽ một Button ở Sheet mới, chọn nó rồi vào Name đặt tên là minhthien321, vào Assign Macro gán tên Sub vào là Ok!
Chúc bạn một ngày làm việc vui vẻ! Xin cảm ơn

 

[Hoàng Trọng Nghĩa]

Hic! Bạn chơi ĐỘC QUYỀN nha!
Tôi vẽ một Button ở Sheet mới, chọn nó rồi vào Name đặt tên là minhthien321, vào Assign Macro gán tên Sub vào là Ok!
Chúc bạn một ngày làm việc vui vẻ! Xin cảm ơn

Bạn muốn đặt tên gì mà không được chứ bạn, sau đó sửa code lại theo tên bạn đặt thôi!

 

[khamha]

Các bạn ơi,mình muốn cho đoạn code trên hoạt động theo cách:khi ta nhấp đôi chuột trái lần thứ nhất thì ẩn dòng trống (ẩn nút filter),khi nhấp đôi chuột lần hai thì hiện lại đầy đủ, thì phải sửa lại code như thế nào?,cảm ơn.

 

[dhn46]

Tôi nghĩ có thể dùng 1 biến public sau đó gắn thủ tục nếu click thì biến đó cộng 1
Khi thực hiện sub thì kiểm tra xem biến đó là chẵn hay lẻ, rồi thực hiện code theo điều kiện biến
Cách khác: sử dụng ToggleButton thì dễ hơn
(sao phải nháy đúp, nháy 1 lần không được hả bạn)

 

[nghiaphuc]

Tôi nghĩ có thể dùng 1 biến public sau đó gắn thủ tục nếu click thì biến đó cộng 1
Khi thực hiện sub thì kiểm tra xem biến đó là chẵn hay lẻ, rồi thực hiện code theo điều kiện biến
Cách khác: sử dụng ToggleButton thì dễ hơn
(sao phải nháy đúp, nháy 1 lần không được hả bạn)

Cứ mỗi lần nhấn lại cộng 1 đơn vị, cái này có vẻ hơi "uổng", đó là chưa kể việc đóng rồi mở file sẽ làm code hoạt động không đúng. Mình cũng có thể vẽ 1 Checkbox (Checkbox1) và cho nó ẩn đi (đặt thuộc tính Visible=False), và thêm 1 câu lệnh ở đầu sub: Checkbox1=Not(Checkbox1), sau đó kiểm tra tình trạng của Checkbox1 và quyết định chạy code ra sao.

 

[dhn46]

Vậy em nghĩ dùng ToggleButton là hay hơn cả, chỉ cần 1 control không phải tạo biến phụ code đơn giản chỉ cần
ToggleButton1.Value = True Then........
(Mà bác nghiaphuc bây giờ ẩn hiện khó lường quá, thấy nick không sáng hihi)

 

[khamha]

Xin lỗi đã trình bày chưa hết ý,ý của mình là ko dùng nút bấm gì cả, và thay vào đó là dùng nhắp đúp chuột trái vào bảng tính..

 

[dhn46]

Vậy bạn sử dụng thủ tục
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

[nghiaphuc]

Xin lỗi đã trình bày chưa hết ý,ý của mình là ko dùng nút bấm gì cả, và thay vào đó là dùng nhắp đúp chuột trái vào bảng tính..

Vậy thì bạn sử dụng code có dạng như sau cho sheet cần áp dụng:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    "Đoạn code cần đưa vào"
End Sub

 

[khamha]

Minh cũng hay dùng code trên để bảo vệ bảng tính,nên muốn kết hợp với đoạn code ẩn dòng trống vào luôn (một công đôi việc)nhưng lại ko biết phải sửa lại đoạn code ẩn dòng trống lại như thế nào(vì đoạn code ẩn dòng trống được viết cho dùng nút lệnh).nhờ các bạn giúp sửa lại.cảm ơn.

 

[nghiaphuc]

Minh cũng hay dùng code trên để bảo vệ bảng tính,nên muốn kết hợp với đoạn code ẩn dòng trống vào luôn (một công đôi việc)nhưng lại ko biết phải sửa lại đoạn code ẩn dòng trống lại như thế nào(vì đoạn code ẩn dòng trống được viết cho dùng nút lệnh).nhờ các bạn giúp sửa lại.cảm ơn.

Thôi như vầy cho nhanh (cho cả bạn và những người sẽ giúp đỡ bạn), bây giờ bạn gửi 1 file mẫu lên, nêu rõ trong đó cần làm những gì. Mình tin rằng sẽ có câu trả lời phù hợp nhất cho bạn.

 

[khamha]

Các bạn xem file và giúp mình nhé.trong file mình đã tạo một đoạn code để ẩn dòng trống trong cột "C" (cột C12:C111 ,được tự động cập nhật dữ liệu từ 1 sheet khác) cách này thấy nó cũng hoạt động tốt,nhưng vì nó lại hiện cái nút filter,nên làm cho độ rộng của của cột tăng lên,làm cho ko vừa với khổ A4 và lại nhìn ko được đẹp.nên nhờ các bạn sửa lại để cho nó ẩn cái nút filter,nhưng vẫn ẩn được dòng trống,các bạn xem file.

 

[khamha]

Viết thế này sẽ "đẹp" hơn:

Sub Cmd_Click()
  DK = Cmd.Caption = "Loc"
  With Range("$A$8:$A$28")
    If DK Then .AutoFilter 1, "<>", , , False Else .AutoFilter
  End With
  Cmd.Caption = IIf(DK, "Khong Loc", "Loc")
End Sub

Ẩn luôn mũi tên AutoFilter

bạn ndu ơi,ko biết đoạn code ẩn nút filter là đoạn nào,có thể đưa thêm vào file của mình đã up ở bài trên được ko?

 

[Hoàng Trọng Nghĩa]

bạn ndu ơi,ko biết đoạn code ẩn nút filter là đoạn nào,có thể đưa thêm vào file của mình đã up ở bài trên được ko?

Nếu bạn cho nó là True thì nó hiện nút xổ xuống ra.

If DK Then .AutoFilter 1, "<>", , , False Else .AutoFilter