在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

     最終實現效果如下：