OfficeType
  1. ホーム
  2. Excel VBA
  3. 書式
  4. 均等割り付けで文字列を均等に配置しよう

VBA～均等割り付けで文字列を均等に配置しよう～Excel

VBAでセルに均等割り付けを設定したい時はRange.HorizontalAlignmentプロパティをxlDistributedに設定します。

単一セルに均等割り付けを設定

下のコードを実行するとセルA1に均等割り付けが設定されます。 

Sub test1()

Range("A1").HorizontalAlignment = xlDistributed

End Sub

image-01

image-02

範囲に均等割り付けを設定する

範囲を指定したい時はRange("範囲の左上のセル:範囲の右下のセル")で指定できます。

下のコードを実行するとセルA1からセルA3に均等割り付けが設定されます。 

Sub test2()

Range("A1:A3").HorizontalAlignment = xlDistributed

End Sub

image-03

image-04

指定したシートのセルに均等割り付けが設定

シートを指定するときはWorksheets("シート名")で指定できます。

下のコードを実行するとSheet2のセルA1に均等割り付けが設定されます。 

Sub test3()

Worksheets("Sheet2").Range("A1").HorizontalAlignment = xlDistributed

End Sub

image-05

image-06

ブックを指定して均等割り付けが設定

ブックを指定するときはWorkbooks("ブック名")で指定できます。

Book1.xlsxというブックが開いた状態で下のコードを実行するとBook1.xlsxのSheet1のセルA1に均等割り付けが設定されます。 

Sub test4()

Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").HorizontalAlignment = xlDistributed

End Sub