[已解决]VBA 根据条件，标记颜色

H若君E

如果E2<0,且F2包含“失效“，则C2标记为红色，以下代码运行时，提示是子程序或函数未定义，应该如何修改呢？
（暂定有146行）

Sub hightlight()
For r = 1 To 146
If Cells(5, r) < 0 And InStr(1, Cells(6, r).Value, "失效", vbTextCompare) = 0 Then cell(3, r).Interior.Color = vbRed
Next
End Sub

最佳答案

月排行榜 / 总排行榜

qh8600

2014-4-8 15:06

1. Sub hightlight()
   
2. For r = 1 To 146
   
3. If Cells(r, 5) < 0 And InStr(1, Cells(r, 6).Value, "失效", vbTextCompare) > 0 Then Cells(r, 3).Interior.Color = vbRed
   
4. Next
   
5. End Sub
   

复制代码

跳转到最佳答案楼层

qh8600

1. Sub hightlight()
   
2. For r = 1 To 146
   
3. If Cells(r, 5) < 0 And InStr(1, Cells(r, 6).Value, "失效", vbTextCompare) > 0 Then Cells(r, 3).Interior.Color = vbRed
   
4. Next
   
5. End Sub
   

复制代码

pengyx

看看模块的最上面是不是有“Option Explicit”这样一个东东，有的话就删除他，可能就行了