VBA~列の幅を設定しよう~Excel
Columns.ColumnWidthプロパティ
Columns.ColumnWidthプロパティを使う方法です。Columns(列番号).ColumnWidth = 幅で指定した列の幅を変更できます。下のコードを実行するとA列の幅が4.25になります。
Sub test1() Columns(1).ColumnWidth = 4.25 End Sub
Range.ColumnWidthプロパティ
Range.ColumnWidthプロパティを使う方法です。Range(セル番地).EntireColumn.ColumnWidth = 幅で指定したセルの列の幅を設定できます。下のコードを実行するとA列の幅が4.25 になります。
Sub test2() Range("A1").EntireColumn.ColumnWidth = 4.25 End Sub
複数列の幅を設定
複数列の幅を設定したい場合はColumns("開始列のアルファベット:終了列のアルファベット").ColumnWidth= 幅で設定できます。下のコードを実行するとA列からC列の幅が4.25になります。
Sub test3() Columns("A:C").ColumnWidth = 4.25 End Sub
非連続列の幅を設定
非連続列の幅を設定したい場合はRange("1つ目の幅を設定したい列のアルファベット:1つ目の幅を設定したい列のアルファベット,2つ目の幅を設定したい列のアルファベット:2つ目の幅を設定したい列のアルファベット").ColumnWidth= 幅で設定できます。3つ4つと設定することもできます。下のコードを実行するとA列とC列の幅が4.25になります。
Sub test4() Range("A:A,C:C").ColumnWidth = 4.25 End Sub