をよく使います。 MsgBox において ブイビーエー のように、コードを実行した後に通知を表示する必要があります。 1行では正しく表示できない場合もあります。 そのような場合は、次のようにします。 行を増やす .だから、この記事から、あなたは学ぶことができます。 6 で改行するのに便利なマクロ MsgBox エクセルVBAを使用して

練習用ワークブックをダウンロードする

ここから無料のExcelテンプレートをダウンロードし、ご自身で練習してみてください。

Excel VBAでMsgBoxに改行する6つの例

1.vbNewLineを使ってExcel VBAでMsgBoxに改行する

ここでは vbNewLine において VBAマクロ に行を追加する。 MsgBox 表示する " こんにちは。 「を1行目に、" ExcelWIKIへようこそ" を2行目に記述してください。

ステップス

• プレス Alt + F11 を開いてください。 VBAウィンドウ .
• その後 クリック を挿入してください。 インサート➤モジュール .

• その後、次のコードを入力します。

 Sub NewLine_vbNewLine() MsgBox "こんにちは！" & vbNewLine & "ExcelWIKIへようこそ" End Sub 

• その後 もどる をあなたの シート と クリック を開くには、次のようにします。 マクロ のダイアログボックスが表示されます。 デベロッパー ➤ マクロ .

• 選択 その マクロ名 で指定されているように コード .
• 最後に 実行 .

では、ご覧ください。 vbNewLine の出力が表示されています。 二行 .

続きを読む Excelでメール本文に複数行を生成するVBA（2つの方法）

2.ExcelのVBAでvbCrLfを使用してMsgBoxに改行を作成する

では、もう一つの定数である ブイビーエー - ブイビーシーエルエフ で新しい行を作成します。 MsgBox また、連続する2行の間に改行が入ります。

ステップス

• まず、次のことを行ってください。 前二歩 でモジュールを挿入します。 ブイビーエー
• その後 書く 以下 コード それじゃ

 Sub NewLine_vbCrLf() MsgBox "こんにちは！" & vbCrLf & vbCrLf & "Welcome to ExcelWIKI" End Sub 

• 次に、次のようにします。 第四の方法 を開いてください。 マクロのダイアログボックス .
• を選択します。 マクロ名 を押してください。 実行 .

定数 ブイビーシーエルエフ が加わりました。 しんせん をもって 空白線 もあります。

続きを読む エクセルセルに行を追加する方法（5つの簡単な方法）

3.エクセルVBAでMsgBoxにvbLfを挿入して改行させる

別の定数-を使ってみましょう。 ブイビーエルエフ を追加することができます。 MsgBoxの改行 をExcel VBAで作成します。

ステップス

• をフォローしてください。 前二歩 でモジュールを挿入します。 ブイビーエー
• 後日談です。 書く 以下 コード それじゃ

 Sub NewLine_vbLf() MsgBox "こんにちは！" & vbLf & "ExcelWIKIへようこそ" End Sub 

• その後、次のようにします。 第四の方法 を開いてください。 マクロのダイアログボックス .
• 後で、選択します。 マクロ名 を押してください。 実行 .

そして、すぐに目的の出力が得られます。

続きを読む エクセルでCONCATENATE式を使って改行する方法（5つの方法）

4.ExcelのVBAを使用してMsgBoxに改行を作成するChrを適用する

ここでは、VBAの定数を2つ使用します。 Chr(13) & Chr(10) をクリックして行を追加します。

ステップス

• に従うことから始めてください。 前二歩 でモジュールを挿入します。 ブイビーエー
• その後 書く 以下 コード それじゃ

 Sub NewLine_Chr() MsgBox "こんにちは！" & Chr(13) & Chr(10) & "ExcelWIKIへようこそ" End Sub 

• その後、次のようにします。 第四の方法 を開いてください。 マクロのダイアログボックス .
• 次に、割り当てられた マクロ名 を押してください。 実行 .

同じ出力が得られていることを確認してください。

5.エクセルVBAでマクロ内に改行する

これまでの方法では、コード内で改行しませんでしたが、ここでは、コード内で改行・追記します。

ステップス

• まず、次のことを行ってください。 前二歩 でモジュールを挿入します。 ブイビーエー
• 次のページ 書く 以下 コード それじゃ

 Sub NewLine_within_Macro() MsgBox "こんにちは！" & vbCrLf & _ "ExcelWIKIへようこそ" End Sub 

• その後、次のようにします。 第四の方法 を開いてください。 マクロのダイアログボックス .
• あとは、選択するだけです。 マクロ名 を押してください。 実行 .

さあ、見てください、その マクロ 持つ 行を追加した 包蔵 空白線 行間に

