ẨN DÒNG TỰ ĐỘNG KHI KHÔNG CÓ DỮ LIỆU

Chia sẻ bởi:hands

★★★★★

‹ ẩnđòng theo điều kiện Code ẩn dòng theo điều kiện bị... ›

Quảng cáo

Chào anh chị GPE
Nhờ anh chị hỗ trợ code tự động ẩn dòng (không dùng nút lệnh) như file đính kèm.
Điều kiện:
Tính từ dòng "A18:A2017" cho Sheet1, Sheet2,, Sheet3 ,khi cột "A" không có dữ liệu thì sẽ ẩn đi dòng đó
Em cám ơn

Bạn thử:
Sub abc()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Activate
For i = 18 To 2017
If Range("A" & i) = 0 Then Rows(i).EntireRow.Hidden = True
Next
Next
End Sub

Dạ em cám ơn anh, anh cho em hỏi thêm trong trường hợp mình muốn chỉ định "Sheet" sẽ chạy code ẩn dòng thì mình thêm điều kiện như thế nào anh.
Em tìm ra code thỏa mãn như ý muốn, khi gán vào sheet muốn ẩn nó sẽ chạy tự động, có điều do chạy ẩn tới dòng A2017 nên nó hơi lag. hihi
Private Sub Worksheet_Activate()
Dim i As Long
Application.ScreenUpdating = False
For i = 18 To 2017
If Cells(i, 1).Value = 0 And Cells(i, 1).Value = 0 Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
em cám ơn

Filter dữ liệu khác rổng là được rồi, sao phải For Next

Range("A17:A5000").AutoFilter 1, "<>", VisibleDropDown:=False

Dạ code chạy nhẹ đi rất nhiều, thầy cho em hỏi thêm nếu khi chạy ẩn khi em thêm dữ liệu vào thì nó tự động hiện dòng đó ra, hiện tại code chạy chỉ 1 chiều ẩn. Vì cột A em có liên kết nhập liệu ở Sheet khác
Em cám ơn

Nếu liên kết với sheets khác thì lấy code của bác NDU thêm vào sự kiện Worksheet_Activate là được rồi
Private Sub Worksheet_Activate()
Range("A17:A5000").AutoFilter 1, "<>", VisibleDropDown:=False
End Sub

www.giaiphapexcel.com/diendan/threads/%E1%BA%A8n-d%C3%92ng-t%E1%BB%B0-%C4%90%E1%BB%98ng-khi-kh%C3%94ng-c%C3%93-d%E1%BB%AE-li%E1%BB%86u.134843/#post-857182