エクセルで表を作り、ページの一番下に小計を出したいのですが、
ページ数が多い場合毎ページ小計を入れると大変なので何か良い方法は
ないでしょうか。
途中に行を挿入した場合、訂正が大変なので
フッターに入れることができたら良いと思うのですが
どうでしょうか。

A 回答 (2件)

同様の質問が 1987 「エクセルのタイトル」 (QNo.74348)にあり、答えています。

参考にして下さい。
これはエクセルの機能を使って実現するのは困難と思ってマクロで実現しています。
他に、Accessに読み込んで印刷する方法もあります。(これが一番簡単と思います)
    • good
    • 0
この回答へのお礼

ありがとうございます。
早速やってみます。
やはりマクロを使わずに、というのは無理でしょうか。

お礼日時:2001/05/24 19:53

こんにちは



 メニュー[データ]-[集計]の[グループ毎に改ページを集計する]と[集計行をデータの下に挿入する]を使ってみるのはいかがでしょうか?
    • good
    • 0
この回答へのお礼

janmaさんに教えていただいた方法もnishi6さんに教えて
いただいた方法も試してみました。
とっても参考になりました。
場合によって使い分けたいと思います。
ありがとうございました。

お礼日時:2001/05/25 11:45

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

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

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

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

Qエクセルでページ毎の小計から最終ページで合計を出したい。

各ページ毎に小計を出し、最終ページにおいて、小計の下に合計を計算するような表があります。
毎回、ページ数の増減があります。
合計にどのような小計の集計の式を作成したら、よいでしょうか?

お教えくださいますよう、お願いいたします。

Aベストアンサー

Tinker-Bellさま、こんばんは。

SUBTOTAL関数がおすすめです。
この関数を使えば、「小計」を出すことができます。
しかも、小計は合計の計算対象からはずれます。

具体例で説明しましょう。

(1)
1ページ目のデータがA1:A3にあるとして、
小計をA4に出す場合、
 =SUBTOTAL(9,A1:A3)
とします。9は演算方法のオプションで、
「足し算(小計)」の意味です。(詳しくはヘルプ参照)
とりあえず、A4にA1:A3の小計がでたのがわかりますか?

(2)
2ページ目のデータがまた、A5:A7にあるとして、
小計を(1)と同様の方法でA8に入力します。
 =SUBTOTAL(9,A5:A7)

(3)
最終ページにて、合計を出すには、
小計行を含めた全データ範囲を対象にして、
SUBTOTAL関数で合計します。
このとき、小計は自動的に合計の計算対象からはずれます。
たとえば、A9で合計を求めるなら、
 =SUBTOTAL(9,A1:A8)

Q印刷時に、複数ページに共通な部分(下部)をつけたいです!!

行のタイトルの機能では、タイトル部分しか、複数ページに共通な部分がつけられないと思うのですが、下の部分に共通箇所をつけたいのです。例えば、複数ページにまたがるデータで、上(タイトル)と下部分を固定させ、中にはさまれている部分の内容は、それぞれ変わって印刷を行いたいです。こういうことは可能でしょうか?教えてください。よろしくお願いしますm(__)m(バージョンはExcel97での作業になります。)

Aベストアンサー

質問にあるような処理をVBAを使って行っています。(Excel97)

似たような質問に回答したことがありますのであげておきます。QNo.74348が質問に一番近いかもしれません。ご参考に。

 QNo.268034
  Excelのフッター
    http://www.okweb.ne.jp/kotaeru.php3?q=268034

 QNo.74348
  エクセルのタイトル
    http://www.okweb.ne.jp/kotaeru.php3?q=74348

 QNo.246976
  このような事、エクセルでできますか?
    http://www.okweb.ne.jp/kotaeru.php3?q=246976

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

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

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

宜しくお願いします。

Aベストアンサー

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

Qエクセルのタイトル

