Excel2000でのフッタのページ番号の設定について
Excel2000でフッタに任意のページ番号を割り振るには、どうしたら良いでしょうか。
ワークシートの印刷1ページ目をページ番号20、続く印刷2ページをページ番号21・・・といったようにしたいです。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

[ページ設定]-[ヘッダー/フッター]-[フッターの編集]で、



&[ページ番号]+20

とすると、質問事項の要求に対しては解決可能です。
    • good
    • 0

こんにちは



 以下の手順でいかがでしょうか?

1.メニュー[ファイル]-[ページ設定]
2.[ヘッダー/フッター]タブで[フッターの編集]ボタンをクリック
3.[中央部]のボックス内をクリックして[ページ番号]ボタンをクリック
→ &[ページ番号] と入力されます。
4.続けて +19 を入力し、 &[ページ番号]+19 とします。
5.[OK]ボタンをクリック
6.[OK]ボタンをクリック

 つまり、

1ページに19を足して20ページ
2ページに19を足して21ページ

ということになります。

参考URL:http://www2.odn.ne.jp/excel/
    • good
    • 0
この回答へのお礼

うまくいきました。ありがとうございました。

お礼日時:2001/02/09 12:46

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QWordでページ番号を増やして印刷するには…

Wordで1ページのアンケート用紙を作り、印刷する枚数の分だけフッダーのページ番号を増やしていきたいと思っています。
しかし、現在の設定では2枚印刷すると、2枚ともページ番号が1のままです。
同じ内容のページを何枚もコピペして作り印刷する以外に、ページ番号だけ増やして印刷する方法はありますか。Wordは2007のバージョンです、お願いします。

Aベストアンサー

No.2の回答者です。

マクロの一部に貼り付けたときの間違いで、おかしな表記に
なっている部分がありました。

誤表記
 ActiveDocument.Sections(1).Footers

(wdHeaderFooterPrimary)

正しくは
 ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
のようにつながっているようにしてください。
2か所ありますので、コピー&貼り付けで利用するときには
修正してください。

ちなみに、今回のマクロはこちら↓を参考にしました。
http://oshiete.goo.ne.jp/qa/2909328.html

Qエクセル2000・シートごとのページ番号とページ数、ブック全体のページ番号と総ページ数

エクセル2000についてお尋ねします。

ヘッダの右側に
   ([シート毎のページ番号]/[シート毎のページ数])
フッタの中央に
   ([ブック全体の通しページ番号]/[ブック全体の総ページ数])
を入力・印刷したいのです。

今までは手入力でフッタのページ番号のうしろに「+前のシートまでのページ数」、[ブック全体の総ページ数]の代わりに数値を直接入力していたのですが、1つのブックにつきシート数が20~60程度ある上にページの追加・削減があるので、もっと簡単なやり方があったら教えてほしいです。

VBAは、まだ勉強を始めたばかりで、ネット上で使えそうなVBAをコピーして自分のエクセルに貼ることしか出来ません^^;
どうか、よろしくお願いします。

Aベストアンサー

こんにちは。

こんな感じでしょうか?
必ずコピー等を取ったテスト用ブックで試して下さい。

ページ数によって、結構処理時間が掛かります。

'---------------------------------------------------------------------
Sub Test()
Dim ws As Worksheet
Dim AllCnt As Integer, pCnt As Integer

 AllCnt = 0
 For Each ws In Worksheets
   AllCnt = AllCnt + PageCnt(ws)
 Next ws

 pCnt = 0
 For i = 1 To Worksheets.Count
  Set ws = Worksheets(i)
  ws.PageSetup.RightHeader = "&P / &N "
  If i = 1 Then
    ws.PageSetup.CenterFooter = "&P / " & AllCnt
  Else
    pCnt = pCnt + PageCnt(Worksheets(i - 1))
    ws.PageSetup.CenterFooter = "&P+" & pCnt & " / " & AllCnt
  End If
 Next i
 Set ws = Nothing
End Sub
'---------------------------------------------------------------------
Function PageCnt(ws As Worksheet) As Integer
Dim h As Integer, v As Integer
  PageCnt = 0
  If ws.UsedRange.Address = "$A$1" Then
    If IsEmpty(ws.Range("A1").Value) Then
      Exit Function
    End If
  End If
  h = ws.HPageBreaks.Count
  v = ws.VPageBreaks.Count
  If v = 0 Then
    PageCnt = h + 1
  Else
    PageCnt = (h + 1) * (v + 1)
  End If
End Function
'---------------------------------------------------------------------

こんにちは。

こんな感じでしょうか?
必ずコピー等を取ったテスト用ブックで試して下さい。

ページ数によって、結構処理時間が掛かります。

