セルの値に基づいて行の範囲を非表示にする方法

Question

私はK3から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" 

Answer 1

あなたは、単一の二重引用符内の文字列を持っていると仮定すると、あなたは、行の多くをループされています

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")