| 全てのシートの書式を変更する |
|---|
サンプルマクロでは、アクティブブックの全シートの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プロパティは、指定された対象セル範囲内のすべての列の幅を
設定します。
|
| Excel97 |