選択した行の値だけを合計

質問

選択した行の値だけを、その行のどのセルをダブルクリックしても合計する方法を教えてください。
A列は、ID,B・C列は値があらかじめ入力されています。
D列に、合計を表示させたいです。
関数・VBAでは、一括して合計はでましたが、VBAで必要な行だけの合計の出し方がわかりません。
VBAの勉強のために活かしたいく、よろしくお願いします。

回答No.1

tsubuyuki · ベストアンサー

要するに
例えば２行目をダブルクリックすると
Ｄ２セルに　=B2+C2　の結果を表示したい
という事でしょうか。

だとしたら

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Cells(Target.Row, 4) = Cells(Target.Row, 2) + Cells(Target.Row, 3)
End Sub

を該当のシートのモジュールに貼ればＯＫです。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Range("D" & Target.Row).FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
End Sub

こう書くと、Ｄ２セルに「=SUM(B2:C2)」と自動で入力します。

お礼

早々の回答、本当にありがとうございます。
大変助かりました。