[[20031126105334]]　『別に加算合計を出したい』（じゃじゃ子）　ページの最後に飛ぶ

『別に加算合計を出したい』（じゃじゃ子）

数字を加算していきたいのですが、入力場所は一箇所で、入力する度にとなりのセルに
累計が出るようにしたい。

[[20020530145644]]『電卓みたいな計算できますか？』（事務員です）

 こんな感じの事でしょうか？（ケン）

お～！そうです。でも、関数ではやっぱりないのでしょうか？

 こっちのほうかもしれませんね。
[[20031003162929]] 『数値を入力した時点で前項との合計値をだしたい』（ジャック）

 VBA じゃないと無理だと思います。
 これで問題解決出来ましたら　りなさんにお礼を言って下さいね。 　　　（jun53）

皆様ありがとうございます。早速やってみましたら、出来ました。
そうしたら、上司の方から「その列全て入力、となりの列に合計値を出して」と言われたんですが、inp="$A$1 outp="E1" を直せばいいのですか？直すとしたら、どう直せば良いのですか？

 ちょっとramrunさんのコードをいじってみました。
 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim outp As String

    outp = Target.Offset(, 1).Address

    Application.EnableEvents = False

    If Target.Column = "1" Then
        Range(outp).Value = Range(outp).Value + Target.Value
        If Target.Value <> "" Then
            ActiveCell.Offset(-1, 0).Select
        Else
            Range(outp).Value = 0
        End If
    End If

    Application.EnableEvents = True

 End Sub
 （ケン）

ケンさん、ありがとうございます。でも、エ～ンなりません。私がいけないのかもしれません。
報告ついでに、入力する列はE列で、出す列はD列ですが、上記を変更する時はどこを替えれば良いのでしょう？　なにぶん初めてなものですから、要領悪くてすみません。

 If Target.Column = "1" Thenのところの1を5に変えます。
outp = Target.Offset(, 1).Addressはoutp = Target.Offset(, -1).Addressです。（ケン）

ケンさん、出来ました！！！　モタモタですみません。本当に本当にありがとうございました。
深く深く感謝しています。m（ _ _ ）m また、なにかあった際には、宜しくお願い致します。　今回ご協力していただいた、ｼﾞｬｯｸさん、りなさん、jun53さん、勿論ケンさん、本当にありがとうございました。

 一番最初にこのコードを作ったramrunさんが抜けていますよ。
結構、あの人怖いんだから～！シーッ！聞こえちゃうよ！（ケン）

心の中で、ramrunさん、ありがとうございます。は、聞こえたかな!?

コメント返信：

[ 一覧(最新更新順) ]

[[20031126105334]] 『別に加算合計を出したい』（じゃじゃ子） ページの最後に飛ぶ

[[20031126105334]]　『別に加算合計を出したい』（じゃじゃ子）　ページの最後に飛ぶ