[[20031126105334]] 『別に加算合計を出したい』(じゃじゃ子) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

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

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


[[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さん、ありがとうございます。は、聞こえたかな!?

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.