エクセル2003で！

質問

数値を入力する度、数値を足して表示してくれる方法はありますでしょうか。

例えば数値、50　を入力。
後、同じセル内に　100　を入力。
50+100で表示　150
と言う様に、入力する度数値を、足していってくれる方法ありますでしょうか。

エクセル2003使用です。
宜しくお願いします。

回答No.4

okormazd

こんなところでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo trap

Application.EnableEvents = False

r = Target.Row
c = Target.Column

d2 = Cells(r, c)

Application.Undo

d1 = Cells(r, c)

dtype1 = VarType(d1)
dtype2 = VarType(d2)

If dtype2 = vbEmpty Then
d = ""
ElseIf dtype1 = vbString Or dtype2 = vbString Then
d = d1 & d2
Else
d = d1 + d2
End If

Cells(r, c) = d

mrd = Application.MoveAfterReturnDirection

Select Case mrd
Case xlDown
a = 1
b = 0
Case xlToRight
a = 0
b = 1
Case xlToLeft
a = 0
b = -1
Case xlUp
a = -1
b = 0
Case Else
a = 0
b = 0
End Select

If r + a < 1 Or r + a > 65535 Then
a = 0
b = 0
End If
If c + b < 1 Or c + b > 255 Then
a = 0
b = 0
End If

Cells(r + a, c + b).Select

Application.EnableEvents = True

Exit Sub

trap:

MsgBox Err.Number
Application.EnableEvents = True

End Sub

お礼

早々の回答ありがとうございました。
しかし・・・私には難しく・・・お手上げでした。
勉強して出直します。

回答No.3

marbin

VBAで外のセルを蓄積用に使うしかないと思います。
どこかで一般機能で出来る技をみたようなきがしますが
思い出せません・・・。

お礼

早々の回答ありがとうございました。
しかし・・・私には難しく・・・お手上げでした。
勉強して出直します。

回答No.2

yawawa

同じセルに書くということですので、
[=50+100]([]は入力不要)と入力してやれば、表示は150になると思います。
50だけのときは、[=50]と入力しておけば、表示は50になります。

お礼

早々の回答ありがとうございました。
しかし・・・私には難しく・・・お手上げでした。
勉強して出直します。

回答No.1

mu2011

「セル加算」で検索すればすぐに見つかりましたが
如何でしょうか。
過去の一例です。

参考URL：

http://oshiete1.goo.ne.jp/qa2154378.html

お礼

早々の回答ありがとうございました。
しかし・・・私には難しく・・・お手上げでした。
勉強して出直します。