
メッセージに改行コードを挿入
画面にメッセージを表示するMegBox関数は、非常に便利な命令です。
でも短いメッセージなら、いいんですが、
長いメッセージの時は、途中で改行するためのコードを記述してやりましょう。
改行に使うコードは数種あり,定数VbNewLineとVbCrLf、またはASCⅡコードのchr(10)、chr(13)、chr(13)&chr(10)を挿入します。
(サンプルファイルは、こちらから 2013マクロ講座20回サンプルデータ)



Sub メッセージ改行後()
Dim QMeg As Integer
QMeg = MsgBox("あなたは太ってますか?" & Chr(13) & Chr(13) & _
"太ってる:はい(Y)ボタン" & Chr(13) & _
"太ってない:いいえ(N)ボタン", vbYesNo + vbQuestion, "Test")
If QMeg = vbYes Then
MsgBox "夕飯ぬきです。", vbInformation, "対策"
Else
MsgBox "うそです。", vbCritical, "診断"
End If
End Sub

Sub メッセージ改行後2()
Dim QMeg As Integer
QMeg = MsgBox("あなたは太ってますか?" & vbNewLine & vbNewLine & _
"太ってる:はい(Y)ボタン" & vbNewLine & _
"太ってない:いいえ(N)ボタン", vbYesNo + vbQuestion, "質問")
If QMeg = vbYes Then
MsgBox "夕飯ぬきです。", vbInformation, "対策"
Else
MsgBox "うそです。", vbCritical, "診断"
End If
End Sub