'---------------------------------------------------------------------
Sub Test()
Dim ws As Worksheet
Dim AllCnt As Integer, pCnt As Integer

 AllCnt = 0
 For Each ws In Worksheets
   AllCnt = AllCnt + PageCnt(ws)
 Next ws

 pCnt = 0
 For i = 1 To Worksheets.Count
  Set ws = Worksheets(i)
  ws.PageSetup.Right...続きを読む

QWordのページ番号について

バージョンはXPです。
Wordでページ番号をヘッダーとフッターに入れる場合、フッターは総ページ数/1~で良いのですが、ヘッダーには1~ではないページ番号を入れることはできますか?
実は、ファイルが5つほどあり、ヘッダーはそのファイルすべての通しのページ番号を、フッターにはそれぞれのファイルのページ番号を入れたいのです。
よろしくお願いします。

Aベストアンサー

私も、そのままではできないと思います。
少なくとも#2さんの方法ではできませんでしたし、#1さんには是非詳細を教えて戴きたく思います。

で、代替方法になりますが、chisapeさんはフィールドというものはおわかりでしょうか?
通常ページ番号は、ページ番号フィールドというものを使って表示するので、正規のページ番号に通しページ分の数値を足したフィールドを書き込めば、お望みの状態になると思います。

1)ヘッダー・フッターにそれぞれページ数を入れて「ページ番号の書式」で開始番号を「1」にする。
2)1~からではないベージ番号を入れたい方---この場合はヘッダーですね---を表示させ、該当ページ番号を選択してCtrlキーを押しながらF9を押す(フィールド記号の挿入)。
3){ }みたいな記号がページ番号をはさむので、その内側に半角で =<開始したい番号-1>+ と入力する。
 例えば10ページから始めたければ、
  {=9+1} (この場合1はページ番号フィールドです)
4)上の{ }内を選択してshiftキーを押しながらF9を押す(選択範囲のフィールド記号の表示と非表示)。

判りにくければAltキー+F9を数回押してみて下さい(フィールド記号の表示と非表示)。
詳しくは挿入→フィールド→数式と計算 のあたりを調べて下さい。

私も、そのままではできないと思います。
少なくとも#2さんの方法ではできませんでしたし、#1さんには是非詳細を教えて戴きたく思います。

で、代替方法になりますが、chisapeさんはフィールドというものはおわかりでしょうか?
通常ページ番号は、ページ番号フィールドというものを使って表示するので、正規のページ番号に通しページ分の数値を足したフィールドを書き込めば、お望みの状態になると思います。

1)ヘッダー・フッターにそれぞれページ数を入れて「ページ番号の書式」で開始番号を「1...続きを読む

QExcelワークシートの住所録をWordの差し込み印刷で使う方法

 お世話になります。
 前任者が残した年賀状の住所録がExcelのワークシートとして存在しています。
 これを、Wordの差し込み印刷機能を利用して取り込みたいのですが、高度なスキルを持ちません。
 例えば、Excelの当該ワークシートのファイル名が「住所録.xls」で、A列が氏名、B列が会社名、C列が部署、D列が郵便番号、E列が住所・・・というふうに1行が1レコードになっている場合、どのような操作によってWordへ取り込むことができるのでしょうか?

 初歩的な質問で恐縮ですが、ご教示くださると幸いです。

Aベストアンサー

Word2000 差し込み印刷 等のキーワードでググれば幾らでも見付かると思いますよ。

http://www5a.biglobe.ne.jp/~kazama-c/yaku/yaku0207.html
http://www.miyazaki-cci.or.jp/nichinan/pc/case9.html

QWord2013を使用していますが、閲覧モードにするとページ番号が消えてしまいます。

Word2013を使用していますが、閲覧モードにするとページ番号が消えてしまいます。閲覧モード
でもページ番号を挿入する方法はありませんか?

Aベストアンサー

No.1の回答者です。

> [表示]→[列幅]で[狭い]の場合はページ番号はみえませんよね?
私の回答内容をよく読みましたか?

> [表示]→[レイアウト]→[用紙レイアウト]に
このレイアウトにしないとページ番号は表示されませんよ。
([用紙のレイアウト]ではなく[用紙レイアウト]でしたね)

[用紙レイアウト]にしている場合には、[列幅]は無効になるので選択を
することができませんから、[狭い]を選択することもできません。

> [表示]→[列幅]で[狭い]の場合はページ番号はみえませんよね?
この手順ができるということは[表示]→[レイアウト]→[列のレイアウト]に
なっているのですから、ページ番号が表示されないのは仕様です。

[列のレイアウト]はページを無視したレイアウトなので、[ページ番号]も
無視されるということをNo.1の回答に書いてあるはずです。

Q複数のワークシートEXCELで一つのワークシ-トだけ保存

