EXCEL VBAでユーザーが選択しているアドレス取得

質問

EXCELのVBAでアプリケーションを作成していますが、ユーザーが選択しているセルのアドレス取得方法がわかりません。連続、不連続ともにユーザーが選択せいているセルの数と、各セルのアドレス取得方法をご教授願います。

回答No.4

o_chi_chi · ベストアンサー

下記のようにすれば希望の処理ができると思います。
---
Sub m()
Dim a As Range
Dim b As Range
Set a = Selection
Debug.Print a.Count
For Each b In a
Debug.Print b.Row
Debug.Print b.Column
Next
Set a = Nothing
End Sub

お礼

ありがとうございました。無事取得できました。

回答No.5

hana-hana3

＞連続しているセルの各アドレスはどのように取得するのでしょうか？

取り出したセルアドレスの利用（処理）目的はなんですか？

For Each を使えばアドレスの取得は不要ですし、ループ内でセルアドレスのチェックも可能です。
Range(Selection.Address).Clear などの一括処理も可能です。

お礼

ありがとうございました。無事取得できました。

回答No.3

hana-hana3

MsgBox Selection.Address & " " & Selection.Cells.count

お礼

ありがとうございました。無事取得できました。

補足

ご回答ありがとうございます。
不連続だけの場合は$F$10,$G$16,$H$20　3のような形で取得できるのですが、連続＋不連続の場合は$E$19:$F$22,$I$28,$J$30　10のような形になります。連続しているセルの各アドレスはどのように取得するのでしょうか？

回答No.2

noname#22222

＞不連続にセルを選択する方法が思い付きませんが...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Debug.Print Target.Address
End Sub

[イミディエイト]
$C$4:$F$9
$G$5

連続の場合は、数は、これで計算できます。

お礼

ありがとうございました。無事取得できました。

回答No.1

noname#20377

自信なし。

ActiveCell および Selection プロパティ
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/modcore/html/deovrtheactivecellselectionproperties.asp

お礼

ありがとうございました。無事取得できました。