エクセル行の自動挿入

質問

エクセルで行の自動挿入の方法を教えてください。
例えば、売上表を作成します。（下記のような）
　工事日　　顧客名　　現場名　　作業内容　受注金額
3月1日　　○Δ建築　　×■邸　　　■　　　100,000
3月2日　　×■塗装　　●△邸　　　▽　　　　120,000
3月3日　　□×建設　　▽○邸　　　●　　　　280,000

　↓　　　　　　↓　　　　　　↓　　　　　↓　　　　　↓

という表で、月によって60行の時もあれば20行という月もあります。
そして入力最終行に　受注金額の合計を出したいのです。
しかも、顧客名、作業内容はリスト入力になってます。
また、罫線も自動的に追加されるようになってます。
マクロは苦手なんですが、ご指導お願いします。

似たような、ご質問もありましたが、お願いします。

回答No.3

mu2011 · ベストアンサー

一例です。
・入力セルに関数を設定する事は芳しくないので合計額は受注金額列の左列（仮にF列）に表示
・表示条件は、仮に受注金額列に「合計」の文字列を入力したタイミング
F2に=IF($E2="合計",SUM(OFFSET($E$1,,,COUNTA(E:E))),"")として下方向にコピーで如何でしょうか。

お礼

ありがとうございました。
こんな方法もあるんですね。
助かりました。
本当にありがとうございます。

回答No.2

yosifuji20

マクロは苦手なんですがといわれるとこれは困難ですね。

ご希望とは違いますが、式を変えないで確実に行数のわからないデータの合計を取るには、発想を変えて合計行を最上段に持ってくることです。

入力行を３合目からという場合、合計の式は２行目にすれば、行が何行になっても式の位置を変えないで合計がわかりますね。

勿論SUM関数の範囲には予想される最大行数を超える範囲を指定します。

実用的には合計が最下段でないといけないという理由は何もないので、これで行こうかと思えば最も簡単な方法ですが。

私は実際こういう形式の表を良く作ります。

お礼

ありがとうございます。
マクロが苦手というのは今回会社の帳票類をプログラム化するっていうのに無理がありますかね？！
今は各帳表類を一つづつ出して入力して同じ内容の事を又別の表に入力を繰り返しています。
この作業が一つで済めば楽になると思い社長からの提案もあり取り組んでいるのですが、社内（少人数）ですがエクセルができる人が私しかいないのです。
でも、今回いただいたご意見で今までの固定観念がなくなりました。
本当にありがとうございました！！

回答No.1

mar00

日付がA列・・・・受注金額E列とします。
Sub Macro1()
Dim i As Integer
Dim TOTAL As Long
TOTAL = 0
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
TOTAL = TOTAL + Range("E" & i)
Next i
Range("E" & i) = TOTAL
End Sub

お礼

ありがとうございます。
マクロは苦手なんですが、以前に同じような質問の方がいらっしゃった時の方法で貼り付けてみたのですが、何も変わらす・・・・。
ちなみに、Altを押しながらF11でマクロ変更画面で貼り付けました。
再度チャレンジしてみます！！本当にありがとうございました。