分かりやすく、使いやすく。

ダイアログのメッセージを途中で改行する方法

スポンサーリンク

Excel VBA のメッセージボックスに表示する文字列を好きな場所で改行するには vbNewLine を使用します。

サンプルコードは次の通りです。

VBA(実行可能なサンプルコード)
1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub test()
    Dim message As String
    
    message = "1行目の文字列" & vbNewLine & "2行目の文字列"
    
    Call MsgBox(message, vbOKOnly + vbInformation, "タイトルに表示する文字列")
End Sub 

上記の実行結果は次の通りです。

ダイアログのメッセージを好きな場所で改行

複数回改行する場合は次のように記述すると見やすいです。

VBA(実行可能なサンプルコード)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Sub test()
    Dim message As String
    
    ' たくさん改行する場合
    message = "1行目の文字列" _
               & vbNewLine & "2行目の文字列" _
               & vbNewLine & "3行目の文字列" _
               & vbNewLine & "4行目の文字列" _
               & vbNewLine & "5行目の文字列"
    
    Call MsgBox(message, vbOKOnly + vbInformation, "タイトルに表示する文字列")
End Sub 

ダイアログのメッセージを複数回改行

スポンサーリンク
スポンサーリンク