VBA 範囲選択について

質問

複数のセルを選択してマクロを実行し、範囲選択の個数をMsgboxで表示したいです
例えばA1:B5、C6、D2:E3、を同時に範囲選択していたら「3個」のように表示
分かる方がいらっしゃるのであれば、回答をよろしくお願いします

回答No.3

EL-SUR · ベストアンサー

Selection.Count だとセルの個数になりませんか？

'-------------------------
Sub test()

　　MsgBox "選択範囲：" & Selection.Areas.Count

End Sub
'-------------------------

お礼

回答ありがとうございます！
解決しました

回答No.4

merlionXX

No2です。
No3さんのご指摘の通りでした。失礼しました。

では、代わりの方法でこんなのもあるということで・・・・。

Sub test02()
MsgBox Len(Selection.Address) - Len(Replace(Selection.Address, ",", "")) + 1 & "個"
End Sub

回答No.2

merlionXX

Sub test01()
MsgBox Selection.Count & "個"
End Sub

ではいかがでしょうか？

回答No.1

hana-hana3

Selection.count

http://usir.kobe-c.ac.jp/users/miura/Sc588/2001/index.html