VBA でカラムの幅を変更する方法

VBA でカラムの幅を変更する方法のメモ。

以下のような excel の表で対象カラムの幅を VBA で変更します。

ついでに、セル内で折り返します。

対象カラム

あいうえおかきくけこ

さしすせそたちつてと

Sub set_column_width_in_sheet()
    Dim str_col As String
    Dim r

    str_col = "A"
    r = 2
    While Cells(r, str_col).Value <> ""	' 折り返して表示
        Cells(r, str_col).WrapText = True
    Wend

    ' 列の幅を変更
    Columns(str_col + ":" + str_col).ColumnWidth = 80
End Sub

Sub set_column_width_in_all_sheets()
    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).Activate
        Call set_column_width_in_sheet
    Next

    Sheets(1).Activate
End Sub