« イベントログ ログローテッド | 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


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

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