Vba を使用してテキストを折り返す方法 (例付き)

VBA でWrapTextプロパティを使用すると、Excel ワークシートの特定のセルでテキストを折り返すことができます。

このプロパティを実際に使用する一般的な 3 つの方法を次に示します。

方法 1: 特定のセルのテキストを折り返す

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

方法 2: セルのテキストを特定の範囲で折り返す

 SubUseWrapText ()
Range(" B2:B11 ").WrapText = True
End Sub

方法 3: ワークシート内のすべてのセルのテキストを折り返す

 Sub UseWrapText()
Cells.WrapText = True
End Sub

次の例は、Excel の次のデータ セットで各メソッドを実際に使用する方法を示しています。

さあ行こう！

例 1: VBA を使用して特定のセルのテキストを折り返す

次のマクロを作成して、セルB2のみのテキストを折り返すことができます。

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

このマクロを実行すると、セルB2をクリックすると、上部のリボンに沿った[ホーム]タブの[配置]グループで[テキストの折り返し] が有効になっていることがわかります。

ただし、折り返されたテキストを実際に表示するには、列 B の長さを短くし、行 2 の高さを増やす必要があります。

セルB2のテキストは折り返されますが、列 B の他のすべてのセルのテキストは折り返されていないことが簡単にわかります。

例 2: VBA を使用して特定の範囲でセルのテキストを折り返す

次のマクロを作成して、範囲B2:B11の各セルのテキストを折り返すことができます。

 Sub UseWrapText()
Range(" B2:B11 ").WrapText = True
End Sub

このマクロを実行すると、次の出力が表示されます。

範囲B2:B11の各セルに折り返されたテキストが含まれていることがわかります。

例 3: VBA を使用してワークシート内のすべてのセルのテキストを折り返す

次のマクロを作成して、ワークシートの各セルのテキストを折り返すことができます。

 Sub UseWrapText()
Cells.WrapText = True
End Sub

このマクロを実行すると、次の出力が表示されます。

ワークシート内のすべてのセルに折り返されたテキストが含まれていることがわかります。

注: VBA WrapTextプロパティの完全なドキュメントはここにあります。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA：フォントの色を変更する方法
VBA: 文字列内の文字を置換する方法
VBA: 書式付きの行を挿入する方法