Ecel 2010 十字光标设置代码.docxVIP

Excel 2010 十字光标设置代码 在打开的电子表格窗口，按 ALT+F11，输入如下代码(建议复制粘贴，不易出现手误)： Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.EntireColumn.Address = Target.Address Then Cells.Interior.ColorIndex = xlNone Exit Sub End If If Target.EntireRow.Address = Target.Address Then Cells.Interior.ColorIndex = xlNone Exit Sub End If Cells.Interior.ColorIndex = xlNone Rows(Selection.Row : Selection.Row + Selection.Rows.Count - 1).Interior.ColorIndex = 4 Columns(Selection.Column).Resize(, Selection.Columns.Count).Interior.ColorIndex = 4 End Sub 自己可以改 ColorIndex，直到出现满意的颜色。或者复制下面代码： Private Sub Works