エクセルでの操作

質問

エクセルでひとつのセルで追加で数を足す場合に数式の変更をしていますが、数字を入れれば自動的に足してくれるようにすることはできますか？
通常は前に入っていたのが消えて新たなものが入力されると思いますが。
よろしくお願いいたいます。

回答No.5

merlionXX

> 回答していただいたコードを入力してみたのですが、うまくいきませんでした。

どう、うまく行かないのでしょうか？
（エラーがでる。加算されない等、結果を書いていただかないと対応ができません）

> 希望としては、追加で値の入力をするセルを指定したいのですが

どのシート（シート名）のどのセルですか？
その指定したセルに例えば１０００と入っていれば、追加でそのセルに５００と入力した結果、１５００となればいいのですか？

回答No.4

merlionXX

#3です。
#3で書いたコードでは、数値以外が入った場合エラーになり、ChangeイベントがFalseのまま修了してしまいますので、以下のとおり修正します。
なお、多分連続入力するのだろうと考え、A1に入力後もカーソルはA1のまま移動させないようにしてみました。

'********この下をコピー********

Dim x As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A1" Then Exit Sub
Range("A1").Select
Application.EnableEvents = False
On Error GoTo line
If IsNumeric(Target.Value) Then
x = Target.Value + x
Target.Value = x
Else
MsgBox "入力値を数値と認識できません。", vbCritical, " （￣∇￣) ？"
Application.Undo
End If
line:
Application.EnableEvents = True
End Sub

'********この上をコピー********

補足

質問が言葉足らずなところがありわかりにくくてすいません。
要は、お金の管理をするのに帳票を作ってみたのですが、一つのセルに追加で数値を入力することが多いものでその作業を簡素化できないものかと悩んでいたのです。
回答していただいたコードを入力してみたのですが、うまくいきませんでした。
希望としては、追加で値の入力をするセルを指定したいのですがそのようにはできるのでしょうか？

回答No.3

merlionXX

おっしゃることがよく分からないのですが、例えばＡ1セルに5と入っている場合、更にA1に3と入れれば、A1が8になるということでしょうか？
もしそうなら、関数でやることは不可能です。Ａ1にどんな関数を入れても、再度Ａ1に数値を入力すれば上書きされてしまいますから。

そういう場合はＶＢＡが必要になります。

1.該当のシートのタブ（下でSheet1とか書いてあるところ）を右クリックします。
2.「コードの表示」をクリック
3.表れたVBE画面の右側の白い大きな空欄に以下のコードをコピペします。

'********この下をコピー********

Dim x As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) <> "A1" Then Exit Sub
x = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A1" Then Exit Sub
Application.EnableEvents = False
Target.Value = Target.Value + x
Application.EnableEvents = True
End Sub

'********この上をコピー********

4.ALTキーとF11キーを一緒に押し、ワークシートに戻ります。
5.A1セルに数値を入力してみてください。

回答No.2

platina_24

コピー＆ペーストならできます。
１）追加したい数字を他のセルに入力し、このセルをコピー。
２）追加したいセルで右クリックし、形式を選択して貼り付け。
３）値と加算をオプション選択してＯＫをクリック。

回答No.1

pon_ta_kun

変更したいセルでF2を押すと、セルの内容が編集できるようになります。
質問の意味がよく理解できないのですが、自動でというのはどういうことをしたいのでしょう?