有没有一种方法可以验证连续的所有单元格都符合相同的条件?

时间:2020-02-04 20:01:45

标签: excel vba

我是vba的新手,正在尝试自动化一些数据分析。在原始数据中,我格式化了单元格以突出显示两个用户输入条件之间的单元格。现在,我需要找到突出显示该行中所有单元格的行。我尝试了以下方法。请原谅我在手机上格式化。

Sub Hold()

    Dim cell as range
    Dim rowdata as range
    Dim s as long
    Dim rc as long
    Dim n as Boolean

    rc = range("C10", range("C10").end(xldown)).rows.count

    For s = 0 to rc
        Set rowdata = range("C10", range("C10").end(xltoright)).offset(s , 0)
            For each cell in RowData
                If cell.interior.color <> 11389944 Then
                    n = false 
                    Exit for
                End if 
            Next cell

        If n = false then 
            Rowdata.font.color = rgbred
        Else 
            Rowdata.font.color = rgbgreen
        End if
    Next s
End Sub

我手动搜索以找到一行,其中所有单元格都在该行中突出显示。在调试时,我期望字体会变为绿色。它没有。我注意到第二个if语句具有n = false,尽管我希望它是正确的,因为在该行cell.interior.color = 11389944中。我在这里想念什么?

0 个答案:

没有答案