ｅｘｃｅｌ ｖｂａ セレクションされている範囲に対する処理

ｅｘｃｅｌｌでＶＢＡで
今ある列の連続した範囲(仮に$D$2：$D$8とか、$B$3：$B$7)とかがセレクトされているとする。
そのセレクトされている状態をマクロで処理し、そこに例えば$D$2：$D$8の場合は、順に２，３，４，５，６，７，８という数字を表示したい。
$ｘ$ｎ：$ｘ$ｍでも同様、ｎ、ｎ+１、ｎ+2、---、ｍ（ｘは何でもいい）

Selection.addressというのを使用して処理するのでしょうか、教えてください。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2008/10/16 19:55

Sub test()

With Selection
.Formula = "=ROW()"
.Value = .Value
End With
End Sub
このことですか。

この回答へのお礼

はい、そのとおり。うまくいきました。
おかげで解決しました。どうもありがとうございました。

お礼日時：2008/10/17 09:16

No.3 回答者： xls88 回答日時： 2008/10/16 20:12

こんな風にもできるようです。

Sub test()
　　Dim i As Long
　　For i = 1 To Selection.Count
　　　　Selection(i).Value = Selection(i).row
　　Next i
End Sub

この回答へのお礼

　皆さん、すべてとても参考になりました。どうもありがとうございます。

お礼日時：2008/10/17 09:28

No.2 回答者： okormazd 回答日時： 2008/10/16 20:01

下記のようなことですか。

Sub test()
For Each c In Selection
c.Value = c.Row
Next
End Sub

この回答へのお礼

はい、そのとおり。うまくいきました。
おかげで解決しました。どうもありがとうございました。

お礼日時：2008/10/17 09:16