アフィリエイト広告を利用しています

列幅を設定する

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

列幅を設定するには、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列の列幅を既定値にします。

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

目次