vba - 如何确定 Excel 范围是否隐藏？

Question

在我的代码中，我包含一个 bool 变量，我想在其中分配一个范围的隐藏属性的值。即，如果范围是隐藏的，则变量的值应为 true，反之亦然。

运行代码时出现“1004”运行时错误 - 无法获取 Range 类的 Hidden 属性。由此我假设在这种情况下 Hidden 属性是只写的(如果我错了，请纠正我)。

有没有办法确定(在我的代码中，而不是通过观察)范围/单元格是否隐藏？

我有一个名为“minas”的类，我正在尝试使用这个子类创建一个基于某些标准的 minas 集合。

Public mines As Collection
Sub existing_months()
    Set mines = New Collection
    Dim min As minas
    Dim str As String
    Dim x As Range
    Dim y As Boolean
    For i = 1 To 12
        Set min = New minas
        Set x = Range("A1:A500").Find(i, LookIn:=xlValues, LookAt:=xlWhole)
        If x Is Nothing Then GoTo next_iteration:
        y = x.Hidden 'does not get the property
        Call min.initialize(x, y)
        str = min.minas & "/" & min.etos
        mines.Add min, str
        Debug.Print min.ref_range.Address & " " & min.end_cell
next_iteration:
    Next
    Set min = Nothing
End Sub

Answer 1

如果单元格位于隐藏的行或隐藏的列上，您可以说它是隐藏的。
然后，如果其中的所有单元格都隐藏了 范围范围被隐藏:

Public Function IsHidden(rIn As Range) As Boolean
    Dim r As Range
    IsHidden = True
    For Each r In rIn
        If Not r.EntireRow.Hidden Then
            If Not r.EntireColumn.Hidden Then
                IsHidden = False
                Exit Function
            End If
        End If
    Next r
End Function