Excel 2010 十字光标设置代码

Excel 2010 十字光标设置代码

在打开的电子表格窗口，按ALT+F11，输入如下代码(建议复制粘贴，不易出现手误)：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If s = s Then

ndex = xlNone

Exit Sub

End If

If s = s Then

ndex = xlNone

Exit Sub

End If

ndex = xlNone

Rows( & ":" & + - 1).ndex = 4

Columns().Resize(, ).ndex = 4

End Sub

自己可以改ColorIndex，直到出现满意的颜色。

或者复制下面代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ndex = xlNone

Rows(). = RGB(255, 0, 0)

Columns(). = RGB(0, 255, 0)

End Sub

如果不喜欢代码中的颜色，可以自己修改RGB()函数中的颜色值，范围在0~255

以下是截图：