VBA～セル内のデータを角度をつけて表示しよう～Excel

VBAでセルのデータの角度を設定したい時はRange.Orientationプロパティで設定します。

単一セルのデータの角度を設定する

下のコードを実行するとセルB3のデータの角度が30°になります。

Sub test1()

Range("B3").Orientation = 30

End Sub

範囲のデータの角度を設定する

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

下のコードを実行するとセルB3からセルD3のデータの角度が30°になります。

Sub test2()

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

End Sub

指定したシートのセルのデータの角度を設定する

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

下のコードを実行するとSheet2のセルB3のデータの角度が30°になります。

Sub test3()

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

End Sub

ブックを指定してセルのデータの角度を設定する

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

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

Sub test4()

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

End Sub