Excel(XP)の質問。

自動的に行われる改ページにより縦に長い表がページ間にまたがる際、「次頁に続く」「前頁から続く」と自動的に入れたい。
この方法を教えてください。

「ここで検索すると出てくるかも」というような回答は却下です。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2004/12/21 16:23:21
  • 終了:--

回答(3件)

id:nekogo No.1

nekogo回答回数113ベストアンサー獲得回数22004/12/21 16:32:41

ポイント10pt

http://arena.nikkeibp.co.jp/tec/excel/20040304/107487/

ヘッダーとフッターを指定する - デジタル - 日経トレンディネット

ヘッダとフッダに「次頁に続く」「前頁から続く」という文字を入れればいいのでは?

id:t-ueno

最初のページに「前頁から続く」というのが入ってしまうのでは?

最後のページに「次頁に続く」が入ってしまうのでは?

2004/12/21 16:35:49
id:sandaler No.2

sandaler回答回数671ベストアンサー獲得回数02004/12/21 17:01:14

ポイント50pt

http://homepage3.nifty.com/bear/vbatec/vbatec94.htm

ページ毎にヘッダーを指定する

こちらを参考にして、全頁を1度に印刷せず、1頁ごとにヘッダーフッターを書き換えて、1ページごとに印刷。

id:Im_Me No.3

Im_Me回答回数301ベストアンサー獲得回数62004/12/21 17:09:54

ポイント50pt

10 最終ページだけのページ番号の横に「終了」と入れるには?

を参考にしてください。

例は最終ページだけに”終了”を入れていますが、

If LastPage > 1 Then

中の

   ’フッター中央部にページ数を指定

   .PageSetup.CenterFooter = cFooter

の処理に、「次頁に続く」「前頁から続く」を追加すればOKです。

(※1ページ以上ある場合、最終ページ以外は両方の記述がつく事になりますよね?)

id:t-ueno

後の2名の方、ありがとうございました。

やはりマクロでしかできそうにないですね。

参考にさせていただきます。

最初の方、誰もがまず最初に思いつく方法を深く考えもせずに回答していただいたことに敬意を払ってポイント差し上げます。

2004/12/21 18:02:26
  • id:nekogo
    ポイントはお返ししておきました。

    回答がお気に召さなかったようなのでマクロを組んでいましたが、時間的に回答が間に合わないと思ったのでポイントはお返ししてあります。

    すみません。
  • id:garyo
    こんな感じ

    2番の回答を元にするとこんな感じでは?

    Sub MyPrintOut()
    With Worksheets(1)
    For i = 1 To .HPageBreaks.Count + 1
    If i > 1 Then
    .PageSetup.CenterHeader = ”前頁から続く”
    Else
    .PageSetup.CenterHeader = ””
    End If
    If i < .HPageBreaks.Count + 1 Then
    .PageSetup.CenterFooter = ”次頁に続く”
    Else
    .PageSetup.CenterFooter = ””
    End If
    .PrintOut from:=i, To:=i, Copies:=1
    Next
    End With
    End Sub
  • id:t-ueno
    Re:ポイントはお返ししておきました。

    仕事がかなり切羽詰っているので手短にしか書けませんが・・・

    回答が気に入らないなら気に入らないで、素直に0ポイントにするべきでした。余計な手間を取らせて申し訳ありませんでした。

    又、嫌味と取られる態度、猛省しております。
    おそらくかなり気分を害されていると思います。こちらこそすいませんでした。
  • id:t-ueno
    Re:こんな感じ

    どうもありがとうございます。

    こちらでもマクロを組んでやってみたのですが、実は求められていることはもっと複雑で、単純にページの切り替わり時だけを見るだけでは対処できないことが判明しました(かなり大変なのでショックを受けています)。

    せっかく提示していただいたのにすいません・・・
  • id:nekogo
    Re(2):ポイントはお返ししておきました。

    >回答が気に入らないなら気に入らないで、素直に0ポイントにするべきでした。余計な手間を取らせて申し訳ありませんでした。

    いえ。私も質問を中心にしているので、自分が求めているものと違う回答をいただいたことが何度かあります。回答をオープンするだけでポイントをとられるのが一層腹立たしいんですよね。お気持ちはよく分かるつもりです。

    回答者はポイントを返すことで質問者に詫びることができますが、質問者はキャンセルという自分の評価を傷つける手段しか選べないので、それも含めればやはり質問者は不利だと思っていますし・・・・・。

    私はお役に立てませんでしたが、t-uenoさんの急ぎの仕事がうまくいきますように・・・・・<(_ _)>
  • id:yasukana
    Re:こんな感じ

    garyoさんに3000点
  • id:garyo
    Re(2):こんな感じ

    >garyoさんに3000点
    ポイントでなく点なんですね_| ̄|○

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません