我是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
中。我在这里想念什么?