OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

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

  • すぐに回答を!
  • 質問No.195305
  • 閲覧数3446
  • ありがとう数1
  • 気になる数1
  • 回答数1
  • コメント数0

お礼率 42% (27/64)

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

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

よろしくお願いします
通報する
  • 回答数1
  • 気になる1
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

こんな感じでしょうか。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
お礼コメント
jk_beck

お礼率 42% (27/64)

できました
ありがとうございました!
投稿日時 - 2002-01-09 18:36:18
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