長い時間かかるマクロが実行中かどうかを表示したい

解決済

質問者：oldhisa
質問日時：2005/02/27 13:57
回答数：3件

どんな方法があるのでしょうか

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： KenKen_SP
回答日時：2005/02/28 13:53

代表的な手法としては、次のよう方法があります。

いずれもVBAについてある程度の知識と工夫が必要です。

1.　ステータスバーを利用
　　メッセージを表示することは簡単なのですが、難点としてエラーが発生した
　　場合でもちゃんと表示を元に戻す例外処理を考慮しなければなりません。

2.　フォームを利用
　　フォームを使えるなら、プログレスバー(進捗表示グラフ）などグラフィカル
　　な表示が可能です。ただし、少々難しいです。

要は、マクロ実行中であることをユーザーに伝えることができれば良いわけですから、次のような簡易的な方法が良いかもしれません。

1.　「マクロ実行中」を表現したメッセージシートを用意
　　シートを追加して、シートの真中に大き目の文字で「マクロ実行中」と書きます
　　何でもよいので、自分好みにデザインして下さい。
2.　1.のシート名を「Prog」に変更

マクロ実行中はこのシートをユーザーに見せておけば良いでしょう。当然、マクロが終了したら、このシートを非表示にしてしまいます。

Sub Sample()

　　Dim SH As Worksheet

　　'マクロ実行中のメッセージシート表示
　　Set SH = ThisWorkbook.Sheets("Prog")
　　With SH
　　　　.Visible = True
　　　　.Activate
　　　　.Range("A1").Select
　　End With

　　'マクロの実行でシートが切り替わらないように
　　'画面描写の更新を凍結
　　Application.ScreenUpdating = False

　　'実際の処理をここに書く

　　'マクロ実行中のメッセージシートを非表示
　　SH.Visible = False
　　Set SH = Nothing
　　'画面描写の更新を再開
　　Application.ScreenUpdating = True
　　'完了メッセージ
　　MsgBox "終了しました。", vbInformation

End Sub

- 1
- 件

通報する

No.2

回答者： hogehage
回答日時：2005/02/27 15:53

自分の場合は、Cells.Select で、画面を全選択状態にしています。

Cells.Select すると、アクティブセルが最左上のセルになってしまうので、

元のセル=ActiveCell.Address
Cells.Select

処理

Range(元のセル).select

として、元に戻しています。

- 0
- 件

通報する

No.1

回答者： hana-hana3
回答日時：2005/02/27 14:13

ステータスバーにメッセージを表示させることが出来ます。

'プログラム実行時
Application.StatusBar = True
'実行中に、任意の場所でメッセージを出すす。
Application.StatusBar = "○○を実行中"
'終了時
Application.StatusBar = False

ほかに、ステータスバーを表示させたりする処理も必要かな。
Application.DisplayStatusBar = True

参考URL：http://www.officetanaka.net/excel/vba/tips/tips1 …