Nhờ viết dùm code ẩn dòng khi giá trị ở dòng đó(thuộc cột C)=0

[trioby1]

Tớ có 1 file đơn giá chi tiết. Giờ tớ muốn nó tự động ẩn các dòng khi giá trị của dòng đó(ở cột C=0).
Ví dụ trong file này tớ muốn ẩn các dòng : 10;16;24;33;42;50;58;68;76;84;91;100;106;114
Và tớ muốn nó tự động ẩn luôn nha.(Nếu làm 1 nút comand cũng được, muốn hiện hoặc ẩn các dòng luôn nge)
Mong sớm được hồi âm

 

[vu_tuan_manh_linh]

Code thế này thôi bạn:
Sub An_dong()
Dim i As Integer
For i = 7 To Range("C65536").End(xlUp).Row
If Cells(i, 3).Value = 0 Then
Rows(i & ":" & i).EntireRow.Hidden = True
End If
Next i
End Sub

 

[trioby1]

Rất đúng ý mình, thk bạn rất nhiều nha

 

[ndu96081631]

Code thế này thôi bạn:
Sub An_dong()
Dim i As Integer
For i = 7 To Range("C65536").End(xlUp).Row
If Cells(i, 3).Value = 0 Then
Rows(i & ":" & i).EntireRow.Hidden = True
End If
Next i
End Sub

Ai lại dùng vòng lập trong trường hợp này chứ!
Vầy có phải khỏa hơn không:

Sub An_dong()
  Sheet1.Range("C6:C10000").AutoFilter 1, "<>0", , , 0
End Sub

 

[sealand]

Nếu có dùng vòng lặp chăng nữa thì khi if không có else thì các ô đang ẩn có giá trị mới khác 0 thì nó đâu có mở ra.
Nếu dùng vòng lặp thì nên viết thế này (Tất nhiên cách của Ndu là gọn rồi):

Sub an()
Dim cl As Range
Application.ScreenUpdating = False
For Each cl In [C8:C130].Cells
cl.EntireRow.Hidden = cl = 0
Next
End Sub