エクセルの最初の行を改ページしても、印刷したい場合は
ページ設定で、行のタイトルで設定するのはわかるのですが、
最初の行と最後の行両方を繰り返し印刷できるようにしたいんです
よい方法がありましたら、よろしくお願いします。
ちなみにエクセル97をつかってます。

Aベストアンサー

このような表を想定してみました。手順を追って試してみてください。

<Sheet1>データが入力されているシート  <Sheet2>印刷用のシート 
   A   B   C   D       A   B   C   D
 1 項目1 項目2 項目3 項目4  11   ***×××の明細表***
 2 AA  A1    1 101  12 項目1 項目2 項目3 項目4
 3 AB  A2    2 102  13 AA  A1    1 101
 4 AC  A3    3 103  14 AB  A2    2 102
 5 AD  A4    4 104  15 AC  A3    3 103
          :                ┌─────────┐
97 ZX  A9   97 197  16     │ページ計 3件  │
98 ZY  A9   98 198         ├───┬─────┤
99 ZZ  A9   99 199  17     │確認印│     │
                           └───┴─────┘
                    18       1/33

1.表のデータ列は4列あって、印刷は1頁に3行と仮定します。(変更できます)
2.表題部分と頁の下部を作成してください。
3.上の例でいえばSheet2のA11からD18が印刷範囲になります。
4.Sheet2のセル範囲A13:D15に範囲名pAreaを付けておきます。
5.フッタに頁を印刷するために18行目の任意のセルに範囲名pPageを付けておきます。
6.下のマクロをコピーして標準モジュールに貼り付けて下さい。
   Const Prow = 3・・・1頁に印刷する行数
   Const Pcol = 4・・・1頁に印刷する列数 を実際のシートからセットして下さい。
    標準モジュールはメニューからツール→マクロ→Visual Basic Editor で
    VBE画面を起動して下さい。
    それからVBE画面で挿入→標準モジュールとします。
7.シートに戻って ツール→マクロ→マクロ でInsatu を実行します。
   今は印刷プレビューです。PrintPreview→PrintOut とすれば印刷します。

Public Sub Insatu()
Dim rg As Range 'データの基準位置
Set rg = Worksheets("Sheet1").Range("A1")
Dim pArea As Range '印刷データ部分
Set pArea = Worksheets("Sheet2").Range("pArea")
Const Prow = 3 '***これをセットする***
Const Pcol = 4 '***これをセットする***
Dim modePage As Integer '1頁印刷件数
Dim maxPage As Integer '最大印刷頁
'
Dim rw, cl, pgCot As Integer '行、列、頁カウンタ
maxPage = Int((Worksheets("Sheet1").UsedRange.Rows.Count - 2) / Prow) + 1
For pgCot = 1 To maxPage
For rw = 1 To Prow
For cl = 0 To Pcol - 1
pArea.Cells(rw, cl + 1) = rg.Offset((pgCot - 1) * Prow + rw, cl)
Next
Next
Range("pPage") = pgCot & "/" & maxPage
ActiveSheet.PrintPreview '.PrintOut
Next
End Sub

このような表を想定してみました。手順を追って試してみてください。

<Sheet1>データが入力されているシート  <Sheet2>印刷用のシート 
   A   B   C   D       A   B   C   D
 1 項目1 項目2 項目3 項目4  11   ***×××の明細表***
 2 AA  A1    1 101  12 項目1 項目2 項目3 項目4
 3 AB  A2    2 102  13 AA  A1    1 101
 4 AC  A3    3 103  14...続きを読む

Qこのような事、エクセルでできますか?

98でエクセル2000を使用しております。

できるかどうかというのは、
仕事で表を作り、どんどん行が増えていき、並び替えを常にします。
普段は見えなくてもいいが、プリントアウトをした時にページの最後に小計を常に出したい。それもプリントアウトした全ページにです。

現在は表の並び替えをしてから、プレビューを見てページの最後の行を確認してから、最後の行の下に行の追加をしてページ集計をしてプリントアウトしています。

上記のような事をせずに、1ページに20行なら20行と決めて並び替えをしてプリントアウトした時にページ小計を出せるようにできるでしょうか?

