ExcelマクロVBA再入門
第20回.全てのシートに同じ事をする(For~Worksheets.Count)

マクロが覚えられないという初心者向けに理屈抜きのやさしい解説
最終更新日:2016-03-29

第20回.全てのシートに同じ事をする(For~Worksheets.Count)


エクセルの作業で最も面倒かつ時間のかかる作業は、同じ作業の繰り返しでしょう、


1回だけなら数秒でも、それを何十回と繰り返すとなると・・・

多くのシートがあり、同じ作業を全シートに行うとなると・・・マクロの出番です。


シートの指定方法は、

Worksheets("シート名")
Worksheets(インデックス)
ActiveSheet

この3通りを紹介しました。

全シートに対する処理では、
Worksheets(インデックス)

これを使います。

インデックスは、

先頭シートが、1
最終シートが、Worksheets.Count
になります。
そこで、Forを使って1~1Worksheets.Countまで処理するようにします。

全シートの「印刷の向き」を「横」に設定します。

Excelマクロ VBAコード
※Orientation = xlLandscape
  Orientationが印刷の向きを指定するプロパティです。
  xlLandscape:横
  xlPortrait:縦

ページ設定は、非常に多くのプロパティがあります。
マクロの記録を有効に使って調べて下さい。
用紙サイズの指定を、マクロの記録で調べて実際にマクロVBAを書いてみましょう。

必ず全てのシートに同じ処理をするとは限りません。
特定のシート、例えば特定の文字を含んでいるシートにだけ処理をしたい場合もあります。

シート名に"横"と入っているシートだけ「印刷の向き」を「横」に設定します。

Excelマクロ 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番目のシートは無くなっているのでエラーになります。

これに対処するには、
シートの前からではなく、後ろから処理するようにします。

シート名に"削除"と入っていたらシートを削除する。

Excelマクロ VBAコード

ここは、実際に、
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


新着記事NEW ・・・新着記事一覧を見る

Byte配列と文字コード関数について|VBA技術解説(8月20日)
PowerQueryの強力な機能をVBAから利用する方法|VBA技術解説(8月4日)
練習問題31(セル結合を解除して値を埋める)|VBA練習問題(7月30日)
練習問題30(マトリックス→リスト形式)|VBA練習問題(7月25日)
Applicationを省略できるApplicationのメソッド・プロパティ一覧|VBA技術解説(7月22日)
コレクション(Collection)の並べ替え(Sort)に対応するクラス|VBA技術解説(7月20日)
CSVの読み込み方法(ジャグ配列)|VBAサンプル集(7月15日)
その他のExcel機能(グループ化、重複の削除、オートフィル等)|VBA入門(7月14日)
オートフィルタ退避回復クラスを複数シート対応させるVBAクラス|VBA技術解説(7月6日)
オートフィルタを退避回復するVBAクラス|VBA技術解説(7月6日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.変数とデータ型(Dim)|ExcelマクロVBA入門
6.繰り返し処理(For Next)|ExcelマクロVBA入門
7.マクロって何?VBAって何?|ExcelマクロVBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.ひらがな⇔カタカナの変換|エクセル基本操作
10.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説



  • >
  • >
  • >
  • 全てのシートに同じ事をする(For~Worksheets.Count)

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。




    このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
    本文下部へ