セルの内容に合わせて幅/高さを設定する
 セルの内容に合わせて列幅や行の高さを最適化するには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が最適化されます。

Excel2000



戻る


Excel Word Access VBA! モーグ