excel实现鼠用不同颜色十字定位表格.docxVIP

excel实现鼠标用不同颜色定位表格参考文档：/article/375c8e198cf51525f3a22966.html实现鼠标十字定位目标，效果见下图：由于长期需要用excel进行数据录入，当excel数据一多，经常由于行和列的问题会看错。为了避免这种情况。就想到用用下面的办法解决这个问题1.实现的效果就是鼠标点到那，都有一个不同的颜色区分出，鼠标所在位置的行和列2.我用的版本是office 2010，打开excel，新建如下图。3.在sheet1下标签处，点击鼠标右键，出现如下图4.选择查看代码5.看到如下界面，插入如下代码Code1 (office2010版本可用，office2007未测试)Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)??On Error Resume Next??? Cells.FormatConditions.Delete??? iColor =39???With Target.EntireRow.FormatConditions??????? .Delete??????? .Add xlExpression, , TRUE??????? .Item(1).Interior.ColorIndex = iColor??? End With??? With Target.EntireColumn.FormatConditions??????? .Delete??????? .Add xlExpression, , TRUE??????? .Item(1).Interior.ColorIndex = iColor??? End WithEnd Sub注：iColor = 34（绿色）?38（粉色）6(黄色) iColor =39??紫色Code2 (office2010版本可用，office2007未测试) 该代码可实现横竖是两种不同颜色,但是原表格底色变成白色Private Sub Worksheet_SelectionChange(ByVal Target As Range)Rows.Interior.ColorIndex = 0Rows(Target.Row).Interior.ColorIndex = 39Columns(Target.Column).Interior.ColorIndex = 42End SubCode3 (office2010版本不可用，office2007未测试)Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count 1 Then Exit Sub If Target.Column = 9 And Target.Column = 48 Then With Target.Interior If .ColorIndex = 3 Then .ColorIndex = xlNone Else .ColorIndex = 3 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End If End With End If If Target.Column = 50 And Target.Column = 67 Then With Target.Interior If .ColorIndex = 5 Then .ColorIndex = xlNone Else .ColorIndex = 5 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End If End With End IfEnd SubCode4 (office2010版本可用，office2007未测试)Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)On Error Resume NextCells.FormatConditions.DeleteiColor = Int(50 * Rnd()