今天我打开一个excel文档,里面记录了关于股票买卖的历史情况,感觉应该设置一下,把股票买入行设置成一种底色,股票卖出行设置成另一种底色,怎么设置呢?通过在网上查找资料发现excel2007好像可以有现成的菜单项可以完成此设置,而我用的excel2003没有这项功能,于是考虑用VBA编程实现。

     经过多次实验,最终实现了效果,所写程序如下:Sub aa()
Dim i As Integer
For i = 1 To 300               //总行数
If Cells(i, 2).Value = "证券卖出" Then    
Rows(i).Select
With Rows(i)
.Interior.ColorIndex = 43        //颜色索引值,为excel预设56种颜色之一
End With
End If
If Cells(i, 2).Value = "证券买入" Then
Rows(i).Select
With Rows(i)
.Interior.ColorIndex = 35
End With
End If
Next i
End Sub

     最终实现效果如下: