やさしいマクロとVBA

ワークシートのすべてのセルを選択して処理をする

目次
  1. ワークシートのすべてのセルを選択する
  2. ワークブック内のすべてのワークシートを選択する
  3. For Each～Nextステートメントによるマクロ

ワークシートのすべてのセルを選択する

Cellsプロパティを使って、ワークシート上にあるすべてのセルを選択します。

　　■　コード内を「Wクリック」で選択できます。

Sub サンプル2600()
 
    Dim WS As Worksheet
     
    Worksheets("Sheet1").Cells.Select
    MsgBox "すべてのセルを選択しました"
         
End Sub
Sheet1のすべてのセルを選択します。
Cellsプロパティは、引数を指定しないとすべてのセルを選択します。

Worksheets("Sheet1").Cells.Select

●マクロの実行結果

ワークブック内のすべてのワークシートを選択する

Array関数を使用して、ワークブック内のすべてのワークシートのセルを選択して、指定した色で塗りつぶします。

　　■　コード内を「Wクリック」で選択できます。

Sub サンプル2605()
 
    Dim WS As Worksheet
     
    Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    Cells.Select
    Selection.Interior.ColorIndex = 3
     
    Range("A1").Select
    MsgBox "全セルを塗りつぶし"
         
End Sub
Array関数で、すべてのワークシートを選択します。

Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
すべてのセルを選択します。

Cells.Select
背景色を「赤」に設定します。

Selection.Interior.ColorIndex = 3

●マクロの実行結果

For Each～Nextステートメントによるマクロ

For Each～Nextステートメントを使っても同じ結果になります。

　　■　コード内を「Wクリック」で選択できます。

Sub サンプル2610()
 
    Dim WS As Worksheet
     
    For Each WS In Worksheets
        WS.Cells.Interior.ColorIndex = 3
    Next WS
    MsgBox "すべてのセルを選択しました"
             
End Sub
アクティブセルのアドレスについては次の記事が参考になります。
■関連記事■　アクティブセルのアドレスを取得する

以上で「ワークシートのすべてのセルを選択して処理をする」の説明を終わります。