スポンサーサイト

    上記の広告は1ヶ月以上更新のないブログに表示されています。
    新しい記事を書く事で広告が消せます。

    Excelで自動更新目次をつくる!

    こんちわ。
    久しぶりの投稿です。
    今回はExcelのTips
    Wordには、自動的に更新してくれる目次を作成する機能がありますが、
    Excelにはありません。
    それをExcelで実現するためのマクロを紹介します。
    (ただし、自動的に更新できるのは、ページ数のみ。目次が勝手に増えたりはしません・・・)

    といっても普通のマクロではなく、Excel4.0のマクロとかいうやつで、
    Excelの名前の管理の画面で使うやつです。

    はじめてみたときは、そんなところに関数かけるんだ・・。と思いました。
    しかも、普通のマクロで使えない関数がそこに書けることにも驚愕・・。

    ExcelでCtrl+F3を押すと「名前の管理」という画面が出てきます。
    そこで、新規作成を押して、下記を設定します。(3つ作ります)
    1つ目
     名前     :シート別総ページ数
     参照範囲 :=GET.DOCUMENT(50)+NOW()*0


    OKを押してもう一度

    2つ目
     名前   :改ページ行番号配列
     参照範囲:
    =GET.DOCUMENT(64)+NOW()*0

    OKを押してもう一度

    3つ目
     名前   :
    ページ番号
     参照範囲:
    =MATCH(ROW(),改ページ行番号配列,1)+1

    OK→閉じる で「名前の管理」を閉じます。

    これで下準備完了。

    続いて、各シートの任意のセル(たとえばA1とか)に、
     「=シート別総ページ数」
    を設定します。
    これは、名前のとおりですが、そのシートを印刷したときの、そのシートの総ページ数を返してくれます。
    (ブック全体のではなく、あくまでシート別のページ数です)

    これで、各シートのページ数がわかるので
    目次シートに、この各シートの総ページ数のセルを参照して、目次を作ります。

    各シート内の任意の位置のページ番号まで記載したい場合は、
    たとえば、その節の開始行とかに、
     「=ページ番号」
    を設定してやるとそのセルにソノシート内のページ番号が入るので
    それを目次シートで前のシートまでの総ページ数の和に足すなりすればOKです。

    ちなみに、「名前の管理」で設定した
    シート別総ページ数と、改ページ行番号配列
    のマクロの最後についている
    「+Now()*0」
    は、値更新のためについています。
    これがないと、F9とかで再計算させても値が変わってくれません。
    逆にこれがあると、再計算のたびに、ページ数を計算するので若干再計算が重くなります・・。
    再計算を手動にするか、設定が終わった跡に、上記マクロの最後の「+Now()*0」をはずしておくかしておくことを
    お勧めします。

    今回は面倒だったので画像は省略しました。あしからず・・・。

    スポンサーサイト

    テーマ : エクセル
    ジャンル : コンピュータ

    コメントの投稿

    管理者にだけ表示を許可する

    プロフィール

    ざっち

    Author:ざっち
    ざっちのーと
    ♪自由なSEのメモ帳です♪

    ざっちのスキル一覧
    ----------------
    上級(手足も同然!)
    ・.net FrameWork
    ・C#
    ・SqlServer
    ・VisualBasic6.0
    ----------------
    中級(だいたいOK!)
    ・WPF(XAML)
    ・Android
    ・WindowsMobile6.5
    ・HTML
    ----------------
    下級(や、やればできるさ!)
    ・PHP
    ・JavaScript
    ・SilverLight
    ・SQLite
    ・Python(だってjetCreaterが・・・)
    ・C++(OpenCVいじってみたくて・・・)
    ----------------
    最近のお気に入り
    ・WPF(XAML)
    ・Android
    ・GoogleAPI
    ----------------

    最近の記事
    月別アーカイブ
    カテゴリー
    夢見る羊さん
    地球の名言Ⅱ

    presented by 地球の名言

    Twitter...A

    Twitter < > Reload

    ブロとも申請フォーム

    この人とブロともになる

    ブログ内検索
    RSSフィード
    リンク
    上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。