[[20020530145644]] 『電卓みたいな計算できますか?』(事務員です) >>BOT

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

 

『電卓みたいな計算できますか?』(事務員です)

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

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

例えば、3+4+2+9+6 という計算式があって、

それをA1に3を入力して、またA1に4を入力していって・・・

その合計が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

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

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

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

 (ramrun)


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

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

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

 でしたね。

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

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

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

 (kazu)


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

 (ramrun)

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

 >それをA1に3を入力して、またA1に4を入力していって・・・ 
 >その合計がE1に出るようにする。 

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

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

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

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

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

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


コメント返信:

[ 一覧(最新更新順) ]


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