« イベントログ ログローテッド | Main | オープンオフィス 2.0.2正式リリース »

Mar 30, 2006

エクセル フッダー作成マクロ

エクセルにてフッダーの中央に”ファイル保存先フルパス\ファイル名”、
右端に”ページ数 / ページ総数”を挿入するマクロを作成しました。

----
Sub AutoPath()

Application.ScreenUpdating = False

    Dim myfile As String
   
    mypath = ActiveWorkbook.FullName
   
    With ActiveSheet.PageSetup
        .CenterFooter = mypath
        .RightFooter = "&P / &N"
    End With
       
Application.ScreenUpdating = True

End Sub
----

どのエクセルブックにおいても使用する場合は、個人用マクロブックである
"PERSONAL.XLS"に保存します。

ボタンに登録する場合は、
[ツール] - [ユーザー設定] "コマンド"タブにて
分類を”マクロ”を選びます。
作成したボタンを右クリックして”マクロの登録”をすれば完成です。

←クリック一票

|

« イベントログ ログローテッド | Main | オープンオフィス 2.0.2正式リリース »

VBA」カテゴリの記事

Comments

Post a comment



(Not displayed with comment.)


Comments are moderated, and will not appear on this weblog until the author has approved them.



TrackBack

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/68055/9329415

Listed below are links to weblogs that reference エクセル フッダー作成マクロ:

« イベントログ ログローテッド | Main | オープンオフィス 2.0.2正式リリース »