VBA : 범위에서 숨겨진 행을 무시하는 방법?

Question

하이라이트되고 표시되는 (숨겨지지 않은) 모든 행 수를 계산하려고합니다. 내 수식이 작동하지만 숨겨진 행이 여전히 숨겨져 있습니다. 강조 표시되고 보이는 행만 어떻게 계산합니까?

'This function will count how many cells in a given range for a given color and are visible 

Function COUNTCELLCOLORSIF(CellRange As Range) As Long 

Dim rngCell 

Application.Volatile 

For Each rngCell In CellRange 
    If rngCell.Interior.ColorIndex = "36" and rngCell.visible Then 
     COUNTCELLCOLORSIF = COUNTCELLCOLORSIF + 1 
    End If 
Next rngCell 

End Function 

Answer 1

를 사용하여이 같은 시도 specialcells(xlcelltypevisible)

Function COUNTCELLCOLORSIF(CellRange As Range) As Long 

Dim rngCell 

Application.Volatile 

For Each rngCell In CellRange.specialcells(xlcelltypevisible) 
    If rngCell.Interior.ColorIndex = "36" Then 
     COUNTCELLCOLORSIF = COUNTCELLCOLORSIF + 1 
    End If 
Next rngCell 

End Function 

Answer 2

:

Function COUNTCELLCOLORSIF(CellRange As Range) As Long 
Dim rngCell, visibleCells 

Application.Volatile 
visibleCells = CellRange.SpecialCells(xlCellTypeVisible) 

For Each rngCell In visibleCells 
    If rngCell.Interior.ColorIndex = "36" and rngCell.visible Then 
     COUNTCELLCOLORSIF = COUNTCELLCOLORSIF + 1 
    End If 
Next rngCell 

End Function