エクセル 金銭出納帳の繰越処理について教えてください

金銭出納帳で　A1に項目B1収入C1支出D1差引残高と成っています
実現させたいのは２０行の１行手前１９行目のD列に差引残高が出た時２０行目のA列に繰越という文言を自動的に入れたいのです
次は４０行目と２０行間隔で繰越を自動で入れる方法を教えてください

No.4 回答者： imogasi 回答日時： 2008/10/24 23:25

>A列のセルを数えて２０行に成った時B列の２０行目に繰越と入るマクロをご指南頂けないでしょうか

こういう、ユーザー任せで何時実行したらよいか決まっていないものの処理は、VBAではイベントという考え(注）で処理することになろうと思うが、VBAの中級以上の勉強をした人が考えることだ。
（注）決まったタイプのことが起こったら、プログラム上で教えてもらう（＝決まったプログラムを実行する）といった仕組み。
またそもそもChangeイベントは扱いが難しい。（下手に使うと、ぐるぐる周り計算などしてしまう）
また
イベントはセルにキーイン入力の変化には反応するが、関数で他セルを参照する式が入っているとき、他セルの変化に伴う変化には反応しないようだ。VBAによる値の変更は反応する。
この質問ではD19に式=IF(AND(B19="",C19=""),"",D18+B19-C19)
が入っていると思われ、B19、C19の変化に対応して、D19が変化するのは捉えられない。
だから普通では難しいと思う。

No.3 回答者： mu2011 回答日時： 2008/10/24 11:17

一例です。

A2に=IF(AND(MOD(ROW(A1),20)=0,INDIRECT("D"&ROW()-1)<>""),"繰越","")を入力、下方向にコピーで如何でしょうか。

この回答への補足

ありがとう御座います　私も考えていまして　次の式で
=IF(MOD(ROW(),20)=0,"繰　　越","")として使えるのですが
他の数式も入っていますのでセルに数式を入れる関数ですと
ダメのようです　マクロを実行させて実現しないとダメのようです

A列のセルを数えて２０行に成った時B列の２０行目に繰越と入るマクロをご指南頂けないでしょうか

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

補足日時：2008/10/24 12:04

No.2 回答者： gyouda1114 回答日時： 2008/10/24 06:13

20行ごとに入れる方法ですか

=IF(ISNUMBER(D19),"繰越","")の「D19」を「D39」にする。


次の月の出納帳は同じシートで下に伸ばすより、シートを代えるほうが扱いやすいと思いますよ。
シートタブを「Ctrlキーを押しながらシートの右位置にドラッグして離す。」とコピーできます。

No.1 回答者： gyouda1114 回答日時： 2008/10/23 23:20

これでいかが

=IF(ISNUMBER(D19),"繰越","")

この回答への補足

ありがとう御座います
しかし　数式を２０行ごとに入れてやら無いとだめなので
A列を数えて２０行目ごとにB列に繰越と入る方法なのですが
ご指南ください。

補足日時：2008/10/24 01:01