即効テクニック |
サンプルマクロでは、アクティブブックの全シートのA列からC列の列幅を変更しています。
Sub Sumple() Dim mySheet As Worksheet For Each mySheet In Worksheets mySheet.Select Columns("A:C").Select Selection.ColumnWidth = 20 Next mySheet End Sub
For Each...Next ステートメントは、配列やコレクションの各要素に対して、一連のステートメントを繰り返し実行するフロー制御ステートメントです。 ColumnWidthプロパティは、指定された対象セル範囲内のすべての列の幅を設定します。