Hỏi về ẩn hàng (1 người xem)

[kawaicandy]

Mình có tham khảo code ẩn hàng của 1 anh trên diễn đàn (xin lỗi mình quên mất tên)

[CODE]Sub cmd1_Click()
DK = cmd1.Caption = "Loc"
  With Range("$B$4:$B$14")
    If DK Then .AutoFilter 1, "<>", , , False Else .AutoFilter
  End With
  cmd1.Caption = IIf(DK, "Khong Loc", "Loc")
End Sub

[/CODE]
- Nếu dữ liệu được nhập theo từng hàng một thì code này xài rất tốt tuy nhiên nếu như 2 hàng merge lại thì xảy ra vấn đề
Có thể mình nói hơi khó hiểu nên mong các bạn tải file về xử lý giúp mình phát.
Cảm ơn rất nhiều

 

[nghiaphuc]

Mình có tham khảo code ẩn hàng của 1 anh trên diễn đàn (xin lỗi mình quên mất tên)

Sub cmd1_Click()
DK = cmd1.Caption = "Loc"
  With Range("$B$4:$B$14")
    If DK Then .AutoFilter 1, "<>", , , False Else .AutoFilter
  End With
  cmd1.Caption = IIf(DK, "Khong Loc", "Loc")
End Sub

- Nếu dữ liệu được nhập theo từng hàng một thì code này xài rất tốt tuy nhiên nếu như 2 hàng merge lại thì xảy ra vấn đề
Có thể mình nói hơi khó hiểu nên mong các bạn tải file về xử lý giúp mình phát.
Cảm ơn rất nhiều

Mấy anh chàng lọc, sắp xếp này vốn chẳng ưa gì anh chàng Merge cells. Do đó, nếu bạn sử dụng Merge cells thì code như vậy không ổn rồi.
Bạn thử lại cách sau xem:
[GPECODE=vb]Private Sub cmd2_Click()
Dim Cll As Range
Application.ScreenUpdating = False
If cmd2.Caption = "Loc" Then
For Each Cll In [B21:B36]
Cll.EntireRow.Hidden = Cll & Cll.Offset(-1) = ""
Next
cmd2.Caption = "Khong loc"
Else
[B21:B36].EntireRow.Hidden = False
cmd2.Caption = "Loc"
End If
Application.ScreenUpdating = True
End Sub[/GPECODE]

 

[kawaicandy]

Cảm ơn bạn đã xử lý giúp mình. Nói thật về VBA mình còn mù mờ lắm nên lọc = autofilter là cảm thấy dễ hiểu nhất. Mình cũng tìm trên diễn đàn code lọc của bác ndu96081631

Sub Cmd_Click()
  DK = Cmd.Caption = "Loc"
  Range("A10:A28").SpecialCells([COLOR=#0000ff][B]3, 22[/B][/COLOR]).EntireRow.Hidden = DK
  Cmd.Caption = Choose(-1 * DK + 1, "Loc", "Khong Loc")
End Sub

Bạn có thể giúp mình các tham số của SpecialCell là như thế nào đc ko vậy. Cảm ơn