マクロ実行で砂時計を非表示にする方法

質問

excel2010

下記マクロ実行すると、砂時計表示状態になります。
何も実行しているわけではないので、砂時計表示したくありません。
砂時計を表示させない様にする方法を教えていただきたく。

sub test()
　Sheets("Sheet1").Select
MsgBox "エラーは、ありません。"
end sub

Sheets("Sheet1").Select単独、あるいは、 MsgBox "エラーは、ありません。"単独だと
砂時計状態にならないのですが、上記のセットだと砂時計状態になってしまいます。

回答No.2

imogasi · ベストアンサー

参考までに
Sub test01()
Application.Cursor = xlDefault
End Sub
を標準モジュールに入れて実行すると砂時計は消えますか。
ーー
砂時計状態でも、私の場合は上記のコードを標準モジュールVBE画面に入力ができて、メニューで実行もできて、時計は消えました。
前段階として、Application.Cursor = xlWaitをVBAコードに入れると、実行すると、画面に砂時計が出たままになりました。

お礼

回答ありがとうございます
解決できました。

Application.Cursor = xlDefault
にてポップアップ以外の場所での砂時計状態が解消されました。

原因は分かりませんが、本回答にて解決できたので、この質問はCLOSEさせていただきます。

回答No.3

kagakusuki

>Sheets("Sheet1").Select単独、あるいは、 MsgBox "エラーは、ありません。"単独だと
砂時計状態にならないのですが、上記のセットだと砂時計状態になってしまいます。

　そんな筈はありません。単独の場合でも、セットにした場合でも、どちらの場合であってもMsgBoxの上にカーソールを重ねた状態では矢印のままですし、MsgBox上ではない位置にカーソルが位置している場合には砂時計になる筈です。
　おそらく、

>Sheets("Sheet1").Select単独、あるいは、 MsgBox "エラーは、ありません。"単独

でのカーソルの状態を確認する際に、質問者様はMsgBoxの上にカーソールを重ねた状態だけを確認してそう思ってしまわれただけで、MsgBox上ではない位置におけるカーソルの形状を確認していないだけなのではないかと思います。

　MsgBoxの表示中に、MsgBox上ではない位置にカーソルが位置している場合でもカーソルの形を砂時計にしないだけでしたら次の様な方法は如何でしょうか?

Sub test()
Sheets("Sheet1").Select
Application.Cursor = xlDefault
MsgBox "エラーは、ありません。"
End Sub

お礼

回答ありがとうございます。

補足

そんな筈はありません。単独の場合でも、セットにした場合でも、どちらの場合であってもMsgBoxの上にカーソールを重ねた状態では矢印のままですし、MsgBox上ではない位置にカーソルが位置している場合には砂時計になる筈です
→
とのことですが、
単独の場合、ポップアップの上、それ以外でも砂時計は表示されません。
セットの場合、ポップアップの上は砂時計なし
ポップアップ以外で砂時計表示です

Sub test()
Sheets("Sheet1").Select
Application.Cursor = xlDefault
MsgBox "エラーは、ありません。"
End Sub
にて砂時計表示されなくなります。

原因は、分かりませんが、問題は解決出来たので、CLOSEさせていただきます。

回答No.1

imogasi

質問のコードだけでは、再現できませんでした。
参考
https://answers.microsoft.com/ja-jp/office/forum/office_2010-excel/excel2007%E3%81%A7%E5%8B%95%E4%BD%9C%E3%81%97%E3%81%A6%E3%81%84%E3%81%9F%E3%83%9E%E3%82%AF%E3%83%AD%E3%82%92excel2010%E3%81%A7%E5%AE%9F%E8%A1%8C%E3%81%99%E3%82%8B%E3%81%A8%E5%87%A6%E7%90%86%E3%81%8C%E7%B5%82%E3%82%8F%E3%82%89%E3%81%AA%E3%81%84/38696976-9965-e011-8dfc-68b599b31bf5
ーー
何か、普通の状態では起こらない、「何か他のこと？他の状態」が原因ではないでしょうか。

お礼

回答ありがとうございます。
他の3台のＰＣで新規にEXCELを立上げ、マクロをそれぞれで作成して実行しましたが、現象同じでした。
何か他のこと？他の状態とのことで次のことを確認しました。
マクロで、あるアドインが追加されていたので、その参照設定を削除し、ＰＣ再起動して確認しましたが、現象変わらずでした。