列幅を設定する

ワークシートセルの列幅を設定するマクロです。

列幅を設定するには、ColumnWidthプロパティで設定します。

Columnsプロパティで範囲を指定して設定することができます。

ColumnWidthプロパティで列幅を設定する

列幅の単位は文字数になっています。
列幅が「１０」なら標準フォントの「0（半角）」が１０個入ります。

Columnsプロパティ　で列を指定して、列幅を設定します。

Sub サンプル4270_1()
<pre><code>Columns(3).ColumnWidth = 20
Columns(3).UseStandardWidth = True</code></pre>
End Sub

•　Columns(3).ColumnWidth = 20
　’Columnsプロパティで３列目を「20」にします。

•　Columns(3).UseStandardWidth = True
　’３列目の列幅を規定値にします。

Columnsプロパティで複数の列幅を設定する

複数行の高さを設定します。

Sub サンプル4270_2()
<pre><code>Columns("B:D").ColumnWidth = 15
Columns("B:D").UseStandardWidth = True</code></pre>
End Sub

•　Columns(“B:D”).ColumnWidth = 15
　’B列～D列の列幅を「15」にします。

•　Columns(“B:D”).UseStandardWidth = True
　’B列～D列の列幅を規定値にします。

列幅を自動で最適化する

■　列を指定して最適化する
AutoFitメソッドで列幅を自動で最適化します。

Sub サンプル4270_3()
<pre><code>Columns("A:F").AutoFit
Columns("A:F").UseStandardWidth = True</code></pre>
End Sub

•　Columns(“A:F”).AutoFit
　’A列～F列の列幅を自動で調節します。

•　Columns(“A:F”).UseStandardWidth = True
　’A列～F列の列幅を既定値にします。

■　シート全体の列幅を最適化する
シート全体を選択して、シート全体に対して列幅の最適化をします。
引数を省略したCellsプロパティを使います。

Sub サンプル4270_4()
<pre><code>Cells.Select    
Selection.Columns.AutoFit</code></pre>
End Sub

•　Cells.Select
　’すべてのセルを選択します。
•　Selection.Columns.AutoFit
　’すべての列を選択して、列幅を最適化します。

■　マクロの実行前

■　マクロの実行結果
データが入っている列幅を最適化します。

シートを指定して列幅を設定する

シートを指定して列幅を設定するには、Worksheets(“Sheet1”)　や　Worksheets(1)　のようにシートを指定します。

Sub サンプル4270_5()
<pre><code>Worksheets("Sheet1").Columns(1).ColumnWidth = 10
Worksheets("Sheet1").Columns("A").UseStandardWidth = True

Worksheets(2).Columns("A:C").ColumnWidth = 10
Worksheets(2).Columns("A:C").UseStandardWidth = True</code></pre>
End Sub

•　Worksheets(“Sheet1”).Columns(1).ColumnWidth = 10
　’シート１のA列の列幅を「１０」にします。

•　Worksheets(“Sheet1”).Columns(“A”).UseStandardWidth = True
　’シート１のA列の列幅を既定値にします。

•　Worksheets(2).Columns(“A:C”).ColumnWidth = 10
　’シート２のA列～C列の列幅を「１０」にします。

•　Worksheets(2).Columns(“A:C”).UseStandardWidth = True
　’シート２のA列～C列の列幅を既定値にします。

以上で「列幅を設定する」の説明を終わります。