keeponlylove
Thành viên mới

- Tham gia
- 23/4/07
- Bài viết
- 42
- Được thích
- 8
Em có 1 file excel, trong đó có 1 bảng tính mà tuỳ vào giá trị mà có những hàng có 1 ô bằng 0.Có cách nào để excel "tự động" ẩn các hàng đó đi ko?Thank.
Nếu bạn không rành VBA thì dùng cách của SoiBien sẽ tuận tiện và nhanh hơn.keeponlylove đã viết:Mong các anh,các bác chỉ bảo rõ hơn, cụ tỷ hơn được ko?Em dốt VBA lắm (chính xác là ko bít gì).Thank.
keeponlylove đã viết:Mong các anh,các bác chỉ bảo rõ hơn, cụ tỷ hơn được ko?Em dốt VBA lắm (chính xác là ko bít gì).Thank.
mong chỉ giúp!
Làm sao tự động ẩn hàng nhân công và máy thi công trong bảng phân tích vật tư
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Rows("12:12").Hidden = True
End Sub
Cám ơn bạn rất nhiều!
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 trên 15 trang. Nên nếu dùng phương pháp hide từng dòng một thì rất thủ công và rất mất thời gian. Mình có đính kèm file mẫu nhờ các cao thủ giúp đỡ giùm.
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
- Muốn chỉ rõ thì đưa file vd lên đi nà .