Ecel2010十字光标设置代码.pdfVIP

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 Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone Rows(Target.Row).Interior.Color = RGB(255, 0, 0) Columns(Target.Column).Interior.Color = RGB(0, 255, 0) End Sub 如果不喜欢代码中的颜色，可以自己修改 RGB()函数中的颜色值，范围在 0~255 以下是截图：