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

分类:代码, 博客 标签:,

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

'================================
' 检测区域中是否有隐藏行或列
' 如存在则返回True
' http://www.cnhup.com
'================================
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


分类:代码, 博客 标签:,

发表评论

You must be logged in to post a comment.