Làm sao để excel "tự động" ẩn 1 hàng theo đk? (2 người xem)

[SA_DQ]

Cụ thể là bạn dùng macro sau:

Nhưng mà nếu gặp trường hợp các ô nhân công máy nằm rãi rác ở các dòng, vì sheet phân tích vật tư rất dài . Nên nếu dùng phương pháp hide từng dòng thì rất rất mất thời gian. Mình có đính kèm file mẫu nhờ giúp đỡ giùm.

Option Explicit
Sub HideRows()
 Dim lRow As Long, Zz As Long
 Dim hRng As Range
 Sheet1.Select:            lRow = [d65500].End(xlUp).Row
 For Zz = 4 To lRow
   If UCase$(Left(Cells(Zz, "D"), 1)) = "C" _
      And UCase$(Right(Cells(Zz, "D"), 2)) = "NG" Then
      If hRng Is Nothing Then
         Set hRng = Cells(Zz, "D")
      Else
         Set hRng = Union(hRng, Cells(Zz, "D"))
   End If:        End If
 Next Zz
 hRng.EntireRow.Hidden = True
End Sub

Sub UnHideRows()
Cells.Select: Selection.EntireRow.Hidden = False
End Sub

 

[Xuan Minh]

Cám ơn bạn HYen17.
Mình đã chép code của bạn về làm nhưng Excel báo lỗi "Object variable or With block variable not set" là sao vậy?
Rất mong bạn hướng dẫn dùng mình cụ thể hơn.

 

[Po_Pikachu]

Mình thấy File chạy tốt mà đâu có lỗi gì đâu! Bạn xem lại xem! Thân.

 

[chantroixa_7_9]

- Muốn chỉ rõ thì đưa file vd lên đi nà .

cám ơn bạn rất nhieu

 

[trung07x3hau]

xin các pro giúp với. Mình muốn lập tự động ẩn hiện các mục Tổ hợp cơ bản ứng với kiểu tải trọng. Ví dụ chọn kiểu tải trọng 1 TH thì chỉ hiện tổ hợp cơ bản 1, 2TH thì hiện tổ hợp cơ bản 1 và tổ hợp cơ bản 2....