説明がヘタで申し訳ありませんが、もしもできる方法があればお願いします。
できなければ、「それはできない!」で決行です。
よろしくお願いします。

Aベストアンサー

前に似たような質問を読んだ記憶があり、検索したらありました。

マクロを使わないとうまくできないみたいですが、不可能ではないようです。

参考にしてください。
(2番目の方が質問内容が近いですが、2番目から1番目を参照してください、となってるので、この順番にしました。)

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=74348,http://oshiete1.goo.ne.jp/kotaeru.php3?q=80596

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添付ファイルの拡張子がemlとなっているファイルの開け方

最近友人よりの添付ファイルの拡張子がemlとなっている為、開くとワードパット
で開いてしまい、文字化けして読めません。
ワードやエクセルにて読めるようにしたいのですが?
どうしたらよいのでしょうか?
当方IE5.5使用 OSはMEです。

Aベストアンサー

>添付ファイルの拡張子がemlとなっている為

Winodws98の方法ですがMeでもいけると思います。

1.このファイルを一旦、デスクトップとかに保存して
2.そのファイルを「Shift」キーを押しながら右クリック→「アプリケーションから開く」をクリック
3.Outlook Expressを選択
 一覧に無い場合は、「参照」をクリックして
 C:\Program Files\Outlook Express\msimn.exe
 を選択します。
4.「この種類のファイルを開くときは、いつも
   このアプリケーションを使う」のチェックを入れます

Qユーザーフォームを表示中にシートの操作をさせるには

ユーザーフォームを表示中にシートの操作をさせる事はできるのでしょうか。
セルへの入力、画面のスクロールなどは、ユーザーフォームからマクロを実行させたり、.hideでユーザーフォームを一時的に隠すなどすればいいのでしょうが、そういう手段をとらないでユーザーフォームを表示中にシートの操作をさせる事はできるのでしょうか。

Aベストアンサー

ユーザフォームの
ShowModalプロパティを
falseにすればよいかと。

QエクセルのIF文で「NOT=」はどう書くのですか?また、>=や<=の場合の書き方を教えてください

タイトルのとおりです

IF文で下記の3つの書き方がわかりません。

NOT=は、<>?
0以外の場合は、A1<>0?

A1が0と同じか、大きい場合は
A1>=0?

なんだか、うまくいきません^^;

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

Aベストアンサー

A1が・・・・・
A1 <> 0  0以外
A1 >= 0  0以上(0を含む)
A1 > 0   0より大きい(0は含まない)
A1 <= 0  0以下(0を含む)
A1 < 0  0未満
A1 = 0  0

=<,=> などの書き方は使えません。

QVBAで印刷ページ最終行にページ計表示印刷したい

いつもこのサイトでは有益な情報ばかりで大変助かっています。
質問ですが表題どうりで200行20列程度の行方向可変の集計表なのですが印刷する際に、表の最終行に表の合計は表示、印刷ともできるのですが、
各頁(40行程度)の合計はどのようにコードを書けば良いのかどなたか教えていただけないでしょうか。

Aベストアンサー

お待たせしました。
ちょとやぼ用がありアップが遅れたことお詫びします。

テストで使用したレイアウトは以下の通り。

見出し行:4行目  データ開始は5行目から
  (1、2行目に他のタイトルがあってもいいが、3行目は必ず空白行)
使用列: A~N列
  (何列使用していてもコードの変更しなくていいです)
計算列: C、G、I、L列
計の文字を入れる列:A列
計の文字列     :《頁計》又は【合計】

●●A列を基準にしていますので違う場合は適宜変更のこと
●●計算列も実際に合わせて適宜変更のこと
●●合計は予めA列最終行に、【合計】と入れ計算式も入れておくこと
 
'-------------------------------------------------------
Sub 頁計追加()
Dim PBK As HPageBreak
Dim PBKCount As Integer
Dim LastRow As Long
Dim R As Long
Dim StartRow As Long
Dim EndRow As Long
Const DataBiginRow As Long = 5

