2016-09-29 139 views
1

我試圖自動隱藏在K3中自動隱藏K17到K17的行。我發現這個代碼,我一直在試圖篡改工作,但它似乎總是隱藏列中的每個空單元格,而不是特定的範圍。如何隱藏基於單元格值的行的範圍

Private Sub Worksheet_Calculate() 
Dim LastRow As Long, c As Range 
Application.EnableEvents = False 
LastRow = Cells(Cells.Rows.Count, ""K"").End(xlUp).Row 
On Error Resume Next 
For Each c In Range(""K3:K17"" & LastRow) 
If c.Value = 0 Then 
    c.EntireRow.Hidden = True 
ElseIf c.Value > 0 Then 
    c.EntireRow.Hidden = False 
End If 
Next 
On Error GoTo 0 
Application.EnableEvents = True 
End Sub" 
+0

這甚至編譯雙雙引號? – arcadeprecinct

回答

0

假設你有一個雙引號中的字符串,你遍歷很多線路:

For Each c In Range("K3:K17" & LastRow) 

LastRow是最後一個非空行(列K),所以如果它17例如,你在做什麼是

For Each c In Range("K3:K1717") 

解決方法是顯而易見的,我希望但在這裏它是無論如何

For Each c In Range("K3:K17") 
相關問題