EXCEL2000をつかっています。
10個ほど、ワークシートが作成してあるbookなのですが、あくまで雛型としてのワークシートなので、その都度どのワークシートを使うかは決まっていなく、保存する時(保存する時は違うファイル名)はその使った一つのワークシートだけ保存したいのです。
(通常どおりにbookまるごと保存すると容量が重くなるで困る)
そういうことって出来るのでしょうか?
たとえば「精算書」というファイル名(10個のワークシート)で、
ワークシート名1: 横浜
ワークシート名2: 川崎
ワークシート名3: 東京・・・・
という風に構成されているとき、
2枚目のワークシート(川崎)だけ、別のファイルとして保存するという意味です。
宜しくお願いします。

Aベストアンサー

 ワークシート名2: 川崎のシートの上で右クリックして,「移動またはコピー」
で「移動先ブック名」を新しいブックにして移動して保存するのはどうでしょうか。

QWORDでの複雑なページ番号

WORDで作成した複数のページがあり、
その途中に別の資料などを複数箇所に
いれこんだ場合、
WORDで作成したページのみにページ番号をふる方法を教えてください。

(例)
1、2、3、・・・(資料が入ります)・・・5、6、7
とびとびに連続したページ番号を設定したいのです。

Aベストアンサー

資料が入る前のページの文末にカーソルを移動させ、「挿入→改ページ→セクション区切り→次のページから開始→OK」とすると資料が入る前のページと後のページがセクションで区切られます。セクションで区切られるとページ設定や書式、ページ番号などがそのセクション内で独自に設定できます。前のセクションが1~3ページ、資料が4~5ページ、後のセクションが6ページからとすると、前のセクションの中にカーソルを置き、「ページ番号の挿入→ページ番号→書式→開始番号」で開始を1ページとして、後のセクションにカーソルを移して同様にページ番号の挿入を実施して開始を6ページとすればOKです。

Qエクセル:ワークシートを自動で生成&ワークシート名を自動で割り振り

こんにちは はじめまして

エクセルのワークシートを自動で生成するやり方を教えていただけますでしょうか。

やりたいことは以下の通りです。

何件かお店がありまして、毎日の売り上げ報告がファックスで本部に送られてきます。
そのファックスを見ながら、本部ではエクセルに入力し合計と累計を出すようにしています。

今現在は雛形ワークシートを一つ作り、手動でワークシートを30,31日分をコピーし、ブックには「店舗A2006年3月度分.xls」というようなブック名で保存してあります。
うちの会社は10日締めなので、3月で言うと、20060311から20060410(←数字は西暦)までのワークシートを作ります。

ワークシートのイメージとしてはこんな感じです。↓

シート名:店舗A.xls
ワークシート名:「雛形」
----------------------------
当日の日付
商品A 単価 ○個 小計
商品B 単価 ○個 小計
    ・
    ・ 
         当日の合計
----------------------------

そしてこれの「雛形」を、自動で一か月分ワークシートをコピーするようにしたいのです。(今は手動でやってます)
VBAの本を読んで、For~Next分を使うと、指定した枚数コピーできることはわかったのですが、ご承知の通り30日の月もあれば31日の月もありまして、これを計算で自動に判断するようにできないでしょうか?

欲を言えば、さらにそのワークシート名も自動で「A店舗20060311」というように日付ごとのワークシート名を入れられるようになると助かります。

もっと欲を言えば、各ワークシートの特定のセルに当日の日付を入れてるのですが(セル番地はどこでもいいです)、そこの日付も、ワークシート名と連動して自動で入れられると助かります。

長文になってしまいましたが、どなたか教えていただけると助かります。

よろしくお願いいたします。

こんにちは はじめまして

エクセルのワークシートを自動で生成するやり方を教えていただけますでしょうか。

やりたいことは以下の通りです。

何件かお店がありまして、毎日の売り上げ報告がファックスで本部に送られてきます。
そのファックスを見ながら、本部ではエクセルに入力し合計と累計を出すようにしています。

今現在は雛形ワークシートを一つ作り、手動でワークシートを30,31日分をコピーし、ブックには「店舗A2006年3月度分.xls」というようなブック名で保存してあります。
うちの会社は...続きを読む

Aベストアンサー

申し訳ありません。会社で、サンプルを作成して、帰宅時間になったので、あまり確認せずに、提示してしまいました。
今は、自宅で、再度確認し、修正版を提示いたします。


