エクセルの合計について教えてください。

質問

エクセルの合計について教えてください。
すごく単純な質問です。
商品の今月の毎日の売り上げリストです。
毎日売り上げがあるので、日々、行数が増えていきます。
何行増えるかはわかりません。
トータルの値も、もちろんそれに応じて増えていきます。
で、
上のほうに合計を表示するなら分かるのですが、
画面の一番下に、合計を常に表示させたいのです。
でも、タイトル行も固定したい。
できますか？

回答No.4

tom04

No.3です！
補足を読ませてもらいました。
昨日はあわててコードを入力したので細かいところは確認せずに投稿してごめんなさい。

＞質問1　に関して
おっしゃられるように合計セルに数式を入れていると3行目以降にデータがあると
間違った数値が表示されますので、
当初のE4セルには何もしません。
コードで最後にE2～合計行の1行上までを合計するようにしています。

＞質問2　に関して
今こちらでもう一度表を作成（前回の表の配置通り）を作成し、同じコードを張り付けて実行してみました。
エラーは確認されませんでした。

それからコードの説明を少しさせていただきます。
前回の表で「小計」の列に数式が入っているとしてのコードですので
当初のE列の数式（E2セルの数式）は
=IF(COUNTBLANK(C2:D2),"",C2*D2)　としてE3セルまでオートフィルでコピーしています。

それからコード内の「i」の値を勝手に「4」としていますが
5列目は数式が入っている前提としていますので、E列がアクティブになることはないということで
行の最終アクティブ列（手入力する最後のセルの列番号）は「4」としています。
結局E列をTagetとしていますので、E列のアクティブが変更されるとマクロが実行されるようにしています。
ご自身の表で「j」部分は適宜変更してみてください。

最後に合計行の1行上の空白セルを行挿入し、コピー＆ペーストしていますが
単純に行挿入だけでは空白行にある数式が反映されませんので、コピー＆ペーストにしています。

尚、前回のコードではこのカット＆ペーストモードがそのままですし、
余計なコードもありましたので少しコードを訂正させてください。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j As Long
i = Cells(Rows.Count, 2).End(xlUp).Row - 2
j = 4
j = Target.Column
If j <> 4 Then Exit Sub
Range(Cells(i + 1, 1), Cells(i + 1, 5)).Copy
Range(Cells(i + 2, 1), Cells(i + 2, 5)).Insert (xlDown)
Cells(i + 3, 5).Value = WorksheetFunction.Sum(Range("E2:E" & i + 1))
Application.CutCopyMode = False
Cells(i, 1).Offset(1).Select
End Sub

ではどうでしょうか？

以上、長々と失礼しました。
何とかエラーにならないことを祈っています。m(__)m