• ベストアンサー

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

誰か教えていただけるとうれしいです エクセルのある表がアクティブになったら 検索をするようなものを作っているのですが 検索している間、マウスポインタを砂時計に したいです　 よろしくお願いします

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

  • ベストアンサー
  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.1

こんな感じでしょうか。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
質問者

お礼

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

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • マウスポインタについて

    教えてください！ マウスポインタが砂時計の形に変わったときは 何も作業をしてはいけないのですか？ 作業をするとCPUに負担をかけたりするのですか？ よろしくお願いします。

  • マウスポインタに…

    　たいして重い作業をしてはいないのにマウスポインタの横に読み込み中の砂時計のマークが消えません（点滅）。 ハードディスクを取り替えたら直りますか？

  • マウスポインタが頻繁に砂時計に

    最近新しくパソコンを買いました。 中に入っているＯＳはWinXPHomeですが、買ってそうそうおかしい部分があります。 マウスポインタが頻繁に砂時計になってしまうのです。 だからといって、長時間砂時計になっているのでなく、 一瞬、砂時計に変わったと思ったら１秒のみで、また普通のマウスポインタに 変わってしまいます。なので、別に使っていて処理が思いたい事はないのですが、 すごく気になります。 このような現象というのは、何が原因で起きているのでしょうか？

  • ポインタの待ち状態で

    マウスのポインタが待ち状態の時、 砂時計にし、かつ、砂時計の上下を反転させたいのですが、 何か方法はありますか？ 「コントロールパネル」→「マウス」→「ポインタ」→「待ち状態」をクリック すると、プレビューに砂時計が表示されるのですが、反転はしてくれません。 参照で違うマウスを選んでも同様です。 何が足りないのでしょうか。 教えてください。お願いします。

  • マウスポインターを赤色にしたい。

    マウスポインターは砂時計や黒色を選ぶことが出来ますが赤色(矢印)にする事は出来ないでしょうか。

  • ピカチュウとバットマンのマウスポインタを探しています。

    ピカチュウとバットマンのマウスポインタを探しています。 ６年位前にどこかの無料サイトからダウンロードしたのですが、今年になって自宅のパソコンがぶっ飛び、マウスポインタのアイコンが全て消えてしまいました。 バックアップを取ってあったはずなのですが、探しても見つかりません。 また、ネットで検索してもそれと同じようなものに辿り着きません。 ピカチュウは、動きました。目をぱちくりさせたりして、右手に白い矢印を持っていたかな。砂時計のときは、背中を向けて考え込んでいたと思います。 バットマンのは、黒くて、待機状態になると現われるように設定していました。マントを開いたり閉じたりしていました。 どなたかこれらのキャラクターポインタがそろうサイトをご存知の方がいらっしゃいましたら教えてください。 アニメーションじゃないと、何だか寂しいです。 よろしくお願いいたします。

  • CPU100%でマウスポインタずっと砂時計HELP!!

    タイトルの通りなのですがCPU使用率が100%でずっとマウスポインタが砂時計のままです。 状態は ・砂時計で、３０秒間隔ぐらいで普通のポインタに戻るが、すぐに砂時計になる ・タスクマネージャーを見るとずっとCPUが100% ・動作は通常よりやや遅め ・ウィルスバスター2005インターネットセキュリティがインストール済み ・Windows XP Pro ・FUJITSUのノートパソコン 　　　　　　　　　　　　　　　です。 御手上げで、ウィルスだと思ったのですが、検索しているひまがありませんでした。友人のコンピュータです。 御助言、よろしくお願いします。

  • PrintScreenでポインタが消える

    PrintScreenをするとマウスのポインタが消えます。 ドラッグなどの処理は出来ますがポインタは消えたままで、 普段のポインタ→砂時計 になると現れます。 よく分からないのですがデバイスのディスプイレイアダプタの 問題でしょうか？

  • 大きなマウスポインタを作りたい

    タイトルのとおり、大きなマウスポインタを作りたいと思います。 ■テキスト作成 WordやExcelなどのマニュアルを作っています。 画面をマウスポインタと共にキャプチャしながら取り込んでいるのですが、マニュアル化したときにマウスポインタが見にくいような気がします。 現在マウスポインタは、Windows XPで選択できる最大のものを使っていますが、もっと大きく目立つものがないかと思い、自分で作れないかと考えました。 また、Excelの選択やフィルハンドルなど独特ポインタを持つものは、小さくなってしまいます。 ツールを探しましたが見つけることができませんでした。 ご存知の方、お見えでしたら教えていただけますでしょうか？

  • ネット中にマウスポインタが点滅

    ネット中に時々あることなのですが 何も操作していないのにマウスポインタが 砂時計になったり矢印に戻ったり　チカチカと点滅します。 何か別のソフトを起動しているわけではなく、 ネットに繋いでいるだけなのですが・・・。 この点滅状態ではとても操作がしにくく、困っています。 原因や対処法があれば教えていただきたいです。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する