Nhờ giúp đỡ ẩn dòng ở các ô có giá trị là 100%

[TgiaiDungLe]

Mình có 1 file (như file đính kèm bên dưới). Mình muốn ẩn đi các dòng ở các ô có giá trị là 100%. Nhờ các bạn trong diễn đàn giúp đỡ ạ.
Xin chân thành cảm ơn.

 

[Hoàng Trọng Nghĩa]

Dễ với người này nhưng lại khó với người khác ạ, mình cũng đính chính là Autofilter mình biết nhưng phần code để thực hiện hide (thay cho Autofilter) thì mình chưa biết nên mình mới hỏi ạ

Dùng AutoFilter bằng code nha bạn, nó sẽ nhanh hơn có vòng lặp đấy.

Sub HideAndUnhide()
    Dim strCaption As String
    strCaption = "Unhide 100%"
    ActiveSheet.AutoFilterMode = False
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    If Selection.Characters.Text = strCaption Then
        Selection.Characters.Text = "Hide 100%"
    Else
        Dim e As Long
        e = Range("C" & Rows.Count).End(xlUp).Row
        ActiveSheet.Range("B2:C" & e).AutoFilter 2, "<>1", , , False
        Selection.Characters.Text = strCaption
    End If
    Range("C2").Select
End Sub

 

[VetMini]

Dễ mà giờ này vẫn chưa biết làm? Ca này hơi đau đầu.

Ở trên tôi đã nói "bấm nút ăn lương" mờ.
Bắt buộc phải trả lời bót là "Vấn đề này dùng AutoFilter thì rất dễ, nhưng cái nút BÓT muốn thì em chưa quen. Không sao, cứ để em cố ..."
Sau khi đưa cái nút bấm cho bót thì Kê-Pi-Ai tăng vọt. Biết đâu được làm em-pơ-loi-i ốp đờ mông.

......nhưng do boss cần làm 1 nút như vậy nên em mới nhờ các bác hỗ trợ ạ, chứ nếu autofilter thì dễ quá rồi

Không hiểu tại sao bót này lại muốn bấm nút, thay vì bấm mũi tên. Đoán mò là hoặc do cận thị, cần cái nút tổ bố dễ thấy, hoặc do bót muốn làm le với bót nhớn...
Lúc đầu thì tôi cứ ngỡ do ăn lương theo nút. Nếu đưa filter ra thì bót muốn ẩn cái gì chẳng được. Gặp người khoái nút, cứ đưa nút ẩn/hiện 100%. Chừng lúc bót muốn ẩn/hiện 90% thì lại thêm 1 nút. Càng nhiều nút càng ăn tiền.

 

[TgiaiDungLe]

Dùng AutoFilter bằng code nha bạn, nó sẽ nhanh hơn có vòng lặp đấy.

Sub HideAndUnhide()
    Dim strCaption As String
    strCaption = "Unhide 100%"
    ActiveSheet.AutoFilterMode = False
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    If Selection.Characters.Text = strCaption Then
        Selection.Characters.Text = "Hide 100%"
    Else
        Dim e As Long
        e = Range("C" & Rows.Count).End(xlUp).Row
        ActiveSheet.Range("B2:C" & e).AutoFilter 2, "<>1", , , False
        Selection.Characters.Text = strCaption
    End If
    Range("C2").Select
End Sub

à à vậy cho mình xin lỗi, vậy mà mình cứ nghĩ dùng autofilter bằng cách vào data => autofilter

Ở trên tôi đã nói "bấm nút ăn lương" mờ.
Bắt buộc phải trả lời bót là "Vấn đề này dùng AutoFilter thì rất dễ, nhưng cái nút BÓT muốn thì em chưa quen. Không sao, cứ để em cố ..."
Sau khi đưa cái nút bấm cho bót thì Kê-Pi-Ai tăng vọt. Biết đâu được làm em-pơ-loi-i ốp đờ mông.


Không hiểu tại sao bót này lại muốn bấm nút, thay vì bấm mũi tên. Đoán mò là hoặc do cận thị, cần cái nút tổ bố dễ thấy, hoặc do bót muốn làm le với bót nhớn...
Lúc đầu thì tôi cứ ngỡ do ăn lương theo nút. Nếu đưa filter ra thì bót muốn ẩn cái gì chẳng được. Gặp người khoái nút, cứ đưa nút ẩn/hiện 100%. Chừng lúc bót muốn ẩn/hiện 90% thì lại thêm 1 nút. Càng nhiều nút càng ăn tiền.

Bác lại cứ khịa mình mình chấp nhận dốt nên mới vào hỏi mà mấy bác khịa quá à