エクセルで…関数かマクロか？

質問

エクセル2007を使っています。

3列のシートがあるとしますね。

それぞれの列は、「A　現金残高」、「B　収入」、「C　支出」とします。

たとえば、3行目から数値を入れるとします。

普通ならば、B3　（収入）のセルに　1000（円）　と数字を打ち込めば、
A3　（現金残高）のセルに同じく　1000が入るよう、=B3　とすればいいと思います。

同様に、C3のセルに1000と入力すれば、
A3のセルには　-1*（C3）　とすることで、現金残高が収入と支出によって、
プラスマイナスされるようにし、あとで各列を∑すれば済みますね。

でも、いま僕がやりたいのは、

たとえば現金残高　A3のセルに　-1000　と入力すると、自動的に　C3のセルに　1000　と
表示され、A3に　1000　と入力すると、　B3のセルに　1000と表示されるようにしたいのです。

要するに、現金残高に入力した数値がプラスかマイナスかによって、
数字が表示されるセルを個別に指定し、指定したセルに計算結果を表示させたいわけです。

IF関数で、数値のプラスマイナスは判断できますが、任意のセルを指定させる方法が
わかりません。

「もし…だったら　『任意のセルに』○○せよ」　

というような指定はできるのでしょうか？

もしくは、マクロを使わないとできないのでしょうか？

いろいろサイトも調べてみましたが、力不足で回答にたどり着くことができませんでした。

よろしくご教授お願いいたします。

回答No.1

noname#208392 · ベストアンサー

>A3のセルに　-1000　と入力すると、C3のセルに　1000　と表示され、A3に　1000　と入力すると、　B3のセルに　1000と表示されるように

難しく考える必要はありません。
C3のセルに
= If (A3<0,-A3, "")
B3のセルに
= If (A3>=0,A3, "")
とそれぞれ書いておけばいいのです。

マクロではできません。
マクロでやるとすると全部入力した後に、マクロを走らせて、B列とC列を埋めるような使い方のシートになります。

お礼

ああ、こういう考え方でよかったのか！！

助かりました。ありがとうございます。

回答No.5

layy

補足。

合計するなら、０でも埋めておくのが良いのでは。

残高０はどうするのか。

分けた後合計、というなら、SUMIF関数も見ておくのが良いです。

回答No.4

merlionXX

記入と同時に作動するマクロの一例です。

1. 該当するシートのタブを右クリックして、[コードの表示]。
2. 出てきた白い所に、以下のコードを貼付けます。

'********これより下**********

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Column <> 1 Then Exit Sub 'A列以外は停止
　　If Target.Row < 3 Then Exit Sub '2行目以前は停止
　　If Not IsNumeric(Target) Then Exit Sub '数値以外は停止
　　On Error GoTo line
　　Application.EnableEvents = False
　　Cells(Target.Row, "B").Resize(, 2).ClearContents 'B、C列クリア
　　If Target.Value > 0 Then '正数なら
　　　　Cells(Target.Row, "B").Value = Target.Value 'B列に転記
　　ElseIf Target.Value < 0 Then '負数なら
　　　　Cells(Target.Row, "C").Value = Abs(Target.Value) 'C列に絶対値を転記
　　End If
line:
　　Application.EnableEvents = True
End Sub

'********これより上**********

3.Alt+F11キーでワークシートへもどります。

これでOK

A列3行目から下に数値を入力する都度、自動で実行されます。
誤入力して消去しても対応します。
０を入力しても反応はしません。（それでいいんですよね？）

回答No.3

keithin

A2,B2,C2にそれぞれ残高，収入，支出と記入
A3以下に残高を次々いれていくことにして
B3には　=IF(A3="","",IF(SUM(A2,-A3)<0,-SUM(A2,-A3),""))
C3には　=IF(A3="","",IF(SUM(A2,-A3)>0,SUM(A2,-A3),""))
とそれぞれ間違えないように入れて，B3:C3を下向けにえいやっとコピーして埋めておきます。

回答No.2

ihyou_P

＃１さんの関数案に賛成です。
ただ、マクロでも可能ですので補足的に。

シートのセルが変更されるたびに走るマクロで、
　入力されたセルの位置を取得し、
　条件付けで位置を決めて書き込む。
というマクロを組めばできます。

ただ、例えば「食品ならSheet1にとか、交通費ならSheet2に」とかいった細かい条件付けがあったり、「購入した店別に一覧表にしたい」とかいうようなややこしいことをしたい場合でも、割と簡単な（一般的な）関数を組み合わせることで大抵のことは可能ですので、とりあえず何でも関数で解決する方向で考えてみて、どうしても駄目なところをマクロに求めていくのが良いかと思います。