第20回.全てのシートに同じ事をする（For〜Worksheets.Count）
エクセルの作業で最も面倒かつ時間のかかる作業は、同じ作業の繰り返しでしょう、
1回だけなら数秒でも、それを何十回と繰り返すとなると・・・
多くのシートがあり、同じ作業を全シートに行うとなると・・・マクロの出番です。
シートの指定方法は、
Worksheets("シート名")
Worksheets(インデックス)
ActiveSheet
この3通りを紹介しました。
全シートに対する処理では、
Worksheets(インデックス)
これを使います。
インデックスは、
先頭シートが、1
最終シートが、Worksheets.Count
になります。
そこで、Forを使って1〜1Worksheets.Countまで処理するようにします。
全シートの「印刷の向き」を「横」に設定します。
※Orientation = xlLandscape
Orientationが印刷の向きを指定するプロパティです。
xlLandscape：横
xlPortrait：縦
ページ設定は、非常に多くのプロパティがあります。
マクロの記録を有効に使って調べて下さい。
用紙サイズの指定を、マクロの記録で調べて実際にマクロVBAを書いてみましょう。
必ず全てのシートに同じ処理をするとは限りません。
特定のシート、例えば特定の文字を含んでいるシートにだけ処理をしたい場合もあります。
シート名に"横"と入っているシートだけ「印刷の向き」を「横」に設定します。
※InStr関数について
InStrは、第2引数の文字が第1引数の文字の中で何番目に登場するかを返すVBA関数です。
第2引数の文字が第1引数の文字の中に無い場合は0を返します。
上記では、>0つまり1以上が返された場合なので、
第2引数の文字が第1引数の文字の中にある場合になります。
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の動きと、その時点でのシート数を確認しつつ、ステップイン実行してみましょう。
同じテーマ「マクロVBA再入門」の記事
第17回.セルにブック・シートを指定する（Workbooks,Worksheets,With,Set）
第18回.シートをコピー・挿入・削除する（Worksheets,Copy,Add,Delete）
第19回.ブックを開く・閉じる・保存する（Workbooks,Open,Close,Save,SaveAs）
第20回.全てのシートに同じ事をする（For〜Worksheets.Count）
第21回.ファイル一覧を取得する（Do〜LoopとDir関数）
第22回.複数ブックよりデータを集める
第23回.複数のプロシージャーを連続で動かす（Callステートメント）
第24回.マクロの呪文を追加してボタンに登録（ScreenUpdating）
第25回.月別ブックより部署別シートに担当別に集計するNo1
第26回.月別ブックより部署別シートに担当別に集計するNo2
第27回.月別ブックより部署別シートに担当別に集計するNo3
新着記事 ・・・新着記事一覧を見る
VBAクラスの作り方：独自Rangeっぽいものを作ってみた｜VBA技術解説（2月16日）
VBAクラスの作り方：列名のプロパティを自動作成する｜VBA技術解説（2月14日）
VBAクラスの作り方：列名の入力支援と列移動対応｜VBA技術解説（2月11日）
クラスを使って他ブックのイベントを補足する｜VBA技術解説（2月6日）
Excelアドインの作成と登録について｜VBA技術解説（2月3日）
参照設定、CreateObject、オブジェクト式の一覧｜VBA技術解説（1月20日）
VBAでファイルを規定のアプリで開く方法｜VBA技術解説（1月20日）
ドキュメントプロパティ（BuiltinDocumentProperties,CustomDocumentProperties）｜VBA技術解説（1月19日）
他ブックへのリンクエラーを探し解除｜VBAサンプル集（1月15日）
特殊フォルダの取得（WScript.Shell,SpecialFolders）｜VBA技術解説（1月1日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数とデータ型（Dim）｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.RangeとCellsの使い方｜ExcelマクロVBA入門
6.マクロって何？VBAって何？｜ExcelマクロVBA入門
7.繰り返し処理（For Next)｜ExcelマクロVBA入門
8.とにかく書いて見よう（Sub,End Sub）｜VBA入門
9.定数と型宣言文字（Const）｜ExcelマクロVBA入門
10.ひらがな⇔カタカナの変換｜エクセル基本操作
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。
