鼠标指针代码如何使用（Excel vba 如何设置鼠标指针样式，虽然很简单，但不一定知道）
鼠标指针形状在Excel中有多种形式，实际上在操作系统中也有不同样式，只不过，我们在使用的时候并不注意如何修改。
本节就对Excel中的鼠标指针形式选择，做一个介绍，没有实际意义，但有时候也会用到。
如上图所示，Excel给出了4种鼠标样式：
常量 | 值 | 说明 |
xlDefault | -4143 | 默认指针 |
xlIBeam | 3 | I形指针 |
xlNorthwestArrow | 1 | 西北向箭头指针 |
xlWait | 2 | 沙漏型指针 |
根据常量XlMousePointer来修改鼠标样式，如此就用到了一个属性Cursor，是Application对象下的一个属性。
代码如下：
'Application.Cursor = xlDefault '默认指针
'Application.Cursor = xlIBeam 'I形指针
'Application.Cursor = xlNorthwestArrow '西北向箭头指针
'Application.Cursor = xlWait '沙漏型指针
示例代码：
Private Sub SetCursorStyle()
Dim xobj As Object, ic As Integer
ic = Me.Shapes("List Box 3").ControlFormat.Value
Dim R As Range
Set R = Range("C2")
ic = R.Offset(ic, 0).Value
Application.Cursor = ic
End Sub对过对Cursor属性设置就把鼠标的样式改变成4种任意一种了，具体效果可试一下，很明显这要做在实际上并没有多大的意义，最多也是提示一下，当前的计算机处于什么工作状态之下，仅此而已。
引申一下，如果想要改成自己想要的样式，那就要对操作系统有一个认识了，其实实现起来也并不难。
---END---
