[[20020530145644]]　『電卓みたいな計算できますか？』（事務員です）　ページの最後に飛ぶ

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

一つのマス目に数字を入れて、また同じマスに違う数字を入れて・・・

それを繰り返して、合計が出る方法ありますか？？

例えば、３＋４＋２＋９＋６　という計算式があって、

それをA１に３を入力して、またA１に４を入力していって・・・

その合計がE1に出るようにする。

なんてできますか？？

電卓みたいにその場で足し算されていくやり方なんですけど。

 スタートメニューのアクセサリーの電卓ではだめですか？（さくら）

出来れば、エクセルで活用したいのですけど、

そうのような計算式、もしくは機能はないのでしょうか？

 昔～ 旧掲示板で同じことをやった覚えがあって、それを紹介しようと思ったけど...

 無い～

 どうもクラッシュしたときのデータに含まれてた内容ですね。

 計算式でも標準機能でもなく、自作機能（マクロ）なんですが...

 ツール＞マクロ＞Visual Basic Editor で左の VBAProject ウインドウより

 Sheet1をダブルクリック。

 開いたウインドウに↓を貼り付けてください。

 Private Sub Worksheet_Change(ByVal Target As Range)

    Dim inp, outp As String

    inp = "$A$1"

    outp = "E1"

    Application.EnableEvents = False

    If Target.Address = inp 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

 シート１のA1セルで数値入力、EnterするとE1に足されていきます。

 しかしこんなこと、何に使うの？

 途中で打ち間違ったりすると分からないと思うけど...

 （ramrun）

 私も、確か旧の掲示板にあったと思って探してみました。みつからないので

 ramrun作を試してみました。普通の[標準モジュール]では動かなかったので、

 記事をもう一度読みなおしました。そうですね、ワークシートのところに入れるタイプ

 でしたね。

 でも結構いけますね。案外すてたものではないですよ。拍手。

 以前動物病院で血液を調べるのに、顕微鏡をみたまま、1 1 1 1 とテンキーで

 入力したいと希望されていたので、売り出したらいけるかも。

 （kazu）

 たしか前回もそういうことを言っておられたような気がします～（笑）

 （ramrun）

同じ機能を違う列に使うにはどうすればいいですか？

 >それをA１に３を入力して、またA１に４を入力していって・・・ 
 >その合計がE1に出るようにする。

 具体的仕様が、上の様に示されていますので、コードが書けます。

 あなたのご説明は、コードが書けるほどには具体的になっていないです。

 (半平太) 2010/11/23 16:17

 セルだと数値を入れた後に ENTER を押す必要があると思いますが、
 でしたら A列を入力に使用し、E1=SUM(A:A) ではダメなのでしょうか。

 E1の値をそのあとどうするかにもよりますが、値を別の場所に転記するなら
 そのタイミングで転記と A列をクリアするようなマクロを作るのでもよさそうな。

 ユーザフォームやOnKey を使えば、数値と演算の記号入力だけで Enter を
 使わない電卓もどきもできそうですが、それはまた全然別のお話ですね。
 (Mook)

コメント返信：