Dim tmp_dat5 As Date
Dim tmp_dat6 As Integer
Dim cnt As Integer
Dim max As Integer
Dim nen As Integer
Dim getu As Integer
Dim sname As String
Dim tmp_day As String
Dim tmp_getu As String
Dim shop As String
nen = Sheets("Work").Range("A1").Value
getu = Sheets("Work").Range("B1").Value
If getu = 12 Then
nen = nen + 1
getu = 1
Else
getu = getu + 1
End If
tmp_dat5 = DateValue(nen & "/" & getu & "/01")
tmp_dat5 = tmp_dat5 - 1
tmp_dat6 = Day(tmp_dat5)
shop = Sheets("Work").Range("A2").Value
nen = Sheets("Work").Range("A1").Value
getu = Sheets("Work").Range("B1").Value
tmp_getu = Right("0" & getu, 2)
For cnt = 11 To tmp_dat6
tmp_day = Right("0" & cnt, 2)
sname = shop & nen & tmp_getu & tmp_day
Sheets("雛形").Select
Sheets("雛形").Copy Before:=Sheets("雛形")
ActiveSheet.Name = sname
Sheets(sname).Range("L1").Value = nen & "/" & tmp_getu & "/" & tmp_day
Next cnt
nen = Sheets("Work").Range("A1").Value
getu = Sheets("Work").Range("B1").Value
If getu = 12 Then
nen = nen + 1
getu = 1
Else
getu = getu + 1
End If
tmp_getu = Right("0" & getu, 2)
For cnt = 1 To 10
tmp_day = Right("0" & cnt, 2)
sname = shop & nen & tmp_getu & tmp_day
Sheets("雛形").Select
Sheets("雛形").Copy Before:=Sheets("雛形")
ActiveSheet.Name = sname
Sheets(sname).Range("L1").Value = nen & "/" & tmp_getu & "/" & tmp_day
Next cnt

申し訳ありません。会社で、サンプルを作成して、帰宅時間になったので、あまり確認せずに、提示してしまいました。
今は、自宅で、再度確認し、修正版を提示いたします。


Dim tmp_dat5 As Date
Dim tmp_dat6 As Integer
Dim cnt As Integer
Dim max As Integer
Dim nen As Integer
Dim getu As Integer
Dim sname As String
Dim tmp_day As String
Dim tmp_getu As String
Dim shop As String
nen = Sheets("Work").Range("A1").Value
getu = Sheets("Work").Range("B1").Value
If getu = 12 T...続きを読む

QWord 2013で、作成した文書の2ページ目からページ番号を付ける方法について教えてください。

表紙にはページ番号をつけないように「先頭ページのみ別指定」にチェックを入れたら
2ページ目のページ番号を「ページ番号の書式」から「連続番号」欄の「開始番号」をクリックし、「開始番号」ボックスに「1」を入力しても「2」のままで、「1」から始まりません。
最近Wordのオプションをいじっていたので、何か設定を変えてしまったのかもしれません。
どうすれば2ページ目からページ番号を「1」からにできますか?

Aベストアンサー

> 「ページ番号の書式」から「連続番号」欄の「開始番号」をクリック
この手順までは正しい手順ですから問題ありません。
> 「開始番号」ボックスに「1」を入力しても
これは、先頭ページを[ 1 ]にする設定ですから、[先頭ページ別指定]にて
先頭ページにページ番号を表示しないようにしても、先頭ページでの開始
する番号は変わらないので、2ページ目が[ 2 ]になるのは当然です。

希望しているようなページ番号の表示にしたい場合、[開始番号]を[ 0 ]
にして、2ページ目が[ 1 ]になるようにする必要があります。
https://support.office.com/ja-jp/article/2-%E3%83%9A%E3%83%BC%E3%82%B8%E3%81%8B%E3%82%89%E3%83%9A%E3%83%BC%E3%82%B8%E7%95%AA%E5%8F%B7%E3%82%92%E9%96%8B%E5%A7%8B%E3%81%99%E3%82%8B-54077c00-2739-49f0-8a67-1d7cc0420e8c
http://www.wanichan.com/pc/word/2010/06/34.html

> 「ページ番号の書式」から「連続番号」欄の「開始番号」をクリック
この手順までは正しい手順ですから問題ありません。
> 「開始番号」ボックスに「1」を入力しても
これは、先頭ページを[ 1 ]にする設定ですから、[先頭ページ別指定]にて
先頭ページにページ番号を表示しないようにしても、先頭ページでの開始
する番号は変わらないので、2ページ目が[ 2 ]になるのは当然です。

希望しているようなページ番号の表示にしたい場合、[開始番号]を[ 0 ]
にして、2ページ目が[ 1 ]になるようにする必要があります。...続きを読む

QExcelでフッタにページ数を入れるとき

Excel(2002を使用)でフッタにページ数を入れる際、通常なら1ページから入れていくのですが、中途半端なところから(例えば4ページから)入れるにはどうすればいいのでしょうか? 教えてください。お願いします。

Aベストアンサー

フッターの設定で
&[ページ番号]+3
とするか
「ファイル」「ページ設定」「シート」タブの
「先頭ページ番号」を「4」にする。


人気Q&Aランキング

おすすめ情報