【ExcelVBA】ログメッセージ表示

スポンサーリンク
プログラミング

' ログの作成
Dim msgArray As Object

' ログメッセージ定義 必ず実行すること
Public Function setMsgArray()
    Set msgArray = CreateObject("Scripting.Dictionary")
    
    msgArray.Add "ERROR001", "{0}の処理に失敗しました。{1}を{2}してください。"
    msgArray.Add "ERROR002", "{0}の処理に失敗しました。{1}が間違えていませんか。"

End Function


Public Function outputMsgBox(key As String, placeholderArray() As Variant)

    Dim msg As String
    Dim cnt As Integer
    
    msg = key & vbCrLf & _
          msgArray.Item(key)
          
    For cnt = LBound(placeholderArray) To UBound(placeholderArray)
        msg = Replace(msg, "{" & cnt & "}", placeholderArray(cnt))
    Next
    
    MsgBox msg

End Function

' 使い方
Sub Test()
    Call setMsgArray
    
    Dim placeholderArray() As Variant
    
    placeholderArray = Array("データ更新", "値1", "数値に")
    Call outputMsgBox("ERROR001", placeholderArray)

End Sub

暇な時間にU-NEXT

今なら無料1ヶ月無料トライアル600円分の有料コンテンツを使えるチャンス!

見放題作品が31日間無料で視聴可能最新作はレンタル配信!

600円分のポイントプレゼント!DVD・ブルーレイよりも先行配信の最新作、放送中ドラマの視聴や最新コミックの購入に使用可能

 

追加料金なく、80誌以上の雑誌が読み放題

プログラミング
スポンサーリンク
uediveをフォローする
SEの休日

コメント

タイトルとURLをコピーしました