在EXCEl中，用VBA实现单元格颜色改变

Question

具体要求是这样的，A列=B列+C列。已经在A列输入公式。现在想实现这个功能：当A的数值<20，单元格显示为绿色，大于40显示为红色，20-40显示为黄色。这个具体怎么操作，谢谢！

Answer 1

代码如下：

   

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

   

Answer 2

这儿就能搞定了  不需要VBA

本回答被提问者采纳

Answer 3

dim i%,r%
Whit Sheets["表名称"]
r=.Range["A65536"].End(xlup).Row
For i=1 to r
If .Cells(i,1) .Value<20 Then
.Cells(i,1).Font.ColorIndex=4
Eed If
If .Cells(i,1) .Value>19 And .Cells(i,1) .Value<41 Then
.Cells(i,1).Font.ColorIndex=6
End If
If .Cells(i,1) .Value>40 Then
.Cells(i,1).Font.ColorIndex=3
End If
Next i
End With

Answer 4

条件格式就能搞定了，舍易求难啊