第20回.全てのシートに同じ事をする(For~Worksheets.Count)
エクセルの作業で最も面倒かつ時間のかかる作業は、同じ作業の繰り返しでしょう。
1回だけなら数秒でも、それを何十回と繰り返すとなると・・・
多くのシートがあり、同じ作業を全シートに行うとなると・・・
こういう時こそ、まさにマクロVBAの出番です。
シートの指定方法
Worksheets(インデックス)
ActiveSheet
Worksheets(インデックス)
これを使います。
先頭シートが、1
最終シートが、Worksheets.Count
になります。
そこで、Forを使って1~Worksheets.Countまで処理するようにします。
全シートの「印刷の向き」を「横」に設定します。

xlLandscape:横
xlPortrait:縦
ページ設定は、非常に多くのプロパティがあります。
マクロの記録を有効に使って調べて下さい。
用紙サイズの指定を、マクロの記録で調べて実際にマクロVBAを書いてみましょう。
特定のシート、例えば特定の文字を含んでいるシートにだけ処理をしたい場合もあります。
シート名に"横"と入っているシートだけ「印刷の向き」を「横」に設定します
第2引数の文字が第1引数の文字の中に無い場合は0を返します。
>0つまり1以上が返された場合は、文字列が含まれているという事です。
実際に書いて、動作(戻り値)を確認し良く理解してください。
シート名に"削除"と入っていたらシートを削除する
シートの挿入・削除を繰り返し行う場合は一工夫必要です。
この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の動きと、その時点でのシート数を確認しつつ、ステップイン実行してみましょう。
For Eachについて
For Eachは、全て通常のFor…Nextで書き換えることができます。
したがって、これを覚えるのは後からで構いません。
今は、そういうものがあるという事だけ知っていれば十分です。
使えれば、とても便利なものであることは間違いありません。
この下に解説ページへのリンクを掲載しておきます。
ExcelマクロVBA入門の対応ページ
第37回.ブック・シートの指定
第58回.コレクションとは(Collection)
第59回.コレクション処理(For Each)
同じテーマ「マクロ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
新着記事NEW ・・・新着記事一覧を見る
VBA100本ノック 98本目:席替えルールが守られているか確認|VBA練習問題(3月1日)
VBA100本ノック 97本目:Accessからデータを取得2|VBA練習問題(2月27日)
VBA100本ノック 96本目:Accessからデータを取得1|VBA練習問題(2月26日)
VBA100本ノック 95本目:図形のテキストを検索するフォーム作成|VBA練習問題(2月24日)
VBA100本ノック 94本目:表範囲からHTMLのtableタグを作成|VBA練習問題(2月23日)
VBA100本ノック 93本目:複数ブックを連結して再分割|VBA練習問題(2月22日)
VBA100本ノック 92本目:セルの色を16進で返す関数|VBA練習問題(2月20日)
VBA100本ノック 91本目:時間計算(残業時間の月間合計)|VBA練習問題(2月19日)
VBA100本ノック 90本目:セルに重なっている画像の削除|VBA練習問題(2月17日)
VBA100本ノック 89本目:2つのフォルダの統合|VBA練習問題(2月16日)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
6.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
7.繰り返し処理(For Next)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.マクロはどこに書くの(VBEの起動)|VBA入門
10.とにかく書いてみよう(Sub,End Sub)|VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。