エクセルで表を作っていますが、その中の一列たとえば支店名等を見出しとして印刷することはできないのでしょうか。
もちろんそれぞれの支店の内容が1ページとは限りません。よろしくおねがいします。

A 回答 (3件)

勘違いだったら申し訳ありません。


シート名を支店にする。そうすれば、二ページ目も入ります。
もしくは、ファイル-ページ設定-シート-印刷タイトル-行のタイトルで支店名を入れた行を選択し、印刷すれば良いのでは?
ただ、どちらも、支店毎に、シートを分ける必要がありますが。
見当違いだったら、ごめんなさい
    • good
    • 1
この回答へのお礼

ありがとうございました。
がんばりま~す。

お礼日時:2002/02/14 13:11

直接回答でないのでゴメンナサイ。



1.エクセルで支店名等を見出しとして印刷する為には、
 1)並び替えしてある
 2)支店名等で改頁する
 上記を実現させなければいけません。
 したがってマクロを作成しなければいけません。
 かなり難しい。
2.エクセルのデータをアクセスに取りこみ印刷する(お勧め)
 アクセスを立上げ
 ファイル→外部データの取りこみ→テーブルのリンク
 上記の作業でエクセルを更新してもアクセスも開くだけで更新しているので
 アクセスで印刷すれば良い

頑張って下さい
何かあれば補足して下さい
http://www.mahoutsukaino.com/
http://www.accessclub.jp/
http://www2.odn.ne.jp/excel/waza/

参考URL:http://www.mahoutsukaino.com/,http://www.accessclub.jp/,http://www2.odn.ne.jp/excel/waza/
    • good
    • 0
この回答へのお礼

支店毎の改ページまではできているのですか゜
エクセルだと難しいようですね。
アクセスは使った事がないのでまた勉強します。

お礼日時:2002/02/14 13:16

表が複数ページにまたがる場合、1列目に入力されている見出し列が


1ページ目だけでなく、2ページ以降も先頭列に印刷されるようにしたい

ということでよろしいでしょうか。

そうであれば、過去に同様の質問と回答があります。
(行を列と読みかえてください)

もし、質問をうまくくみ取れてなかったらごめんなさい。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=77655
    • good
    • 0
この回答へのお礼

少し質問の仕方が悪かったようです。
ありがとうございました。

お礼日時:2002/02/14 13:13

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

Qエクセルの行タイトルを特定のページにつけたい。

エクセルで、6ページに渡って印刷されるシートがあるのですが、
今、行のタイトルを前ページに印刷されるようになっています。
これを、最後の2ページだけ、行のタイトルを表示しないようにする
方法ってありますでしょうか。
シートを分けるしかないのでしょうか。
ご回答よろしくお願いしますm( _ _ )m

Aベストアンサー

Excelを長年使っていますが、私の知る限り特定のページだけに行のタイトルを印刷する事は難しいと思います。

恐らく、最初の4ページと最後の2ページは表の形式が違うという事だと思いますので、最後の2ページは別シートにする事をお勧めいたします。

あるいは既に表が完成していて、行の追加などがないのであれば、行タイトルを直接ページの切れ目の部分に挿入するというローテクもできないわけではないですけどね。あまりお勧めではありません。

Qマクロ 印刷タイトルを2ページ目以降変えたい

添付画像の表を印刷する際に、
【1ページ目】
1~3行がタイトル
4~49行がデータ

【2ページ目以降】
3行目だけがタイトル
50~95行がデータ

【最終ページ】
3行目だけがタイトル
データ行は月ごとに変わります。

上記にて印刷をしたいです。


これを設定するマクロコードを教えていただきたいのですが。
情報がたりなければご指摘ください。
よろしくお願いします。

Aベストアンサー

>4~49行がデータ
>50~95行がデータ
この行数、つまり45行入るかどうかは、このマクロは考慮されておりません。最初、プレビューから、マージンなどで、調整して納まるようにしてください。

また、一応、垂直改行は考慮はしていますが、1ページに収まらない右にはみ出た分に関しては、処理できません。
もし、とのようなスタイルでも、希望の行数にするなら、手動改ページを入れるなど、別のマクロが必要です。

