VBA に改行を追加する

Iqra Hasnain 2024年2月15日
  1. VBA に改行を追加する
  2. VBA で改行を行うには vbNewLine メソッドを使用する
  3. Chr(10) メソッドを使用して、VBA に改行を追加する
VBA に改行を追加する

例を挙げて、VBA の次の行でコードを続行する方法を紹介します。また、VBA のさまざまな方法でメッセージボックスの次の行に移動する方法も紹介します。

VBA に改行を追加する

コードを壊さずに次の行に進む方法を考えるとき、プログラミングには 2つの異なるタイプの状況があります。1つ目は、特定の行のコードがその行の画面サイズを超えた場合です。

もう 1つの方法は、メッセージボックスに何かを表示する必要があり、特定のポイントの後で行を分割したい場合です。VBA を使用して複数行でコーディングを続けたい場合は、使用できる簡単な方法を提供します。

スペースを追加し、アンダースコア(_)を付けて、新しい行を開始する必要があります。両方の行を 1 行として処理し、エラーは発生しません。

サンプルコード:

# VBA
Sub test()
MsgBox "Lorem Ipsum is simply dummy text of the printing" _
         & " and typesetting industry. Lorem Ipsum has " _
         & "been the industry's standard dummy text ever since the 1500s"
End Sub

出力:

アンダースコアを使用した VBA の改行

上記の例から、メッセージボックスに変更はありません。これは、アンダースコア(_)がコードを次の行に続けるためにのみ使用されているためです。コードは問題なく実行されました。つまり、アンダースコアは複数の行を 1 行として取っています。

VBA で改行を行うには vbNewLine メソッドを使用する

テキストを新しい行に追加したり、メッセージボックスまたは Excel ファイルに表示または保存しているコンテンツに改行を追加したいとします。この目的のために、多くの異なる方法を使用することができます。

使用される最初のメソッドは vbNewLine であり、ブレークを追加する行のどこにでも追加できます。

サンプルコード:

# VBA
Sub test()
MsgBox "Lorem Ipsum is simply dummy text of the printing" & vbNewLine & " and typesetting industry. Lorem Ipsum has " & vbNewLine & "been the industry's standard dummy text ever since the 1500s"
End Sub

出力:

vbNewLine を使用した VBA の新しい行

思い通りに表示されますが、msgBox は 1 行でしか使用していません。以下に示すように、このメソッドを複数回使用して、このメソッドを使用して複数の新しい行を追加することもできます。

サンプルコード:

# VBA
Sub test()
MsgBox "Lorem Ipsum is simply dummy text of the printing" & vbNewLine & " and typesetting industry. Lorem Ipsum has " & vbNewLine & "been the industry's standard dummy text ever since the 1500s"
End Sub

出力:

vbNewLine を使用した VBA の新しい複数行

vbNewLine メソッドを複数回使用すると、メッセージボックスに複数の行が追加されます。

Chr(10) メソッドを使用して、VBA に改行を追加する

同じことを実現するために使用できる、Chr(10) と呼ばれる別の方法について説明しましょう。このメソッドは、vbNewLine メソッドを使用したのと同じ方法で使用できます。

サンプルコード:

# VBA
Sub test()
MsgBox "Lorem Ipsum is simply dummy text of the printing" & Chr(10) & " and typesetting industry. Lorem Ipsum has " & Chr(10) & "been the industry's standard dummy text ever since the 1500s"
End Sub

出力:

VBA で chr(10)を使って新しい行を作成する

chr(10) メソッドは vbNewLine メソッドと同じように使用され、同じ結果が得られます。

関連記事 - VBA Function