如何结合Set与If统计可见红色单元格并实现用户窗体逻辑？

背景规则 #

• 值为0的行会被隐藏
• 超出最小值/最大值范围的单元格会显示为红色

初始代码问题 #

最初编写的VBA代码会统计到隐藏的红色单元格，不符合预期：

Set mr = Sheets("COA").Range("i11:i34")
For Each cell In mr
    If cell.DisplayFormat.Interior.Color = vbRed Then
        MsgBox

当前需求 #

需要结合两个条件实现逻辑：

• 条件A：活动单元格是可见且红色时，显示并调整用户窗体
• 条件B：活动单元格是可见且非红色时，卸载用户窗体

已尝试用SpecialCells(xlCellTypeVisible)筛选可见单元格，但不知道如何和颜色判断结合，现有代码如下：

Set Rng = Range("i11:i34").SpecialCells(xlCellTypeVisible)
If ActiveCell.DisplayFormat.Interior.Color = vbRed Then
    MsgBox "bla bla bla", vbCritical + vbOKOnly, ""
    
    'Show Excel and resize the UserForm2
    Application.Visible = True
    Me.Height = 405
    Me.Width = 730.5
End If
    
If ActiveCell.DisplayFormat.Interior.Color = 0 Then
    MsgBox "bla bla bla", vbCritical + vbOKOnly, ""
End If

解决代码 #

先判断活动单元格是否在可见范围内，再结合颜色判断逻辑：

Dim visibleRng As Range
Set visibleRng = Sheets("COA").Range("i11:i34").SpecialCells(xlCellTypeVisible)

' 检查活动单元格是否在目标可见范围内
If Not Intersect(ActiveCell, visibleRng) Is Nothing Then
    ' 条件A：可见且红色
    If ActiveCell.DisplayFormat.Interior.Color = vbRed Then
        MsgBox "单元格超出范围", vbCritical + vbOKOnly, "提示"
        Application.Visible = True
        Me.Height = 405
        Me.Width = 730.5
    ' 条件B：可见且非红色
    ElseIf ActiveCell.DisplayFormat.Interior.Color <> vbRed Then
        MsgBox "单元格符合要求", vbCritical + vbOKOnly, "提示"
        Unload Me ' 卸载用户窗体
    End If
Else
    ' 活动单元格所在行已隐藏时的提示
    MsgBox "当前单元格所在行已隐藏", vbInformation + vbOKOnly, "提示"
End If

关键说明 #

• 用Intersect判断活动单元格是否属于筛选后的可见范围，避免处理隐藏行的单元格
• 若单元格是通过条件格式设置的红色，必须用DisplayFormat.Interior.Color获取显示颜色，不能直接用Interior.Color
• 非红色判断建议用<> vbRed，而非判断颜色等于0，因为默认单元格背景色通常不是0（比如白色对应vbWhite）

内容的提问来源于stack exchange，提问作者Elvira Amanda