続きを読む エクセルで改行をする方法（4つの方法）

6.ボタンを使ってMsgBoxに新しい行を追加するVBAを埋め込む

最後のメソッドでは、少し変わった方法でタスクを実行します。 ボタン で行を追加します。 MsgBox .

6.1 単線用ボタン

まず、1行追加するためのボタンを作ります。 そのために、入力を与える3つのセルを表すデータセットを作りました。 苗字 , 住所 そして 電話番号 をクリックすると ボタン の場合、セルをチェックし 空っぽのセルを取得した場合 然らば メッセージを表示する を、そのセルの

• クリック を以下のとおりとします。 デベロッパー ➤ インサート そして 選ぶ その 四角い箱 から フォームコントロールセクション .

• その後すぐに 正号 をカーソルの中に入れてください。 左クリック マウスと ドラッグ について シート を設定します。 ボタンサイズ .

• その後 右クリック 尊 マウス について ボタン を選択し テキストを編集する から コンテキストメニュー を設定します。 ボタン名 .

• タイプ その 名称 をクリックし、シート上の任意の場所をクリックします。

• もう一度 右クリック 尊 マウス について ボタン を選択し マクロを割り当てる から コンテキストメニュー を設定します。 マクロ .

• この瞬間に マクロ名 を押してください。 新規 .

• その後 タイプ 以下 コード -

 Private Sub SingleLine_Button() Dim WS As Worksheet Set WS = Sheets("Single Line") If WS.Range("C4").Value = "" Then MsgBox "Please Insert Last Name!" End If WS.Range("C5").Value = "" Then MsgBox "Please Insert Address!" End If WS.Range("C6").Value = "" Then MsgBox "Please Insert Phone Number!" End If End Sub 

コードブレークダウン

• まず サブプロシジャ シングルラインボタン .
• そして、変数を宣言します。 WS かわりに ワークシート .
• その後、3つの使用 IFステートメント をクリックして、セルを確認します。 セルが値で満たされている場合 そうすれば 聞き流す と 空っぽのセルを取得した場合 を表示します。 対応メッセージ を通して MsgBox .

• その後、ちょうど もどる をあなたの シート と クリック その ボタン .

として 苗字 フィールドが空であるため、通知メッセージが表示されます。

• プレス よっしゃー と入力すると、2番目のフィールドをチェックします。

第2回 フィールドは空です 然もありなん を追加し、それを通知するようにした。 .

ここで、私が記入したのは 一分野 をクリックすると、そのフィールドはスキップされ、次のフィールドにジャンプします。 二の丸 をクリックすると、メッセージが表示されます。

6.2 複数回線用ボタン

このボタンを割り当てることで、メッセージボックスで一度に複数の行を追加できるようになります。

• 最初に 前節の最初の6つのステップを実行します。 を追加することができます。 ボタン を割り当てて マクロ .

• その後 タイプ 以下 コード マクロでは

 Sub Multiple_Line_Button() Dim WS As Worksheet Set WS = Sheets("Multiple Line") Dim Last_Name, Address, Phone, Error_msg As String Last_Name = Len(WS.Range("C4")) Address = Len(WS.Range("C5")) Phone = Len(WS.Range("C6")) If Last_Name = 0 Then Error_msg = "Please Insert Last Name!" End If Address = 0 Then Error_msg = Error_msg & vbNewLine & "Please Insert Address!" End If Telephone = 0Then Error_msg = Error_msg & vbNewLine & "電話番号を入れてください！" End If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="Important Caution!" Exit Sub End If End Sub 

コードブレークダウン

• ここで、私が作成した サブプロシジャ 複数行ボタン .
• そして、いくつかの変数を宣言します。 WS として ワークシート と 名字 , 住所 , 電話番号 , エラーメッセージ（Error_msg として
• その後、中古 レン と レンジ をクリックしてフィールドを設定します。
• 最後に、中古 Ifステートメント を確認します。 フィールドが空かどうか 入力されている場合はスキップされ、入力されていない場合はメッセージが表示されます。 MsgBox .

• 最後に、ちょうど もどる をシートに貼り付けて クリック その ボタン .

そして、それが表示されていることを確認します。 三行 に対して 三分野 何時もながら 空っぽ .

を埋めました。 一分野 のメッセージだけが表示されます。 次の2フィールド .

続きを読む Excelのセルに複数行を入れる方法（2つの簡単な方法）

結論

Excel VBAを使ってMsgBoxに改行を作成するには、上記の手順で十分だと思います。 何か質問がありましたら、コメント欄でお気軽にご意見をお聞かせください。