VBA 在某特定条件填上颜色求助

wooikeat9128

已上传附件,请帮忙,先谢谢 !

13472463805

Sub 填充颜色()
Dim rng As Range
For Each rng In Range("b2", Cells(Rows.Count, 2).End(3))
    If rng(1, 0).Font.Color <> 255 And rng > 300 Then rng.Interior.Color = 5287936
Next
End Sub

hfwufanhf2006

1、不建议用颜色，深红、浅红、正红、洋红，你怎么分得清？    即使别人按照你标定的红色写对了代码，以后你把红色稍微变化一下就又不行了；
2、条件格式就能很方便搞定你的问题，条件格式也不建议用颜色来识别，颜色这东西，每个人的感觉都不一样；
     既然你用a列来标识，那不如用c列的文字来标识，文字在条件格式里是很容易识别的，可参考下面两个截图；
     虽然是用c列的文字，其实是指c列输入任何内容，b列都不会显示颜色，条件格式的定义是：
        =AND(B2>300,C2="")   
     是指c列必须是 空 ，并且b列>300才会显示绿色；
3、你这类问题我认为没必要上升到vba的程度，因为vba的定制化很强，你要求稍微变化一点vba就不能用了。相反，excel自带的某些功能其实能力很强，比如筛选（包括高级筛选）、数据透视、条件格式、数据有效性等等，只要能用到，我建议还是尽量用它们，比一般人随随便写写的vba代码强很多；

wooikeat9128

13472463805 发表于 2020-6-24 10:16
Sub 填充颜色()
Dim rng As Range
For Each rng In Range("b2", Cells(Rows.Count, 2).End(3))

完成可以,感谢老师,好人一路平安

wooikeat9128

hfwufanhf2006 发表于 2020-6-24 10:46
1、不建议用颜色，深红、浅红、正红、洋红，你怎么分得清？    即使别人按照你标定的红色写对了代码，以后 ...

老师您的不符合
B 列数字必须大于300 而且 A 列遇到红色字体即使 B列大于300 不计算

金樽空对月

详见附件

1. Sub ifill()
   
2. Dim x%
   
3. For x = 2 To Range("a20000").End(3).Row
   
4.   If Cells(x, 2) > 300 And Cells(x, 1).Font.ColorIndex <> 3 Then
   
5.      Cells(x, 2).Interior.ColorIndex = 43
   
6.   End If
   
7. Next
   
8. End Sub
   

复制代码