Vba を使用してテキストを中央揃えにする方法 (例付き)

VBA で horizo ntalAlignmentプロパティとverticalAlignmentプロパティを使用すると、Excel の特定のセルのテキストをそれぞれ水平方向と垂直方向の中央に配置できます。

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

方法 1: VBA を使用してテキストを水平方向に中央揃えにする

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
End Sub

方法 2: VBA を使用してテキストを垂直方向に中央揃えにする

 SubCenterText ()
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub

方法 3: VBA を使用してテキストを水平方向および垂直方向の中央に配置する

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub

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

例 1: VBA を使用してテキストを水平方向に中央揃えする

次のマクロを作成して、範囲A2:A11の各セルのテキストを水平方向に中央揃えにすることができます。

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
End Sub

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

A2:A11の範囲内の各セルのテキストが水平方向に中央揃えになっていることに注目してください。

例 2: VBA を使用してテキストを垂直方向に中央揃えにする

次のマクロを作成して、範囲A2:A11の各セルのテキストを垂直方向の中央に配置できます。

 SubCenterText ()
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub

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

A2:A11の範囲内の各セルのテキストが垂直方向の中央に配置されていることに注目してください。

例 3: VBA を使用してテキストを水平方向および垂直方向に中央揃えにする

次のマクロを作成して、範囲A2:A11の各セルのテキストを水平方向と垂直方向の両方で中央揃えにすることができます。

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
Range(" A2:A11 ").VerticalAlignment = xlCenter 
End Sub

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

A2:A11の範囲内の各セルのテキストが水平方向と垂直方向の中央に配置されていることに注目してください。

追加リソース

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

VBA：フォントの色を変更する方法
VBA: フォントを太字にする方法
VBA: 文字列内の文字を置換する方法