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

个人资料

微博

正文字体大小：大中小

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

(2019-04-16 09:21:51)

标签：

分类： VBA专区

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

01.'================================

02.

'
检测区域中是否有隐藏行或列

03.

'
如存在则返回True

04.'

05.'================================

06.Private Function RangeHasHiddenRowsOrCols(rng) As Boolean

07. Dim r As Range, c As Range

08.

RangeHasHiddenRowsorCols
=

False

09. For Each r In rng.Rows

10. If r.EntireRow.Hidden Then

11.

RangeHasHiddenRowsorCols
=

True

12. Exit Function

13. End If

14. Next

15. For Each c In rng.Columns

16. If c.EntireColumn.Hidden Then

17.

RangeHasHiddenRowsorCols
=

True

18. Exit Function

19. End If

20. Next

21.End Function

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report