目次
ワークシートのすべてのセルを選択する
Cellsプロパティを使って、ワークシート上にあるすべてのセルを選択します。
■ コード内を「Wクリック」で選択できます。
Sub サンプル2600() <pre><code>Dim WS As Worksheet Worksheets("Sheet1").Cells.Select MsgBox "すべてのセルを選択しました"</code></pre> End Sub
Sheet1のすべてのセルを選択します。
Cellsプロパティは、引数を指定しないとすべてのセルを選択します。
Worksheets("Sheet1").Cells.Select
■ マクロの実行結果

ワークブック内のすべてのワークシートを選択する
Array関数を使用して、ワークブック内のすべてのワークシートのセルを選択して、指定した色で塗りつぶします。
■ コード内を「Wクリック」で選択できます。
Sub サンプル2605() <pre><code>Dim WS As Worksheet Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Select Cells.Select Selection.Interior.ColorIndex = 3 Range("A1").Select MsgBox "全セルを塗りつぶし"</code></pre> End Sub
Array関数で、すべてのワークシートを選択します。
Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
すべてのセルを選択します。
Cells.Select
背景色を「赤」に設定します。
Selection.Interior.ColorIndex = 3
■ マクロの実行結果

For Each~Nextステートメントによるマクロ
For Each~Nextステートメントを使っても同じ結果になります。
■ コード内を「Wクリック」で選択できます。
Sub サンプル2610() <pre><code>Dim WS As Worksheet For Each WS In Worksheets WS.Cells.Interior.ColorIndex = 3 Next WS MsgBox "すべてのセルを選択しました"</code></pre> End Sub
以上で「ワークシートのすべてのセルを選択して処理をする」の説明を終わります。