隐藏名称范围内的5行中的3行？

Question

I have a name range that has 5 rows and 6 columns. I want to hide 3 rows out of the 5 rows. I'm only able to get one of the rows. How would I specify the other rows i need to be hidden?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rowCounter As Long
Dim theTargetRow, initialStartRow As String
initialStartRow = "113"
theTargetRow = initialStartRow + Target.Value
If Target.Value = "---" Then
    Range("myNameRange").Rows.Hidden = True
Else
    'Range("myNameRange").Rows.Hidden = True
    For rowCounter = theTargetRow To initialStartRow + 1 Step -1
        Rows(rowCounter).EntireRow.Hidden = False
    Next           
End If
End Sub

EDIT: I got it work by removing my namerange from the rows i needed to be hidden.

Answer 1

With you providing limited information, I can only give limited information back to you (more specifically, the below code is searching every single cell in your range because I am not sure what column N/A is located in).

Option Explicit

Sub Test()

    Dim Target As Range, Cell As Range
    Set Target = Range("myNameRange")

    For Each Cell In Target
        If Cell.Value = "N/A" Then
            Cell.EntireRow.Hidden = True
        Else
            Cell.EntireRow.Hidden = False
        End If
    Next Cell

End Sub

Answer 2

要隐藏命名范围的第i行...

  Sheets("Sheet1").Range("myNameRange").Rows(i).EntireRow.Hidden = True 

Answer 3

This will hide the first three rows in a named range, although by the solution you found that worked for you it seems you want to hide just rows - not necessarily within a named range.

Public Sub Test()

    Dim rCell As Range
    Dim i As Long

    For Each rCell In Range("myNameRange").Rows
        If i < 3 Then
            rCell.EntireRow.Hidden = True
        Else
            Exit For
        End If
        i = i + 1
    Next rCell

End Sub