VBA再入門
第20回.全てのシートに同じ事をする（For～Worksheets.Count）

Worksheets("シート名")
Worksheets(インデックス)
ActiveSheet
この3通りを紹介しました。
全シートに対する処理では、
Worksheets(インデックス)
これを使います。
インデックスは、
先頭シートが、1
最終シートが、Worksheets.Count
になります。
そこで、Forを使って1～1Worksheets.Countまで処理するようにします。

Orientationについて

ページ設定は、非常に多くのプロパティがあります。
マクロの記録を有効に使って調べて下さい。
用紙サイズの指定を、マクロの記録で調べて実際にマクロVBAを書いてみましょう。
必ず全てのシートに同じ処理をするとは限りません。
特定のシート、例えば特定の文字を含んでいるシートにだけ処理をしたい場合もあります。

InStr関数について

InStr関数はマクロVBAでは頻繁に使います。
実際に書いて、動作（戻り値）を確認し良く理解してください。

シートに対する普通の処理の繰り返しの場合は上記で良いのですが、
シートの挿入・削除を繰り返し行う場合は一工夫必要です。
For i = 1 To Worksheets.Count
このForは、最初にこのForを実行した時点のシート数です。
つまり、繰り返しに入る時点のシート数なので、
繰り返し処理の中でシート数が変わってしまうと正しく動きません。
例えば、
最初にシート数が3だったとすると、
For i = 1 To Worksheets.Count
これは、
For i = 1 To 3
という事になります。
ループの中でシートを削除してしまうと、i=3になった時に3番目のシートは無くなっているのでエラーになります。
これに対処するには、
シートを前からではなく、後ろから処理するようにします。

ここは、実際に、
For i = 1 To Worksheets.Count
と
For i = Worksheets.Count To 1 Step -1
それぞれで、変数iの動きと、その時点でのシート数を確認しつつ、ステップイン実行してみましょう。

書籍やWEBで、全てのシートに対する処理を探すと、For Eachで書かれているものを見かけるはずです。
For Eachは、全て通常のFor…Nextで書き換えることができます。
したがって、これを覚えるのは後からで構いません。
今は、そういうものがあるという事だけ知っていれば十分です。
興味があり、かつ、余力があれば勉強してみてください。
使えれば、とても便利なものであることは間違いありません。
この下に解説ページへのリンクを掲載しておきます。

第16回.繰り返し処理（For Next）
第37回.ブック・シートの指定
第58回.コレクションとは（Collection）
第59回.コレクション処理（For Each）

同じテーマの記事
新着記事
アクセスランク