VBA – For Eachですべてのワークシートをループする

Written by

Editorial Team

Reviewed by

Steve Rynearson

Translated by

masahiro yoshida

Last updated on 8月 1, 2022

ワークブック全体に適用されるマクロは、複数のシートから新しいワークブックにデータを抽出したり、すべてのシートに高度な書式を適用したり、その他多くの理由で便利に使用できます。ここでは、基本的な構文と、ワークブック内のすべてのシートで動作するVBAコードの例を示します。

ワークブック内のすべてのシートをループする

ワークブック内のすべてのシートをループし、VBAコードを適用するための基本的な構文は次のとおりです。

For Each ws In Worksheets

  '更新またはここで何かを行う

Next

VBAを使用してワークブック内のすべてのワークシートを更新する

実際に動作する例として、次のコードをコピーしてモジュールに貼り付け、実行してみてください。結果は、ワークブック内のすべてのシートのセルA1にテキストが配置されます。

Public Sub DoToAll()

'変数を宣言する
Dim ws As Worksheet

For Each ws In Worksheets

  'ForとNextの間にコードを配置する
  '各シートへの任意の処理
  ws.Range("A1") = "AutomateExcel.com"

Next

End Sub

VBAのコーディングが簡単に

VBAのコードをオンラインで検索するのはもうやめましょう。AutoMacro – A VBA Code Builderについてもっと知る – 初心者が最小限のコーディング知識でゼロから手順をコーディングでき、すべてのユーザーのために多くの時間節約機能を備えています! alt text もっと詳しく

<<VBAのサンプルに戻る

vba-free-addin

VBAコード例アドイン

当サイトで紹介しているすべてのコード例に簡単にアクセス可能。

メニューから選択してクリックするだけで、コードがモジュールに直接挿入されます(.xlam アドイン)。

(インストール不要!)

無料ダウンロード

VBAコード例に戻る