セルの内容に合わせて列幅や行の高さを最適化するにはAutoFitメソッドを
使用します。複数の列を指定した場合でも、それぞれの列において最適な列幅
に設定します。また、指定するオフジェクトは行または列を表すものでなけれ
ばなりません。
次のサンプル1はA列からE列の幅を最適化します。
●サンプル1●
Sub AutoFitSamp1()
Columns("A:E").AutoFit
' Range("A:E").AutoFit '----この記述は×
' Range("A:E").EntireColumn.AutoFit '----こちらは○
End Sub
サンプル1では最適化する際「1番広い列幅のセル」の値で最適化している為、
1行目のタイトルなど(この場合はA列とします)の参照させたくないセル幅を参照
せずに最適化する場合は、サンプル2のようなコードを記述します。
●サンプル2●
Sub AutoFitSamp2()
Range("A3:E9").Columns.AutoFit '----1行目は参照していません
' Range("A3:E9").EntireColumn.AutoFit '----1行目は参照してしまうので×
End Sub
参照させたくないセル幅を参照せずに、セルA3:E9が最適化されます。
|