1つのセルで金額を打ち込み、打込み回数（リターン）とその合計金額を求め・・・。

質問

打込み専用セル（１か所）に金額を入れ、リターンした時にセルをクリアし次の金額を入れる。
これの繰り返し合計金額と打込み回数を別表（セル数6×12）に送る。
やりたいことの説明が分かりにくくてすみません。

回答No.2

ASIMOV · ベストアンサー

＞別表（セル数6×12）に送る

この意味が判りませんが、
A1に入力、B1が計、C1が回数だとこんな感じになります
-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Address = "$A$1" Then
　　Application.EnableEvents = False
　　　On Error Resume Next
　　　Cells(1, 2) = Cells(1, 2) + Target.Value
　　　Cells(1, 3) = Cells(1, 3) + 1
　　　On Error GoTo 0
　　　Target.Value = ""
　　Application.EnableEvents = True
　　Range("A1").Select
　End If
End Sub

補足

ご回答ありがとうございます。
これがVBAですか？
昔々BASICを覚えようかと思った時期はありましたが・・・。
具体的にどこで、どうやって書いたらよいかわかりません。
VBA講座を受けてからのほうが良いですか？
素人ですみません。

回答No.3

ASIMOV

＞具体的にどこで、どうやって書いたらよいかわかりません

EXCELを開いて
Alt + F11（ファンクションキー）
を押すと図のような場面が出ます
左のSheet1(Sheet1)を右クリック、「コードの表示」をクリック
出てきた窓に、No2のコードをコピペします

お礼

具体的な手順を教えていただきありがとうございました。
素人でもバッチリ出来ました。
このデーターを別表（6×12セル）に移すのはこれからやってみます。
本当に助かりました、重ねて御礼申し上げます。

回答No.1

FEX2053

VBAを使えば、それほど難しくなく出来ると思いますが・・・。
VBAを使ってコードを書く気、ありますか？

お礼

ご回答ありがとうございます。
エクセル（表計算）で出来ると思っていました。
VBAをまったく知りませんので・・・。
すみません。