【VBA】マクロ終了時のメッセージ|タイム付きmsgbox
記事更新日:2022-12-02

実行時間をメッセージボックスで表示する
Public Sub MsgEndMacro(ByVal time As Double)
MsgBox "実行時間: " & time & "秒", vbOKOnly, "終わりました"
End Sub
メインコード
Public StartTimer As Double '途中から計測する場合のためにパブリック変数にする
Public Sub Main()
'開始
Call StartMacro
StartTimer = Timer
'〜メインの実行内容〜
'途中でマクロ中断する場合
If (ユーザーフォームでキャンセルボタンが押されたとき等) then
Call EndAll
End If
'終了
Call EndMacro
'終了メッセージ
Dim time As Double: time = Timer - StartTimer
Call MsgEndMacro(time)
End Sub
ボタンとアイコンの組み合わせ例
vbOKCancel + vbCritical '警告
vbYesNo + vbQuestion '質問
vbOKOnly + vbExclamation '注意
vbAbortRetryIgnore + vbQuestion
関連記事
2022-12-02
編集後記:
この記事の内容がベストではないかもしれません。
記事一覧
-
Let と Getで読み取り専用 【VBA】クラスのプロパティを読み取り専用にするLet と Getの書き方 -
配列をテキストに書き出す 【VBA】テキストファイルに配列の中身を書き出す|ADODB.Stream -
オブジェクト生成のCreateObjectまとめ 【VBA】dictionary・テキストファイル・outlook・Access用にオブジェクトを生成する|CreateObject -
テーブルの指定位置に行を追加 【VBA】Excelテーブルの指定した位置に行を追加する -
画像としてコピーする 【VBA】セル範囲を画像としてコピーする|CopyPicture -
フルパスからファイル名を取得 【VBA】フルパスからファイル名取得|fso