excel vba，选中行和列变色，光标离开还原
打开EXCEL 进入VBA （可用ALT+F11进入VBA）， 双击对应的工作表 将以下代码复制进去：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , \"TRUE\"
.Item(1).Interior.ColorIndex = 8
End With
With Target.EntireColumn.FormatConditions
.Delete
.Add xlExpression, , \"TRUE\"
.Item(1).Interior.ColorIndex = 8
End With
End Sub
须保存为 Excel 97-2003工作簿（*.xls），所有加宏的工作簿都须保存为此97-2003工作簿（*.xls），2007以后的Excel只能保存为Excel 启用宏的工作簿（*.xlsm）
如何设置自动打开就为第一页
打开[工具]->[宏]->[VB编辑器]
双击左侧ThisWorkbook对象，在右侧空白处输入下面代码:
Private Sub Workbook_Open()
Sheets(\"Sheet1\").Select
End Sub
注： 如果第一页工作表名称为“首页”，则上面第二行代码Sheets(\"Sheet1\").Select换成Sheets(\"首页\").Select
