VBAでExcelスプレッドシートの列幅を設定するにはどうすればよいですか？

更新：2021年8月; Excel 365、2019、2016で動作します。

今日のExcel自動化チュートリアルでは、必要に応じてワークシート列の幅をすばやく変更する方法を学習しますが、プログラムでVBA（Visual Basic for Applications）を使用します。

前提条件

VBAコードを作成するには、何よりもまず、[開発者]タブが有効になっていることを確認する必要があります。手順がわからない場合は、詳細な手順を確認してください。

Windowsコンピュータで、MicrosoftExcelを開きます。
メインのリボンでDeveloperを押します。
VisualBasicコマンドを押します。これにより、 VBAエディターが開きます。
左側のプロジェクトエクスプローラーで、コードを挿入する特定のシートを強調表示します。または、新しいモジュールを挿入するか、既存のVBAモジュールにコードを追加することもできます。

1列幅の設定

この例では、アクティブなワークシートで1つの列を選択し、それに応じて変更します。

VBAエディターを使用して、次のコードをワークシートまたはモジュールにコピーします。


Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

F5キーを押すか、[実行] >> [サブまたはフォームの実行]を選択してコードを実行します。
[ファイル] >> [保存]または[ディスク]アイコンをクリックして、作業内容を保存します。

複数列範囲の幅を変更する

この例では、列の範囲を選択してから、幅を変更します。

前のセクションで説明したのと同じ方法でコードを適用できます。

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

次のステップ

VBAから始めますか？ExcelガイドのVBAの基本を確認してください。