VBA～セル内のデータを縦書きで表示しよう～Excel

VBAでセルのデータを縦書きしたい時はRange.OrientationプロパティをxlVerticalに設定します。

単一セルのデータを縦書きにする

下のコードを実行するとセルB3のデータが縦書きになります。

Sub test1()

Range("B3").Orientation = xlVertical

End Sub

範囲のデータを縦書きにする

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

下のコードを実行するとセルB3からセルD3のデータが縦書きになります。

Sub test2()

Range("B3:D3").Orientation = xlVertical

End Sub

指定したシートのセルのデータを縦書きにする

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

下のコードを実行するとSheet2のセルB3のデータが縦書きになります。

Sub test3()

Worksheets("Sheet2").Range("B3").Orientation = xlVertical

End Sub

ブックを指定してセルのデータを縦書きにする

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

Book1.xlsxというブックが開いた状態で下のコードを実行するとBook1.xlsxのSheet1のセルB3のデータが縦書きになります。

Sub test4()

Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("B3").Orientation = xlVertical

End Sub