'//
Sub PrintOutMacro()
 Dim i As Long
 Dim sPrintArea As String
 Dim HPage As Long
 Dim VPage As Long
 Dim PageTotal As Long
 Dim FirstPage As Integer
 Dim LastRow As Long
 Dim RightCol As Long
 With ActiveSheet
  '-------------------------------
  '印刷範囲再設定
  LastRow = Cells(Rows.Count, 1).End(xlUp).Row
  RightCol = Cells(4, Columns.Count).End(xlToLeft).Column
  sPrintArea = Range("A4", .Cells(LastRow, RightCol)).Address
  .PageSetup.PrintArea = sPrintArea
  '-------------------------------
  FirstPage = 1 '最初のページ
  On Error Resume Next
  'ページ数の算出
  HPage = ExecuteExcel4Macro("COLUMNS(GET.DOCUMENT(64))") - 1
  VPage = ExecuteExcel4Macro("COLUMNS(GET.DOCUMENT(65))")
  On Error GoTo 0
  PageTotal = Int(HPage * VPage) 'ページ総数
  '誤動作のための保守
  If PageTotal <= 2 Then
  If MsgBox("ページが、" & PageTotal & "枚しかありませんがよろしいですか?", _
   vbQuestion + vbOKCancel) = vbCancel Then Exit Sub
  End If
  For i = FirstPage To PageTotal
   If i = 1 Then
    .PageSetup.PrintTitleRows = "$1:$3"
   Else
    .PageSetup.PrintTitleRows = "$3:$3"
   End If
   .PrintOut From:=i, To:=i ', Preview:=True ''外すとプレビューになる
  Next i
 End With
End Sub
'///

>4~49行がデータ
>50~95行がデータ
この行数、つまり45行入るかどうかは、このマクロは考慮されておりません。最初、プレビューから、マージンなどで、調整して納まるようにしてください。

また、一応、垂直改行は考慮はしていますが、1ページに収まらない右にはみ出た分に関しては、処理できません。
もし、とのようなスタイルでも、希望の行数にするなら、手動改ページを入れるなど、別のマクロが必要です。

'//
Sub PrintOutMacro()
 Dim i As Long
 Dim sPrintArea As String
 Dim HPage As Long
 Dim...続きを読む

QEXCELで上2行を固定で印刷したい

EXCELで、上の2行を項目の題名にしたくて、その題名は、2ページ以降もその
2行を題名として印刷したいのですが、どのようにしたらよいでしょうか?

現在は、上の2行に題名をかいて3行目をすべて選択してウィンドウの固定を
選んで、ウィンドウの固定には成功したのですが、印刷プレビューを見ると
1ページ目だけしか題名がなくて困ってます。
ヘッダーとかの設定ではなく、上の2行を毎ページの先頭にするように
したいです。
少しでも知恵を貸していただければ嬉しいです。
よろしくお願いします。

Aベストアンサー

上2行ということは表のタイトル行を毎ページ印刷したいということですか?
それとも表の題名のことでしょうか。

でも、ヘッダーを使わないでということならどちらも、
メニューバー「ファイル」→「ページ設定」→「シート」タブ→「印刷タイトル」の「行のタイトル」へ「$1:$2」と入力

これで「印刷プレビュー」で確認してみて下さい。

ちなみに「ウィンドウの固定」は、あくまでも表示されているセルを見やすくするためのものなので、印刷には反映されません。

#お分かりかとも思いますが・・・(^^;;)

QEXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには

お世話になっております。
タイトルの通りの質問なのですが、
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するにはどうすればよいのでしょうか?

たとえば、A1のセルに「ABC」と入力されていたとします。
その「ABC」をヘッダーに自動的に出力できるようにしたいのです。
できればマクロは使いたくありません。

宜しくお願いします。

Aベストアンサー

「表示」メニューの「ヘッダーとフッター」では、セル参照を指定することはできません。
「行タイトル」や「列タイトル」しか使用できません。
「行タイトル」を使用するには「ファイル」メニューの「ページ設定」で「シート」タグを選択してください。
ここで「行タイトル」にA1でしたら1行目を選択すればOKです。
ただし、行丸ごとですので注意してください。

Q【Excel】複数のタイトル行を設定する方法を教えてください

Excel2002を使用しています。

タイトル行を複数設定する方法をご教示頂きたく、投稿させて頂いております。

数ページに渡って印刷する際に、行や列タイトルを設定すると各ページにタイトルを表示したまま印刷することが可能ですよね。

[ファイル]-[ページ設定]-[シート]タブ内の”印刷タイトル”で「行のタイトル」と「列のタイトル」を指定しています。

例えば、A1~Z100の表があるとします。

A~D列を固定し、1~5行目と50~100行目をタイトルとして固定したい場合はどのように設定すればよいのでしょうか。

複数行に渡って行を固定するには、マクロを組まなければならないのでしょうか。

今までマクロを組んだことがないのですが、精一杯努力致しますので、どなたか設定方法をご教示頂ければ幸いです。どうぞ宜しくお願い致します。

