VBA检测Excel工作表区域中是否有隐藏行或列

Excel工作表中，有时为了方便操作会临时隐藏某些行或者列，到再次使用时需要检测某选择区域是否包含有隐藏的行或列，这里给出一个VBA函数RangeHasHiddenRowsOrCols可以完成这个功能，具体源代码如下：

'================================
' 检测区域中是否有隐藏行或列
' 如存在则返回True
' 
'================================
Private Function RangeHasHiddenRowsOrCols(rng) As Boolean
    Dim r As Range, c As Range
    RangeHasHiddenRowsorCols = False
    For Each r In rng.Rows
        If r.EntireRow.Hidden Then
            RangeHasHiddenRowsorCols = True
            Exit Function
        End If
    Next
    For Each c In rng.Columns
        If c.EntireColumn.Hidden Then
            RangeHasHiddenRowsorCols = True
            Exit Function
        End If
    Next
End Function