Excel VBA 42 Excelで選択した列の幅を一括変更

書式設定で処理出来ますが、Excelで選択した列の幅を一括変更します。

Sub SetSelectedColumnsWidth()

Dim rng As Range

Dim col As Range

Dim width As Double

' ユーザーに列幅を入力させる

width = InputBox("設定する列の幅を入力してください",

        "列幅設定", 10)

' ユーザーがキャンセルした場合は処理を中断

If width = 0 Then Exit Sub

' 選択範囲を取得

Set rng = Selection

' 選択範囲の各列に適用

For Each col In rng.Columns

col.ColumnWidth = width

Next col

MsgBox "選択範囲の列幅を " & width & " に設定しました。",

        vbInformation, "設定完了"

End Sub

変更したい列を選択し・・・

マクロを起動すると変更したい幅の入力パレットが表示されます。値10はデフォルトの幅です。

任意変更して［OK］すれば・・・

指定した幅に変更されます。