MsgBoxの改行を簡単に入力したい【Function化】【ExcelVBA】

MsgBoxの改行を簡単に入力したい

MsgBoxを表示させることはユーザーにとってもわかりやすいのですが、見やすく改行しようと思うと
Chr(13)　や　vbCrLf  を入れて、改行していくのですが、入力が手間です。

そのため、Function化して楽にしたいと思います。

'■Msgboxに表示する文言を作る(/→改行に変換する)
Public Function MsgBoxCreate(str As String)
    '■改行で文字を分割する
    Dim val As Variant: val = Split(str, "/")
    
    '■配列をループして改行を付与する
    Dim tmp As String
    Dim i As Long
    For i = LBound(val) To UBound(val)
        tmp = tmp & val(i) & vbCrLf
    Next
    MsgBoxCreate = tmp
End Function

実際の使い方

Public Sub sample()
    MsgBox MsgBoxCreate("ERROR/指定された文字が存在しません//指定文字：aaa")
    'ERROR
    '指定された文字が存在しません
    '
    '指定文字:aaa
End Sub

注意点

• /で分割するので、必要あれば適宜文字を変更してください。
• /が存在しない場合もvalはSplit関数で分割＝配列化されるので問題ありません。

関連記事

• MsgBoxフォーカス初期位置(はい/いいえ/キャンセル)設定をする
• MsgBox「はい」「いいえ」の条件分岐をする
• セル内で改行/MsgBox内で改行をする【vbCr/vbLf/vbCrLf】
• ソースコード内で改行をする【アンダーバー_】
• MsgBoxに表示する文字列を「ずらずらと」書かないほうが見やすい