请教一格VBA的关于颜色判断的问题

maohangyin

EXCEL第二行中某一格是红色的，我需要判断并记录它的列号
Public Sub test()
Dim i As Integer, m As Integer
m = 0
Dim mySheet As Worksheet
Set mySheet = Worksheets("sheet1")
For i = 1 To 100　　　　‘从第一列数到１００列
If Range("mySheet.Cells(2, i)").Interior.ColorIndex = vbRed　　　’判断
是否为红色
j = i　　　　　‘记录列号
End If
Next i
End Sub
这个程序跑不了，说“应用程序定义或对象定义错误”我觉得是If Range("mySheet.Cells(2, i)").Interior.Color
Index = vbRed这句可能写的有问题，请高手帮我指正下。。。谢谢拉

pureshadow

Range("mySheet.Cells(2, i)").Interior.ColorIndex = vbRed改成
sheets("sheet1").cells(2,i).interior.colorindex = 3