制作在Excel中以选中单元格为原点的十字线

当Excel中的数据占据整个屏幕时，在核对数据时，确定选定单元格的地址，眼睛的劳动强度非常大，有没有做了象AutoCAD软件中的十字光标呢？答案是肯定的了，用3行Vba代码就可以实现。

 

第一步 按Alt+F11调出VBA编辑器。

第二步 用鼠标单击对象选择下拉列表框选中Worksheet对象。

第三步 在代码编辑区输入下面的代码，回到Excel工作区，点击任意一个单元格看看。

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的数字改成其它数字就可以了。数字与颜色对照表见下图：