EXCEL VBA RowHeight ColumnWidth AutoFit (セルの行の高さ・列の幅設定・自動調整Autofit・サイズ取得）

EXCEL VBA RowHeight ColumnWidth AutoFit (セルの行の高さ・列の幅設定・自動調整・サイズ取得）

Sub Row01()

Dim xRow As Single

xRow = Range("A1").RowHeight　'A1のセルの高さをxRowに代入

MsgBox xRow　'xRowに代入されたA1の高さを表示

End Sub

Sub row02()

Dim xRow As Single

xRow = InputBox("設定する行のサイズ")  '変更するセルの高さを入力します。

Rows(1).RowHeight = xRow    '1行目のセルの高さが設定されます。

End Sub

Sub Column01()

Dim xCol As Single

xCol = Range("A1").ColumnWidth  'A1のセルの幅をxColに代入

MsgBox xCol

End Sub

Sub Column02()

Dim xCol As Single

xCol = InputBox("設定する列のサイズ") '変更するセルの高さを入力します。

Range("A:A").ColumnWidth = xCol 'A列のセル幅が設定されます。

End Sub