エクセルVBA ダブルクリックした左隣の値を返す方法

質問

いつもお世話になっております。

あるワークシートにおいて、

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)

If ActiveCell.Column = 7 Then

Target.Value = "希望"
End If

End Sub
というマクロを記述することができました。

今度は、
G列のどこかのセルをダブルクリックすると、
同じ行のE列の値が、
ダブルクリックしたセルに入るようにしたいのです。
どのような記述をすればよいのか
ご教示ください。

回答No.1

ham_kamo · ベストアンサー

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　If Target.Column = 7 Then
　　　　Target.Value = Target.Offset(0, -2).Value
　　End If
End Sub

でいかがでしょうか。

お礼

Target.Offsetですか。
offsetを使うのだろうというところまでは、
たどり着いたのですが、
そこから上手く進めませんでした。

ありがとうございました。