If Range("A:A").Find("【合計】", , xlValues, xlPart) Is Nothing Then
 MsgBox "【合計】行がありません" & vbLf & vbLf & _
    "【合計】行を手動で追加してから実行せよ" & vbLf, vbCritical
 Exit Sub
End If

Cells(Rows.Count, "A").End(xlUp).Select
PBKCount = ActiveSheet.HPageBreaks.Count

If PBKCount = 0 Then GoTo 印刷開始
If PBKCount = 1 And ActiveSheet.HPageBreaks(1).Location.Value = "" Then GoTo 印刷開始

Cells(Rows.Count, "A").End(xlUp).Select
PBKCount = ActiveSheet.HPageBreaks.Count

For Each PBK In ActiveSheet.HPageBreaks
 For R = PBK.Location.Offset(-1).Row To DataBiginRow Step -1
  If Rows(R).Hidden = False Then
   Rows(R).Insert xlShiftDown
   Cells(R, "A").Value = "《頁計》"
   Exit For
  End If
 Next R
Next PBK

Cells(Rows.Count, "A").End(xlUp).Select

If PBKCount <> ActiveSheet.HPageBreaks.Count Then
 Set PBK = ActiveSheet.HPageBreaks(ActiveSheet.HPageBreaks.Count)
 For R = PBK.Location.Offset(-1).Row To DataBiginRow Step -1
  If Rows(R).Hidden = False Then
   Rows(R).Insert xlShiftDown
   Cells(R, "A").Value = "《頁計》"
   Exit For
  End If
 Next R
End If

Cells(Rows.Count, "A").End(xlUp).Select
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

Set PBK = ActiveSheet.HPageBreaks(ActiveSheet.HPageBreaks.Count)

If Not (PBK.Location.Value Like "*合計*") Then
 Rows(LastRow).Insert xlShiftDown
 Cells(LastRow, "A").Value = "《頁計》"
End If

Cells(Rows.Count, "A").End(xlUp).Select
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

StartRow = DataBiginRow

For R = DataBiginRow To LastRow - 1
 If Cells(R, "A").Value = "《頁計》" Then
  EndRow = R - 1
  Cells(R, "C").Value = _
    "=Subtotal(9, C" & StartRow & ":C" & EndRow & ")"
  Cells(R, "G").Value = _
    "=Subtotal(9, G" & StartRow & ":G" & EndRow & ")"
  Cells(R, "I").Value = _
    "=Subtotal(9, I" & StartRow & ":I" & EndRow & ")"
  Cells(R, "L").Value = _
    "=Subtotal(9, L" & StartRow & ":L" & EndRow & ")"
  StartRow = R + 1
 End If
Next R

With Range("A4").CurrentRegion.Borders
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = xlAutomatic
End With

'-----
印刷開始:
  ActiveSheet.PrintPreview  '上手くいったらPrintOutにする
  Call 頁計削除
End Sub
'------------------------------------------------------

列の非表示は場合によってパターンが色々あるでしょうから、印刷前に手動でした方がいいでしょう。
非表示の列は頁計削除のところで自動で表示されます。
もちろん、列の非表示も自動でできますが、その場合は、そのいくつかのパターンを別なセルにとっておき、それを利用するのがベターでしょう。
 
それから、合計行も自動で追加できますが、それはご自分でトライしてみてください。
 

お待たせしました。
ちょとやぼ用がありアップが遅れたことお詫びします。

テストで使用したレイアウトは以下の通り。

見出し行:4行目  データ開始は5行目から
  (1、2行目に他のタイトルがあってもいいが、3行目は必ず空白行)
使用列: A~N列
  (何列使用していてもコードの変更しなくていいです)
計算列: C、G、I、L列
計の文字を入れる列:A列
計の文字列     :《頁計》又は【合計】

●●A列を基準にしていますので違う場合は適宜変更のこと
●●計算列も実際...続きを読む


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

人気Q&Aランキング