[已解决]关于现实颜色自动填充的问题

xzwdk

想要实现在各科的名次里面出现No.1的单元格变为红色，出现No.2的单元格变为蓝色，出现No.3的单元格变为绿色。
请问VBA代码如何写？谢谢。

最佳答案

月排行榜 / 总排行榜

美斯特邦威

2013-9-26 17:10

1. Sub test1()
   
2. For j = 4 To 12 Step 2
   
3. For i = 4 To UsedRange.Rows.Count
   
4. Select Case Cells(i, j)
   
5. Case "No.1"
   
6. Cells(i, j).Interior.Color = RGB(255, 0, 0)
   
7. Case "No.2"
   
8. Cells(i, j).Interior.Color = RGB(0, 255, 0)
   
9. Case "No.3"
   
10. Cells(i, j).Interior.Color = RGB(0, 0, 255)
    
11. End Select
    
12. Next i, j
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

我心飞翔410

条件格式

xzwdk

我心飞翔410 发表于 2013-9-26 16:36
条件格式

我想用VBA实现。谢谢。

ppp710715

1. Sub test1()
   
2. Dim rg As Range
   
3. Dim cell
   
4.   Set rg = Sheets(1).[a1].CurrentRegion
   
5.   For Each cell In rg
   
6.   If cell.Value = "No.1" Then cell.Interior.ColorIndex = 3
   
7.   If cell.Value = "No.2" Then cell.Interior.ColorIndex = 5
   
8.   If cell.Value = "No.3" Then cell.Interior.ColorIndex = 10
   
9.   Next
   
10.   End Sub

复制代码

成绩.rar (8.67 KB, 下载次数: 8)

2013-9-26 17:02 上传

点击文件名下载附件

美斯特邦威

1. Sub test1()
   
2. For j = 4 To 12 Step 2
   
3. For i = 4 To UsedRange.Rows.Count
   
4. Select Case Cells(i, j)
   
5. Case "No.1"
   
6. Cells(i, j).Interior.Color = RGB(255, 0, 0)
   
7. Case "No.2"
   
8. Cells(i, j).Interior.Color = RGB(0, 255, 0)
   
9. Case "No.3"
   
10. Cells(i, j).Interior.Color = RGB(0, 0, 255)
    
11. End Select
    
12. Next i, j
    
13. End Sub
    

复制代码

xzwdk

ppp710715 发表于 2013-9-26 17:02

谢谢老师。目前的问题是，程序执行过一次以后，结果是正确的；如果刚才显示过颜色的单元格里面的名次发生变化后，上一次显示的颜色并未消失，应该如何解决？

xzwdk

美斯特邦威 发表于 2013-9-26 17:10

谢谢老师的支持。

美斯特邦威

xzwdk 发表于 2013-9-26 17:33
谢谢老师的支持。

代码开头加一个颜色初始清空就行了