在Excel2003中根据单元格条件设置整行格式

      今天我打开一个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

.Interior.ColorIndex = 35

Next i

End Sub