エクセルで各ページに同じ文書を打ちたい

エクセル2002を使用しています。
全部で5000行あるデータを出力する際、
各ページの右に同じ文言を出力したい
と考えおります。

文書例:
「別紙様式 5
　これは大事な文書です。」

各ページに同じものをコピーするのは
現実的ではありませんので何か良い方法
がありましたら教えてください。
よろしくお願いいたします。

No.6 ベストアンサー 回答者： imogasi 回答日時： 2003/02/28 21:46

ＶＢＡなら出来そうです。

ｊ列までデータがあり、L列より右列にコメントを入れる
とする。
Sub test01()
l = Range("a2").CurrentRegion.Rows.Count
g = 40 '１ページ当たりのデータ行数
w = Int(l / g) + 1
For i = 1 To w
Cells((i - 1) + 1, 12) = "コメント１"
Cells((i - 1) + 2, 12) = "コメント２"
Cells((i - 1) + 3, 12) = "コメント３"
・・・・
（1,2,3と12は適当に変え、コメントのための列や行を増やしてください）

Range(Cells((i - 1) * g + 1, 1), Cells(i * g, 12)).PrintOut
Next i
End Sub

この回答へのお礼

丁寧な回答に感謝いたします。
VBAの知識はありませんががんばって
記述してみたいと思います。
どうもありがとうございました。

お礼日時：2003/03/03 08:47

No.5 回答者： drnelekin 回答日時： 2003/02/28 20:57

ヘッダ／フッタの設定にある「オプション」をクリックすると、プリンタの設定に飛んで、「スタンプマーク」というのを使ってできそうな気がします。

でも、これはプリンタの仕様にも依りますか…。

この回答へのお礼

残念ながら今使用中のプリンタでは
「スタンプマーク」とういのは存在
しませんでした。
しかしながら、いつの日にか役に立つ
日がくると思いますのでしっかり記憶
しておこうと思います。
どうもありがとうございました。

お礼日時：2003/03/03 08:46

No.4 回答者： telescope 回答日時： 2003/02/28 16:45

「別紙様式 5

　これは大事な文書です。」

と印刷した紙にデータを印刷すればいいんじゃないですか？

好きな位置にコピー機で必要枚数コピーしておけば簡単に出来ます。

すべてをExcelの機能でやろうとすると、大変な苦労をすることになります。

この回答へのお礼

それも一理あります。
最終的にはそれを考えていますが
この際、テクニック向上のために
もと思いまして質問してみました。
どうもありがとうございました。

お礼日時：2003/02/28 16:59

No.3 回答者： kiyoto 回答日時： 2003/02/28 16:19

エクセル２０００の場合ですと、

下記の方法でできます。

（案１）
１．シートのシート名のタグを右クリックします。
２．「全てのシートを選択」をクリックします。
３．作業グループ化できるので、セルに文言を入力します。

（案２）
ページ設定のヘッダやフッタに記述する。

どうでしょうか？

この回答への補足

ありがとうございます。
やりたいのは同一シート内に５０００行ほど
あり各ページに同じものを出力したいのです。
ただ、実際は長い文書を表示させたいのと
内容的にヘッダー、フッターには出力させ
られないものです。
どうかよろしくお願いいたします。

補足日時：2003/02/28 16:47

No.2 回答者： wolv 回答日時： 2003/02/28 16:05

私のはExcel2000ですが、

メニュー→挿入→ヘッダー・フッター

で、各ページの上か下に同じ文章を挿入できます。

上下ではなく、どうしても右がいいですか？

この回答への補足

ありがとうございます。
どうしても右側に打たないといけないのです。
すみませんがよろしくお願いいたします。

補足日時：2003/02/28 16:15

No.1 回答者： tbobi 回答日時： 2003/02/28 16:04

ヘッダーかフッターに書き込むのはどうですか？

画像も入れられますよ。

それか、ワードの「透かし」のようにして、シートの背景に設定するなどの方法もあると思います。