Xin giúp đỡ ẩn dòng tự động !!! (3 người xem)

[nguyenduong109]

Em đang cần đoạn mã để ẩn dòng tự động khi trong cột nào đó (được chỉ định) xuất hiện một ký tự chỉ định (ví dụ là 0 hay ô trống). Trong ví dụ em gửi kèm - nếu ô trong cột B ở sheep Hồ sơ X có giá trị bằng "0" hay ô trống ạ. Xin các cao thủ giúp em ạ.

 

[SA_DQ]

Bạn chạy macro này trên trang tính cần ẩn dòng:

Option Explicit
Sub AnDongTrong_0()
 Dim Rng As Range, hRg As Range
 Dim fAdd As String
 On Error Resume Next
 
 Cells.EntireRow.Hidden = False
 Set Rng = Range([A3], [B3].End(xlDown).Offset(, -1))
 Set hRg = Rng.SpecialCells(xlCellTypeBlanks)
 If Err > 0 Then Err = 0
 hRg.EntireRow.Hidden = True
 Set hRg = Rng.Find(0, , xlValues, xlWhole)
 If Not hRg Is Nothing Then
    fAdd = hRg.Address
    Do
        hRg.EntireRow.Hidden = True
        Set hRg = Rng.FindNext(hRg)
    Loop While Not hRg Is Nothing And hRg.Address <> fAdd
 End If
End Sub

 

[vanle33]

Em đang cần đoạn mã để ẩn dòng tự động khi trong cột nào đó (được chỉ định) xuất hiện một ký tự chỉ định (ví dụ là 0 hay ô trống). Trong ví dụ em gửi kèm - nếu ô trong cột B ở sheep Hồ sơ X có giá trị bằng "0" hay ô trống ạ. Xin các cao thủ giúp em ạ.

Xen bài này http://www.giaiphapexcel.com/forum/...ide-unhide-theo-điều-kiện&p=601212#post601212

 

[Quang_Hải]

Em đang cần đoạn mã để ẩn dòng tự động khi trong cột nào đó (được chỉ định) xuất hiện một ký tự chỉ định (ví dụ là 0 hay ô trống). Trong ví dụ em gửi kèm - nếu ô trong cột B ở sheep Hồ sơ X có giá trị bằng "0" hay ô trống ạ. Xin các cao thủ giúp em ạ.

Code mình viết thì gọn gàng lắm, nhưng đừng kêu hiện dòng ra nha.

Sub an_dong()
Dim cell As Range
With Range([B3], [B65536].End(3))
   For Each cell In .Offset(, -1)
      cell.EntireRow.Hidden = cell < 1
   Next
End With
End Sub

***

Sub Hien_dong()
ActiveSheet.UsedRange.EntireRow.Hidden = False
End Sub