エクセルシートのＡ１に元々数字が１０と入力されているとします。

質問

エクセルシートのＡ１に元々数字が１０と入力されているとします。

そのＡ１に続いて100を入力すると、Ａ１が110と表示する方法を教えて下さい。

回答No.4

merlionXX · ベストアンサー

> A1～A3000、B１～B3000、C１～C3000・・・T1～T3000まで

hiro_o463さん、おはようございます。
A1:T3000　の範囲ということですね？

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim x As Double, y As Double
　　If Intersect(Target, Range("A1:T3000")) Is Nothing Then Exit Sub
　　If Target.Value = "" Then Exit Sub
　　x = Target.Value
　　On Error GoTo line
　　With Application
　　.ScreenUpdating = False
　　　　.EnableEvents = False
　　　　.Undo
　　　　y = Target.Value
　　　　Target.Value = x + y
line:
　　　　.EnableEvents = True
　　　　.ScreenUpdating = True
　　End With
End Sub

とします。
なお、前回の回答は整数のみでしたが、今回の回答は小数もOKにしてあります。

お礼

思い通りのことができました。
今回の回答は親切に小数もOKにして頂きありがとうございました。

回答No.3

merlionXX

VBAを多少かじるとできるようになります。
これをちょいとお試しください。
とりあえず該当シートのA1セルだけはご希望の動きをすると思います。

１．シートのタブを右クリックし、コードの表示を選ぶ。
２．出てきたVisual Basic Editorの右の白い部分に下記のコードをコピーして貼り付けます。

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim x As Long, y As Long
　　If Target.Address <> "$A$1" Then Exit Sub
　　If Target.Value = "" Then Exit Sub
　　x = Target.Value
　　On Error GoTo line
　　With Application
　　　　.ScreenUpdating = False
　　　　.EnableEvents = False
　　　　.Undo
　　　　y = Target.Value
　　　　Target.Value = x + y
line:
　　　　.EnableEvents = True
　　　　.ScreenUpdating = True
　　End With

End Sub

３．AltキーとF11キーを同時に押してワークシートへもどります。

これでA1に数字を入れてみてください。（文字はダメですよ！）

補足

ありがとうございます。A1の計算できました。
早速ですが、A1～A3000、B１～B3000、C１～C3000・・・T1～T3000まで
同じように計算したいのですが、その場合はどうしたら良いでしょうか？

回答No.2

DIooggooID

こちらのような、イベントプロシージャを利用して、（ change イベント ）

セルの内容が変化したら、・・・　を実行する、とう処理を組み込みます。

http://home.att.ne.jp/zeta/gen/excel/c04p59.htm

参考URL：

http://home.att.ne.jp/zeta/gen/excel/c04p59.htm

お礼

参考URLありがとうございます。勉強させていただきます。

回答No.1

aokii

同じセルでは無理ではないでしょうか。
B1に100と入力したら、C1に＝A1+B1と記入すれば110と表示されますけど。