当Excel中的数据占据整个屏幕时，在核对数据时，确定选定单元格的地址，眼睛的劳动强度非常大，有没有做了象AutoCAD软件中的十字光标呢？答案是肯定的了，用3行Vba代码就可以实现。
第一步 按Alt+F11调出VBA编辑器。
第二步 用鼠标单击对象选择下拉列表框选中Worksheet对象。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'用工作簿的SheetSelectionChange事件，就不用在工作表中的SelectionChange事件中写代码了。
' Sh 选中的表
' Target 选中的单元格
Cells.Interior.Color = xlNone '清除所有单元格的背景色
Target.EntireColumn.Interior.ColorIndex =15 '选中单元格的列，填充背景色
Target.EntireRow.Interior.ColorIndex =15 '选中单元格的列，充背景色
'EntireRow 单元格所在的行
'EntireColumn 单元格所在的列
End Sub
如果想改变十字线的颜色，将15的数字改成其它数字就可以了。数字与颜色对照表见下图：
