選択セルに計算結果を表示

質問

エクセルVBAで選択セルに計算結果を表示したいのですが、教えてください。
A列には、ID　B・C列には値が入力されています。
下記の構文ですと、行のどこをダブルクリックしても、D列に合計が表示されます。
D列以降のどの行をダブルクリックしても、アクティブなセルに合計を表示したいです。

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

回答No.3

keithin · ベストアンサー

流石に手抜き過ぎました。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　if target.column < 4 then exit sub
　target = Cells(Target.Row, 2) + Cells(Target.Row, 3)
　cancel = true
End Sub

とします。

お礼

早々の回答ありがとうございます。
勉強になりました。

回答No.2

keithin

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　target = Cells(Target.Row, 2) + Cells(Target.Row, 3)
　cancel = true
End Sub
という風にします。

回答No.1

MarcoRossiItaly

では「Cells(Target.Row, 4)」→「Target」とでも書き換えてみては。

お礼

ありがとうございます。
勉強になりました。