excel(VBA)でのマウスポインタ変更

質問

誰か教えていただけるとうれしいです

エクセルのある表がアクティブになったら
検索をするようなものを作っているのですが
検索している間、マウスポインタを砂時計に
したいです　

よろしくお願いします

回答No.1

nishi6 · ベストアンサー

こんな感じでしょうか。Excel97で確認しました。

Sub waitCursor()
　　'砂時計の形状
　　Application.Cursor = xlWait

　　'何かの処理
　　Dim t1 As Integer 'カウンタ1
　　Dim t2 As Integer 'カウンタ2
　　For t1 = 1 To 10000
　　　　For t2 = 1 To 1000
　　　　Next
　　Next

　　'カーソルの形状を元に戻す
　　Application.Cursor = xlNormal

End Sub

お礼

できました
ありがとうございました！