VBA – For Eachですべてのワークシートをループする
Last updated on 8月 1, 2022
ワークブック全体に適用されるマクロは、複数のシートから新しいワークブックにデータを抽出したり、すべてのシートに高度な書式を適用したり、その他多くの理由で便利に使用できます。ここでは、基本的な構文と、ワークブック内のすべてのシートで動作するVBAコードの例を示します。
ワークブック内のすべてのシートをループする
ワークブック内のすべてのシートをループし、VBAコードを適用するための基本的な構文は次のとおりです。
For Each ws In Worksheets
'更新またはここで何かを行う
NextVBAを使用してワークブック内のすべてのワークシートを更新する
実際に動作する例として、次のコードをコピーしてモジュールに貼り付け、実行してみてください。結果は、ワークブック内のすべてのシートのセルA1にテキストが配置されます。
Public Sub DoToAll()
'変数を宣言する
Dim ws As Worksheet
For Each ws In Worksheets
'ForとNextの間にコードを配置する
'各シートへの任意の処理
ws.Range("A1") = "AutomateExcel.com"
Next
End SubVBAのコーディングが簡単に
VBAのコードをオンラインで検索するのはもうやめましょう。AutoMacro – A VBA Code Builderについてもっと知る – 初心者が最小限のコーディング知識でゼロから手順をコーディングでき、すべてのユーザーのために多くの時間節約機能を備えています! 
もっと詳しく
