No.1
在VBA編程中，滑鼠形狀也是可以改變，通常情況下，很少主動設置滑鼠形狀。
如果熟悉Windows系統設置，那麼對滑鼠設置也不陌生。
VBA並不是可視化操作，本節就講一下，如何在編程中動態改變滑鼠形狀。
滑鼠形狀就是個參數設置，這個參數在VBA里以常量形式來固定下來，如何讓滑鼠符合我們主定義的方式來顯示，只需要將常量進行改變一下就可以實現。
實現這個過程的屬性為Cursor，是Application對象的一個屬性，應用常量XlMousePointer。
XlMousePointer常量有如下四種：
- Application.Cursor=XlDefault
- Application.Cursor=XlBeam
- Application.Cursor=XlNorthwestArrow
- Application.Cursor=XlWait
| 常量 | 說明 |
| xlDefault | 默認指針 |
| xlIBeam | I 形指針 |
| xlNorthwestArrow | 西北向箭頭指針 |
| xlWait | 沙漏型指針 |
上圖為例，對滑鼠形狀設置，當選擇紅色區域的時候，滑鼠變為I形，當選擇其它區域的時候滑鼠變為默認形狀。
應用形式還是十分簡單的。
No.2
代碼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range, r As Range, Cy As Boolean
Cy = False
Set cell = Range(ActiveSheet.Cells(9, 2), ActiveSheet.Cells(13, 10))
For Each r In cell
If Target.Address = r.Address Then
Cy = True
Exit For
End If
Next r
If Cy Then
Application.Cursor = xlIBeam
cell.Value = ""
r.Value = "指針變為I形"
Else
Application.Cursor = xlDefault
cell.Value = ""
cell.Item(1).Value = "指針恢復默認"
End If
End Sub上面代碼要放到Worksheet_SelectionChange事件里，執行以後觀看滑鼠形狀，在I形和默認形狀之間切換。
滑鼠應用相對較少，甚至在某些時候可以用也可以不用。
原創文章，作者：投稿專員，如若轉載，請註明出處：https://www.506064.com/zh-tw/n/224276.html
微信掃一掃 
支付寶掃一掃 