在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