【VBA】マクロ終了時のメッセージ|タイム付きmsgbox
記事更新日:2022-12-02
![サムネイル](https://tsukiusagi.biz/wp-content/uploads/2022/09/vba.png)
実行時間をメッセージボックスで表示する
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
編集後記:
この記事の内容がベストではないかもしれません。
記事一覧
-
一次元配列を縦に貼り付ける 【VBA】一次元配列を縦方向にシートに貼り付け【範囲をリサイズする】 -
Excelでメール作成とOutlook起動 【VBA】Excelでメール内容を作成してOutlookを起動する -
指定の文字より前/後ろをカット 【VBA】文字列から、指定の文字をカットする|指定文字より前/後ろを残す -
CurrentRegionのデータを配列で取得 【VBA】シートにあるデータを配列に格納する|CurrentRegion -
拡張子の存在確認 【VBA】拡張子の存在確認|ExtensionExists -
ユーザーフォームのタイトルバー非表示 【VBA】ユーザーフォームのタイトルバーを非表示にしてシステムっぽい見た目にする