エクセルＶＢＡについて

質問

以下の処理をマクロで実行しようと思っていますが、わからない部分があるので教えてください。

（例）：
　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ
１　1 2　 3 　4 5 　6 　7
２ 10 30 50 70 90 130 150
３
４

(1)１行目のどこかの連続したセル（例えばセルA1から　セルD1）をドラッグする。
(2)マクロを実行する。
(3)セルA4に、「D2－A2」を計算した値が自動的に入力　される。この例では「70－10＝60」
　これは、(1)で例えばセルB1からF1をドラッグした場　合には、「F2－B2」を計算した値を入力したいので　す。

要は、連続したセルを選択してその始点と終点のセルの行と列を取得できればこの処理はできると思うのですが、方法が分かりませんので教えてください。
よろしくお願いします。

回答No.2

nazo-nazo

私の場合は、
Selection.Address
で始点と終点を取得します。

補足

回答ありがとうございます。
ご指摘の方法で確かに始点と終点を取得できるのですが、＄Ｂ＄１：＆Ｄ＄１
のような形で出てきてしまい、Ｄ１とＢ１それぞれのセルの位置を表せないので、Ｄ１とＢ１の差を計算するといった計算式がかけません。
このような場合はどうすればいいのでしょうか？

回答No.1

Wendy02

'<該当するシートモジュールか標準モジュール>
Sub test()
With Selection
If .Row <> 1 Or .Count < 2 Then Exit Sub
'一行目にない場合や、セルをひとつしか選択していない場合は取りやめ
　Range("A4").Value = .Cells(1, 1).Offset(1, .Count - 1).Value - .Cells(1, 1).Offset(1).Value
End With
End Sub

後は、これを、Worksheet_SelectionChange イベントにすると良いでしょうね。

補足

早々の回答、ありがとうございます！
しかしご指摘の方法を試してみたのですが、１行目のどのセルをドラッグして選択してマクロを実行しても、Ａ４セルには０の値しか入らないのですが。。。。
申し訳ありませんが再度のアドバイスをいただけたら幸いです。