Ｅｘｃｅｌ計算コード

質問

再質問です
Excelで自動計算される式を知りたいのですが、縦Ａ日付けＢ詳細Ｃ入金Ｄ出金Ｅ残高の場合
（１）Ｅｘｃｅｌ画面の下端にあるシート見出し（例えば「Sheet1」）上を右クリックし
（２）表示されたメニューから「コードの表示（Ｖ）」を選ぶ
（３）表示されたコードウィンドウの上部の左側に「(General)」と表示されている部分の右にある「▼」ボタンをクリツク
（４）表示された一覧の中から「Worksheet」を選択
（５）コードウィンドウに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
と表示される
（６）前項の「Private ・・・・Target As Range)」行と「End Sub」行の間に
☆☆☆貼り付けるコードを教えてください。
以前項目違いでは教えていただきましたが、項目を変えてしまったのでその後どうしてもわかりませんでした
ごめんなさい　よろしくお願いします。

回答No.3

hana-hana3 · ベストアンサー

セルに式を入れれば計算してくれますよ。
こんな感じでしょうか？

http://www11.plala.or.jp/koma_Excel/contents2/mame2013/mame201302.html

お礼

やりました(*^^)v
一つ一つ式を入れてセルをクリックしたらできました(*^^)v
有難うございました。嬉しかったです

回答No.2

mshr1962

この質問では何を計算したいのかが分からないのですが？
単純に「残高=前の行の残高+入金-出金でしょうか？
1行目が項目名で、2行目に残高があり、3行目から本データとして

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LRow, IRow As Integer
If Target.Row < 3 Then Exit Sub '1-2行目では計算しない
If Target.Column > 4 Then Exit Sub 'A-D列に移動のときのみ計算
LRow = Range("A3").End(xlDown).Row '最終行確認
For IRow = 3 To LRow '3行目から最終行まで繰り返し
Cells(IRow, 5) = Cells(IRow - 1, 5) + Cells(IRow, 3) - Cells(IRow, 4) '残高=前の行の残高+入金-出金
Next IRow
End Sub

お礼

有難うございました。
コードを貼り付けてみた所計算できるようになりました。
ポイント締め切りと前後してしまいポイントを付けれなくてごめんなさい
有難うございました。

補足

一行目縦に　Ａ日付Ｂ詳細Ｃ入金Ｄ出金Ｅ残高
で　残高を自動計算したいのです
何か得セルに　＊＊＊この式をコピーしていけばいいです
というような回答も頂きましたが
コピーしていくというのが、もう一つわかりにくくて・・

回答No.1

hana-hana3

オプション設定で自動再計算に設定してあれば余計な事は必用ないはずですが？