Aベストアンサー

タイトル行に設定したい(しなければならない?)行が2箇所あるということですか?

残念ですが、そんなことはできませんね。
マクロでも無理ですよ。
Excelの機能を越えちゃってます。
表の作り方を工夫した方が良いと思いますよ。2つにわけるとか。

Qexcelからexcelへの差し込み印刷

お世話になります。

excelでwordへの差し込み印刷をよく利用するのですが、
同様に、
excelのデータをexcelに流し込んで印刷する方法はありますでしょうか。

excelの名簿のデータを
excelの表のフォーマットに流し込んで
1人づつ印刷したいのですが。

お分かりの方いらっしゃいました教えてください。
どうぞ宜しくお願い致します。

Aベストアンサー

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

上記の品をお送り申し上げます。
ご査収ください

以上
Xの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,2,FALSE)
Yの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,3,FALSE)
Zの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,4,FALSE)

---
結果

送り状

住所山田 三郎
氏名東京都江東区

品物かばん

上記の品をお送り申し上げます。
ご査収ください

以上
ここで
VBE画面で標準モジュールに
Sub test01()
For i = 1 To 2 '人数分
Range("H1") = i
Range("A1:G20").PrintOut '印刷範囲は各人同じとする
Next i
End Sub
を張り付け、実行する。
山田、植田分の紙が2枚印刷されました。
これは質問者はVBAの経験も無いでしょうと、最低限にしてあります。
VBAを勉強してください。
別ブックにある名簿を対象などは複雑になるので避けています。

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

...続きを読む

Q改ページの2ページ目の作り方

エクセルで、改ページプレビューを押すと、
青い線が出てきて印刷範囲を指定できますよね?
あれでA4一枚で印刷できる大きさなんですけど
2枚に分けたい時はどうすればいいのでしょうか?
増やそうとしても一枚目の範囲が大きくなるだけ
なんです。
質問の仕方がうまくなくて申し訳ないです。

Aベストアンサー

上下に分けたい場合、分割したい行の行番号を右クリックして改ページ挿入。
左右に分けたい場合、分割したい列の列番号を右クリックして改ページ挿入。

Qエクセルでページ数をあるセルに表示させたい

どこかのセルに、そのシートで印刷される
ページ数を表示するような計算式orマクロはありますでしょうか。
質問が分かりにくかったらすみません。

Aベストアンサー

次の方法は如何でしょうか。
(1)挿入→名前→定義で名前欄に任意名(仮にaaa)、参照範囲欄に =GET.DOCUMENT(50) →OK
(2)表示セルを選択→F3キー押下→aaaを選択→OK→enter

QEXCEL、マクロ-改ページ行番号の取得方法を教えてください

EXCELで作成した表を印刷したいのですが、表が縦長で複数ページにわたります。
そこで各ページの下端にそれぞれ罫線を挿入するマクロを書きたいのですが、
改ページ位置の取得方法がわかりません。各ページの上端行でも下端行でも良いので
行番号を取得する方法はないものでしょうか?

どなたかご教授願います。

マクロ全体としては下記を考えています。

1.データの下端行の取得
2.印刷範囲の設定(横1ページ×縦複数ページ)
3.最初の改ページ位置の取得
4.ページ下端セル行の下に罫線を入れる
5.次の改ページ位置の取得
6.以下、データ最下端行まで繰り返し

(各行のセルの高さは一定ではないです。)

Aベストアンサー

難しく考えず、フッターを使ったらいかがでしょう。
フッターの1行目をスペースで連打し、フォントの設定で下線を選びます。
これで下線が表示され、丁度データと境になるのではないですか?

どうしても改ページ位置取得なら、HPageBreakオブジェクトのLocationプロパティを使ってみたらどうでしょう。
HPageBreaks (HPageBreakオブジェクトのコレクション)
ActiveSheet.HPageBreaks.Count (改ページ総数)
ActiveSheet.HPageBreaks(1).Location.Row (一番目の改ページの行)
Location.Rowで改ページの行が分ります。

Qエクセルでページごとにタイトルの行を自動で挿入したい

エクセルでページごとにタイトルの行を自動で挿入したいと考えていますが、可能でしょうか?
印刷した際に、そのタイトルが各ページごとの一番上に表示されるように設定したいです。
お手数ですが、そのような方法が可能であれば教えてください。(今は、手動で行を挿入していますが自動で行いたいと考えています)宜しくお願いします。

Aベストアンサー

ファイル > ページ設定 > シート
印刷タイトル

にタイトル範囲を指定

上記方法でお望みの結果になりませんでしょうか?


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング