具体要求是这样的,A列=B列+C列。已经在A列输入公式。现在想实现这个功能:当A的数值<20,单元格显示为绿色,大于40显示为红色,20-40显示为黄色。这个具体怎么操作,谢谢!
代码如下:
Sub ts()
Dim rg As Range
Dim r As Long
r = Columns("A:C").SpecialCells(xlLastCell).Row
For Each rg In Range("A1:C" & r)
If rg < Range("E" & rg.Row) Then
rg.Interior.Color = <a href="https://www.baidu.com/s?wd=RGB&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1dBPAc3m163uAF-P10sujmk0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6K1TL0qnfK1TL0z5HD0IgF_5y9YIZ0lQzqlpA-bmyt8mh7GuZR8mvqVQL7dugPYpyq8Q1Rdn1DYrH6zPHfznWRvrHbLn6" target="_blank" class="baidu-highlight">RGB</a>(255, 0, 0)
Else
rg.Interior.Color = <a href="https://www.baidu.com/s?wd=RGB&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1dBPAc3m163uAF-P10sujmk0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6K1TL0qnfK1TL0z5HD0IgF_5y9YIZ0lQzqlpA-bmyt8mh7GuZR8mvqVQL7dugPYpyq8Q1Rdn1DYrH6zPHfznWRvrHbLn6" target="_blank" class="baidu-highlight">RGB</a>(146, 208, 80)
End If
Next
End Sub