銀河鉄道

【VBA】マクロ終了時のメッセージ|タイム付きmsgbox

サムネイル
終了メッセージボックス

実行時間をメッセージボックスで表示する

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

関連記事

著者

author
月うさぎ

編集後記:
この記事の内容がベストではないかもしれません。

記事一覧