列幅を設定する

2021年11月17日
セルの基本

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

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

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

ColumnWidthプロパティで列幅を設定する
Columnsプロパティで複数の列幅を設定する
列幅を自動で最適化する
シートを指定して列幅を設定する

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

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

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

　　■　コード内を「Wクリック」で選択できます。

Sub サンプル4270_1()

    Columns(3).ColumnWidth = 20
    Columns(3).UseStandardWidth = True
     
End Sub

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

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

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

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

　　■　コード内を「Wクリック」で選択できます。

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

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

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

列幅を自動で最適化する

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

　　■　コード内を「Wクリック」で選択できます。

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

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

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

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

　　■　コード内を「Wクリック」で選択できます。

Sub サンプル4270_4()

    Cells.Select    
    Selection.Columns.AutoFit
        
End Sub

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

●マクロの実行前

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

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

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

　　■　コード内を「Wクリック」で選択できます。

Sub サンプル4270_5()

    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
      
End Sub

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