[[20060707112904]]　『表の数字を自動加算させたい。』（ふう）　ページの最後に飛ぶ

『表の数字を自動加算させたい。』（ふう）

完成している表に数字を加算させたい。
一つのセル内の中だけで、SUM関数は使えますか？何件も数字を入力しなければならないので、列は増やさず数字だけを足していく。・・例えばA2に1と入力していて、追加でA2に2を入力したら、自動で3になるといった感じで。教えてください。

 過去ログです。
[[20051123183037]]『同じセルに入力して加算できますか』（arai）
↑のスレッドでも指摘されていますが、あまり良い方法とは言えません。
別の方法を検討した方が良いかと思います。
(ROUGE)

 衝突しました。この質問も定期的にありますね。
[[20041020105248]] 『同一セル内での計算と内訳表示』（tasuketeman）
 ↑このスレの中に、関連ログが列記されています。
（純丸）(o^-')b

 私にはとても便利には思えないのですが過去ログのみ紹介しておきます。
　
【関連ログ】『同一セル内での計算と内訳表示』（tasuketeman）以降
　
[[20041023182431]] 『電卓みたいな計算..』（ユーミン）
[[20050305051206]] 『セルに順次数字を入れて足し算させる方法』（ネオ）
[[20050309152712]] 『エクセルの表計算、累計の出し方』（ottu）
[[20050611225442]] 『加算のしかた教えてください』（チコちゃん）
[[20060518153615]] 『同じセルの中で計算したい』（ぽんた）
　
(みやほりん)(-_∂)b

ALTキー　を押しながら　F11キー　を押してください。
マクロを使います

 VISUAL BASIC EDITORが起動します。				
 プロジェクトエクスプローラー内の				
 Sheet1 をダブルクリックして、				
 画面右側のウィンドウに、以下のコードを貼り付けてください。				
 Option Explicit				
 Public temp 'モジュールレベルの変数にする				
 'セルをクリックしたときに値を一時保存させておく			
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)		 
 temp = Target.Value				
 End Sub				
 'セルの値が変わったとき，保存させていた値と入力した値を加算する	
 Private Sub Worksheet_Change(ByVal Target As Range)			
 On Error Resume Next
 Application.EnableEvents = False
 Target.Value = Target.Value + temp
 Application.EnableEvents = True
 End Sub
 貼り付ける場所を間違わないでください。Sheet1のところです。
 ALT+F11を押してエクセルに戻ってください。
 セルに数値を入力していくと順次加算されます。
 これで同じセルに入力していけば加算されます。
 (shota)

コメント返信：

[ 一覧(最新更新順) ]

[[20060707112904]] 『表の数字を自動加算させたい。』（ふう） ページの最後に飛ぶ

[[20060707112904]]　『表の数字を自動加算させたい。』（ふう）　ページの最後に飛ぶ