すべてのシートのフッターに同じ文字列をセットする方法

Pocket

Excelで、すべてのシートのフッターに例えば「マル秘」という文字列をセットする場合のマクロは次の通りです。

Sub すべてのシートのフッターに同じ文字列をセット()
    For Each mysheets In Sheets
        mysheets.PageSetup.RightFooter = "マル秘"
    Next
End Sub

ポイントは「For Each … In … Next」というステートメントを使うところです。
この方法はフッターやヘッダーのセット以外にも応用できます。

しかし、この程度のことならばマクロは必要ありません。
すべてのシートを複数選択した状態で、ページレイアウト-ページ設定-ヘッダー/フッタータブを選択、という手順(Excel2007の場合)でOKです。
これならばすべてのシートではなくセットしたいシートだけ選択して処理することができます。

関連記事

[ 2010年6月9日 | カテゴリー: Excel | タグ: , ]

« | »

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報