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再入門」の記事

セルにブック・シートを指定する(Workbooks,Worksheets,With,Set)
シートをコピー・挿入・削除する(Worksheets,Copy,Add,Delete)
ブックを開く・閉じる・保存する(Workbooks,Open,Close,Save,SaveAs)
全てのシートに同じ事をする(For~Worksheets.Count)
ファイル一覧を取得する(Do~LoopとDir関数)
複数ブックよりデータを集める
複数のプロシージャーを連続で動かす(Callステートメント)
マクロの呪文を追加してボタンに登録(ScreenUpdating)
月別ブックより部署別シートに担当別に集計するNo1
月別ブックより部署別シートに担当別に集計するNo2
月別ブックより部署別シートに担当別に集計するNo3

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

Withステートメントの実行速度と注意点|VBA技術解説(6月6日)
VBA+SeleniumBasicで検索順位チェッカー(改)|VBA技術解説(6月2日)
マクロでShift_JIS文字コードか判定する|VBA技術解説(6月1日)
Shift_JISのテキストファイルをUTF-8に一括変換|VBAサンプル集(5月31日)
「VBAによる解析シリーズその2 カッコ」をやってみた|エクセル(5月21日)
VBA+SeleniumBasicで検索順位チェッカー作成|VBA技術解説(5月18日)
テーブル操作のVBAコード(ListObject)|VBA入門(5月12日)
テーブル操作の概要(ListObject)|VBA入門(5月12日)
VBAのスクレイピングを簡単楽にしてくれるSelenium|VBA技術解説(5月6日)
Excelワークシート関数一覧(2010以降)|VBAリファレンス(4月22日)

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

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



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

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


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






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

    本文下部へ