ワークシートセルの列幅を設定するマクロです。
列幅を設定するには、ColumnWidthプロパティで設定します。
Columnsプロパティで範囲を指定して設定することができます。
ColumnWidthプロパティで列幅を設定する
列幅の単位は文字数になっています。
列幅が「10」なら標準フォントの「0(半角)」が10個入ります。

Columnsプロパティ で列を指定して、列幅を設定します。
■ コード内を「Wクリック」で選択できます。
Sub サンプル4270_1() <pre><code>Columns(3).ColumnWidth = 20 Columns(3).UseStandardWidth = True</code></pre> End Sub
• Columns(3).ColumnWidth = 20
’Columnsプロパティで3列目を「20」にします。

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

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

複数行の高さを設定します。
■ コード内を「Wクリック」で選択できます。
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メソッドで列幅を自動で最適化します。
■ コード内を「Wクリック」で選択できます。
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プロパティを使います。
■ コード内を「Wクリック」で選択できます。
Sub サンプル4270_4() <pre><code>Cells.Select Selection.Columns.AutoFit</code></pre> End Sub
• Cells.Select
’すべてのセルを選択します。
• Selection.Columns.AutoFit
’すべての列を選択して、列幅を最適化します。
■ マクロの実行前

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

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

シートを指定して列幅を設定するには、Worksheets(“Sheet1”) や Worksheets(1) のようにシートを指定します。
■ コード内を「Wクリック」で選択できます。
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
’シート1のA列の列幅を「10」にします。

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

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

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

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