在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
Rows(i).Select
With Rows(i)
.Interior.ColorIndex = 35
End With
End If
Next i
End Sub

     最终实现效果如下：