すべてのシートのフッターに同じ文字列をセットする方法
Excelで、すべてのシートのフッターに例えば「マル秘」という文字列をセットする場合のマクロは次の通りです。
Sub すべてのシートのフッターに同じ文字列をセット()
For Each mysheets In Sheets
mysheets.PageSetup.RightFooter = "マル秘"
Next
End Sub
For Each mysheets In Sheets
mysheets.PageSetup.RightFooter = "マル秘"
Next
End Sub
ポイントは「For Each … In … Next」というステートメントを使うところです。
この方法はフッターやヘッダーのセット以外にも応用できます。
しかし、この程度のことならばマクロは必要ありません。
すべてのシートを複数選択した状態で、ページレイアウト-ページ設定-ヘッダー/フッタータブを選択、という手順(Excel2007の場合)でOKです。
これならばすべてのシートではなくセットしたいシートだけ選択して処理することができます。
[ 2010年6月9日 | カテゴリー: Excel | タグ: tips , VBA ]
« ロッテ、10打席連続安打の日本記録 | ロリポップのサーバ移設で文字化け »
コメントを残す