全てのシートの書式を変更する
 サンプルマクロでは、アクティブブックの全シートの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



戻る


Excel Word Access VBA! モーグ